[ELPA-diffs] /srv/bzr/emacs/elpa r170: 2012-01-29 Ulf Jasper <address@hidden>

[Ulf Jasper]

------------------------------------------------------------
revno: 170
committer: Ulf Jasper <address@hidden>
branch nick: elpa
timestamp: Sun 2012-01-29 14:20:07 +0100
message:
  2012-01-29  Ulf Jasper  <address@hidden>
  
        * elpa/packages/svg-clock/svg-clock.el: Clean up.
        (svg-clock-version): Remove.
        (svg-clock-color-to-hex): Use 2 digits for each hexadecimal color
        value.
        (svg-clock-mode, svg-clock-mode-map): Clean up.
modified:
  packages/svg-clock/svg-clock.el

=== modified file 'packages/svg-clock/svg-clock.el'
--- a/packages/svg-clock/svg-clock.el   2011-12-13 19:30:04 +0000
+++ b/packages/svg-clock/svg-clock.el   2012-01-29 13:20:07 +0000
@@ -5,7 +5,7 @@
 ;; Author:      Ulf Jasper <address@hidden>
 ;; Created:     22. Sep. 2011
 ;; Keywords:    demo, svg, clock
-;; Version:     0.3
+;; Version:     0.4
 
 ;; This file is part of GNU Emacs.
 
@@ -39,20 +39,8 @@
 
 ;; ======================================================================
 
-;;; History:
-
-;; 0.3 (2012-12-13)
-;;     - Disable buffer undo in svg-clock buffer.  Thanks to Andrew
-;;       Kirkpatrick.
-
-;; 0.2 (2011-09-26)
-;;     - Added automatic resizing. One clock fits all.
-
-;; 0.1 (2011-09-22)
-;;     - Initial release.
-
 ;;; Code:
-(defconst svg-clock-version "0.3" "Version number of `svg-clock'.")
+(defconst svg-clock-version "0.4" "Version number of `svg-clock'.")
 
 (require 'image-mode)
 
@@ -167,7 +155,7 @@
 (defun svg-clock-color-to-hex (colour)
   "Return hex representation of COLOUR."
   (let ((values (color-values colour)))
-    (format "#%04x%04x%04x" (nth 0 values) (nth 1 values) (nth 2 values))))
+    (format "#%02x%02x%02x" (nth 0 values) (nth 1 values) (nth 2 values))))
 
 (defun svg-clock-replace (from to)
   "Replace all occurrences of FROM with TO."
@@ -259,16 +247,19 @@
     (svg-clock-mode)
     (message "Clock started")))
 
+(defvar svg-clock-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [?+] 'svg-clock-grow)
+    (define-key map [?-] 'svg-clock-shrink)
+    (define-key map [?q] 'svg-clock-stop)
+    (define-key map [?f] 'svg-clock-fit-window)
+    map))
+
 (define-derived-mode svg-clock-mode fundamental-mode "svg clock"
   "Major mode for the svg-clock buffer.
 \\{svg-clock-mode-map}"
   (buffer-disable-undo))
 
-(define-key svg-clock-mode-map [?+] 'svg-clock-grow)
-(define-key svg-clock-mode-map [?-] 'svg-clock-shrink)
-(define-key svg-clock-mode-map [?q] 'svg-clock-stop)
-(define-key svg-clock-mode-map [?f] 'svg-clock-fit-window)
-
 ;;;###autoload
 (defun svg-clock ()
   "Start/stop the svg clock."