emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 162/255: painting a nice svg board, but more to do


From: Eric Schulte
Subject: [elpa] 162/255: painting a nice svg board, but more to do
Date: Sun, 16 Mar 2014 01:02:40 +0000

eschulte pushed a commit to branch go
in repository elpa.

commit a5fea1ef9df36c7b09913d14d97f1c550bac2a93
Author: Eric Schulte <address@hidden>
Date:   Tue Jun 5 11:24:21 2012 -0600

    painting a nice svg board, but more to do
---
 go-board.el |   20 ++++++++++++++------
 1 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/go-board.el b/go-board.el
index 4a19094..1e72d30 100644
--- a/go-board.el
+++ b/go-board.el
@@ -41,7 +41,7 @@
 (defvar black-piece "X")
 (defvar white-piece "O")
 
-(defvar go-board-use-images nil)
+(defvar go-board-use-images t)
 (defvar *go-board-overlays* nil
   "List of overlays carrying GO board painting information.")
 
@@ -177,6 +177,7 @@
          ((string= str white-piece) (put str :type :white))
          ((string= str black-piece) (put str :type :black))
          ((string= str "+")         (put str :type :hoshi))
+         ((string= str ".")         (put str :type :background-1))
          (t                         (put str :type :background)))
         (put str :pos (cons (cdr pos) (car pos)))
         str))))
@@ -215,15 +216,22 @@
                  (overlay-put ovly 'display
                               (eval (intern (concat "go-board-image-"
                                                     (symbol-name face))))))
-               (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))))
     (let ((start (or start (point-min)))
           (end   (or end   (point-max))))
       (dolist (point (range start end))
         (case (get-text-property point :type)
-          (:background (ov point 'background))
-          (:hoshi      (ov point 'hoshi))
-          (:white      (ov point 'white))
-          (:black      (ov point 'black)))))))
+          (:background  (if go-board-use-images
+                            (hide point)
+                            (ov point 'background)))
+          (:background-1 (ov point 'background))
+          (:hoshi        (ov point 'hoshi))
+          (:white        (ov point 'white))
+          (:black        (ov point 'black)))))))
 
 (defun update-display (buffer)
   (with-current-buffer buffer



reply via email to

[Prev in Thread] Current Thread [Next in Thread]