[elpa] externals/svg-clock 9f4be3e 05/18: 2012-01-29 Ulf Jasper <address@hidden>

[Stefan Monnier]

branch: externals/svg-clock
commit 9f4be3ebf2c9581ff6abfc3b5a070fe727774848
Author: Ulf Jasper <ulf.jasper@web.de>
Commit: Ulf Jasper <ulf.jasper@web.de>

    2012-01-29  Ulf Jasper  <ulf.jasper@web.de>
    
        * 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.
---
 svg-clock.el | 31 +++++++++++--------------------
 1 file changed, 11 insertions(+), 20 deletions(-)

diff --git a/svg-clock.el b/svg-clock.el
index a8e1afc..dd4428c 100644
--- a/svg-clock.el
+++ b/svg-clock.el
@@ -5,7 +5,7 @@
 ;; Author:      Ulf Jasper <ulf.jasper@web.de>
 ;; 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 @@ which makes the clock fit to its window automatically."
 (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 @@ Optionally PERFORM-UPDATE immediately."
     (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."