eschulte pushed a commit to branch go
in repository elpa.
commit 89bc0464bb0f535523d12530fbd38e105fdf28b0
Author: Eric Schulte <[email protected]>
Date: Tue May 15 21:16:53 2012 -0400
right and left are mainly working
---
sgf.el | 16 +++++++++-------
1 files changed, 9 insertions(+), 7 deletions(-)
diff --git a/sgf.el b/sgf.el
index 8fc0d79..a615e28 100644
--- a/sgf.el
+++ b/sgf.el
@@ -266,18 +266,19 @@
(mapconcat #'identity (list header body header) "\n")))
(defun update-display ()
+ (unless *sgf* (error "sgf: buffer has not associated sgf data"))
(delete-region (point-min) (point-max))
(goto-char (point-min))
(insert
"\n"
(board-to-string *board*)
"\n\n")
- (let ((comment (cdr (assoc "C" (sgf-ref *sgf* *index*)))))
+ (let ((comment (second (assoc "C" (sgf-ref *sgf* *index*)))))
(when comment
(insert (make-string (+ 6 (* 2 (board-size *board*))) ?=)
"\n\n")
(let ((beg (point)))
- (insert *comment*)
+ (insert comment)
(fill-region beg (point)))))
(goto-char (point-min)))
@@ -289,9 +290,9 @@
"GO")))
(buffer (get-buffer-create name)))
(with-current-buffer buffer
- (setf *sgf* game)
- (setf *board* (make-board (cdr (assoc "S" root))))
- (setf *index* '(1))
+ (setq *sgf* game)
+ (setq *board* (make-board (cdr (assoc "S" root))))
+ (setq *index* '(0))
(update-display))
(pop-to-buffer buffer)))
@@ -309,11 +310,11 @@
(defun left (&optional num)
(interactive "p")
(prog1 (dotimes (n num n)
- (decf (car (last *index*)))
(unless (sgf-ref *sgf* *index*)
(update-display)
(error "sgf: no more backwards moves."))
- (revert-moves *board* (sgf-ref *sgf* *index*)))
+ (revert-moves *board* (sgf-ref *sgf* *index*))
+ (decf (car (last *index*))))
(update-display)))
(defun right (&optional num)
@@ -321,6 +322,7 @@
(prog1 (dotimes (n num n)
(incf (car (last *index*)))
(unless (sgf-ref *sgf* *index*)
+ (decf (car (last *index*)))
(update-display)
(error "sgf: no more forward moves."))
(apply-moves *board* (sgf-ref *sgf* *index*)))
