eschulte pushed a commit to branch go
in repository elpa.
commit ac868d11eb575cd50f1688d7d703ed2d4ded5c68
Author: Eric Schulte <[email protected]>
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)
