[elpa] 199/255: marking captured territory when game ends

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 805f0bdeb5d39755de16eecbd77030c5fcdcd10a
Author: Eric Schulte <address@hidden>
Date:   Mon May 20 18:51:38 2013 -0600

    marking captured territory when game ends
---
 go-board.el |   14 ++++++++++----
 1 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/go-board.el b/go-board.el
index 916a7b2..402a4d3 100644
--- a/go-board.el
+++ b/go-board.el
@@ -384,6 +384,9 @@
   (interactive)
   (with-backends back (go-reset back)))
 
+(defun go-board-mark-point (point mark)
+  (mapc (lambda (ov) (go-board-mark ov mark)) (overlays-at point)))
+
 (defun go-board-pass ()
   (interactive)
   (with-backends back (go-pass back))
@@ -391,10 +394,13 @@
     (setf *turn* (other-color *turn*))
     (when *autoplay*
       (when (equalp :pass (go-board-next))
-        (message "final score: %s territory:%s"
-                 (with-backends back (go-score back))
-                 ;; TODO: mark the territory
-                 (with-backends back (go-territory back)))))))
+        (message "final score: %s" (with-backends back (go-score back)))
+        (mapc (lambda (move)
+                (go-board-mark-point (point-of-pos (cddr move))
+                                     (go-board-cross (ecase (car move)
+                                                       (:B 'black)
+                                                       (:W 'white)))))
+              (with-backends back (go-territory back)))))))
 
 (defun go-board-undo (&optional num)
   (interactive "p")