[elpa] 166/255: board images working with backgrounds

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit ac868d11eb575cd50f1688d7d703ed2d4ded5c68
Author: Eric Schulte <address@hidden>
Date:   Tue Jun 5 14:38:40 2012 -0600

    board images working with backgrounds
---
 go-board-faces.el |    6 ------
 go-board.el       |    7 ++-----
 go-util.el        |    3 +++
 3 files changed, 5 insertions(+), 11 deletions(-)

diff --git a/go-board-faces.el b/go-board-faces.el
index 4fd2035..99efc36 100644
--- a/go-board-faces.el
+++ b/go-board-faces.el
@@ -143,12 +143,6 @@
       ((stop (offset . 1)   (stop-color . "#777")))))
     ((circle (cx . 12.5) (cy . 12.5) (r . 6.125) (fill . "url(#$rg)")))))
 
-(defvar go-board-image-black
-  (eval (cons 'go-board-image go-board-image-black-svg)))
-
-(defvar go-board-image-white
-  (eval (cons 'go-board-image go-board-image-white-svg)))
-
 (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))
diff --git a/go-board.el b/go-board.el
index 3b60680..2bec034 100644
--- a/go-board.el
+++ b/go-board.el
@@ -216,9 +216,6 @@
         (body   (board-body-to-string board)))
     (mapconcat #'identity (list header body header) "\n")))
 
-(defun sym-cat (&rest syms)
-  (intern (mapconcat #'symbol-name (delq nil syms) "-")))
-
 (defun go-board-paint (&optional start end)
   (interactive "r")
   (flet ((ov (point face &optional back)
@@ -228,11 +225,11 @@
                (when go-board-use-images
                  (overlay-put ovly 'display
                               (eval (sym-cat 'go-board 'image face back))))
-               (push ovly go-board-overlays)))
+               (push ovly *go-board-overlays*)))
          (hide (point)
                (let ((ovly (make-overlay point (1+ point))))
                  (overlay-put ovly 'invisible t)
-                 (push ovly go-board-overlays))))
+                 (push ovly *go-board-overlays*))))
     (let ((start (or start (point-min)))
           (end   (or end   (point-max))))
       (dolist (point (range start end))
diff --git a/go-util.el b/go-util.el
index 1533f7d..38b5289 100644
--- a/go-util.el
+++ b/go-util.el
@@ -104,4 +104,7 @@
      ((< num 9) (+ ?A (1- num)))
      (t         (+ ?A num)))))
 
+(defun sym-cat (&rest syms)
+  (intern (mapconcat #'symbol-name (delq nil syms) "-")))
+
 (provide 'go-util)