[elpa] 167/255: cleanup images in board faces

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit b69e1a0851593cb8ee391b31fbaf4cf37f8e4dc5
Author: Eric Schulte <address@hidden>
Date:   Tue Jun 5 14:41:17 2012 -0600

    cleanup images in board faces
---
 go-board-faces.el |   43 ++++++++++++++++++++++---------------------
 1 files changed, 22 insertions(+), 21 deletions(-)

diff --git a/go-board-faces.el b/go-board-faces.el
index 99efc36..308aa95 100644
--- a/go-board-faces.el
+++ b/go-board-faces.el
@@ -75,7 +75,7 @@
   "white piece on white territory")
 
 
-;;; Images
+;;; Image utility functions
 (defun go-board-svg-trans (list)
   (if (and (listp list) (listp (car list)))
       (concat (format "<%s%s" (caar list) (if (cdar list) " " ""))
@@ -104,6 +104,7 @@
               ,@body)))
 
 (defmacro go-board-image-sides (name &rest base)
+  (declare (indent 1))
   `(progn
      ,@(mapcar
         (lambda (p)
@@ -122,31 +123,31 @@
           (bottom-right . "M0,12.5H13M12.5,0V13")
           (nil          . "M0,12.5H25M12.5,0V25")))))
 
+
+;;; SVG Images
+(go-board-image-sides background)
+
+(go-board-image-sides black
+  ((defs)
+   ((radialGradient (id . "$rg") (cx . ".3") (cy . ".3") (r . ".8"))
+    ((stop (offset . 0)   (stop-color . "#777")))
+    ((stop (offset . 0.3) (stop-color . "#222")))
+    ((stop (offset . 1)   (stop-color . "#000")))))
+  ((circle (cx . 12.5) (cy . 12.5) (r . 6.125) (fill . "url(#$rg)"))))
+
+(go-board-image-sides white
+  ((defs)
+   ((radialGradient (id . "$rg") (cx . ".47") (cy . ".49") (r . ".48"))
+    ((stop (offset . 0.7) (stop-color . "#FFF")))
+    ((stop (offset . 0.9) (stop-color . "#DDD")))
+    ((stop (offset . 1)   (stop-color . "#777")))))
+  ((circle (cx . 12.5) (cy . 12.5) (r . 6.125) (fill . "url(#$rg)"))))
+
 (defvar go-board-image-hoshi
   (go-board-image
    ((path (stroke . "#000") (stroke-width . 1) (d . "M0,12.5H25M12.5,0V25")))
    ((circle (cx . 12.5) (cy . 12.5) (r . 2.5)))))
 
-(defvar go-board-image-black-svg
-  '(((defs)
-     ((radialGradient (id . "$rg") (cx . ".3") (cy . ".3") (r . ".8"))
-      ((stop (offset . 0)   (stop-color . "#777")))
-      ((stop (offset . 0.3) (stop-color . "#222")))
-      ((stop (offset . 1)   (stop-color . "#000")))))
-    ((circle (cx . 12.5) (cy . 12.5) (r . 6.125) (fill . "url(#$rg)")))))
-
-(defvar go-board-image-white-svg
-  '(((defs)
-     ((radialGradient (id . "$rg") (cx . ".47") (cy . ".49") (r . ".48"))
-      ((stop (offset . 0.7) (stop-color . "#FFF")))
-      ((stop (offset . 0.9) (stop-color . "#DDD")))
-      ((stop (offset . 1)   (stop-color . "#777")))))
-    ((circle (cx . 12.5) (cy . 12.5) (r . 6.125) (fill . "url(#$rg)")))))
-
-(go-board-image-sides background)
-(eval `(go-board-image-sides black ,@go-board-image-black-svg))
-(eval `(go-board-image-sides white ,@go-board-image-white-svg))
-
 (defmacro go-board-image-label (label)
   `(go-board-image
     ((text (x . 8.75) (y . 16.25) (r . 12.25) (style . "font-size:12.5;"))