eschulte pushed a commit to branch go
in repository elpa.
commit 8b2456a5000fae0be55127441314e384b3f06a66
Author: Eric Schulte <[email protected]>
Date: Mon May 20 18:28:35 2013 -0600
mark an overlay with a black or white cross
---
go-board-faces.el | 17 +++++++++++++++++
1 files changed, 17 insertions(+), 0 deletions(-)
diff --git a/go-board-faces.el b/go-board-faces.el
index e507f5f..4928b7d 100644
--- a/go-board-faces.el
+++ b/go-board-faces.el
@@ -90,6 +90,23 @@
"/>"))
list))
+(defun go-board-cross (color)
+ (mapconcat #'go-board-svg-trans
+ `(((line (x1 . 3.125) (y1 . 3.125) (x2 . 21.875) (y2 . 21.875)
+ (style . ,(format "stroke: %s;" color))))
+ ((line (x1 . 3.125) (y1 . 21.875) (x2 . 21.875) (y2 . 3.125)
+ (style . ,(format "stroke: %s;" color)))))
+ ""))
+
+(defun go-board-mark (overlay color)
+ (let* ((disp (cdr (overlay-get overlay 'display)))
+ (data (plist-get disp :data)))
+ (when (and data (string-match (regexp-quote "</svg>") data))
+ (plist-put disp :data (concat (substring data 0 (match-beginning 0))
+ (go-board-cross color)
+ (substring data (match-beginning 0))))
+ (overlay-put overlay 'display (cons 'image disp)))))
+
(defmacro go-board-wrap (&rest body)
`(concat
"<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
