eschulte pushed a commit to branch go
in repository elpa.
commit 06bc8914702961417ec21b9a3ad32d59a2790cc9
Author: Eric Schulte <eric.schu...@gmx.com>
Date: Sat Jun 9 18:32:24 2012 -0600
support for playing different types of games
---
go.el | 37 +++++++++++++++++++++++++------------
1 files changed, 25 insertions(+), 12 deletions(-)
diff --git a/go.el b/go.el
index 5980172..6389417 100644
--- a/go.el
+++ b/go.el
@@ -46,17 +46,30 @@
(require 'sgf2el "back-ends/sgf2el.el")
(require 'igs "back-ends/igs.el")
-(defun play-go (&optional level)
- "Play a game of GO against gnugo.
-Optional argument LEVEL specifies gnugo's level of play."
- (interactive "P")
- (with-current-buffer
- (go-board
- (make-instance 'gnugo
- :buffer (apply #'gnugo-start-process
- (when level
- (list "--level" (number-to-string level)))))
- (make-instance 'sgf))
- (setq *autoplay* t)))
+(defun go-instantiate (back-end)
+ (interactive)
+ ;; TODO: read and set handicap.
+ (let ((it (make-instance back-end))
+ (size (read (org-icompleting-read
+ "board size: "
+ (mapcar #'number-to-string '(9 13 19)))))
+ (name (read-from-minibuffer "name: ")))
+ (setf (go-size it) size)
+ (ignoring-unsupported (setf (go-name it) name))
+ it))
+
+(defun play-go ()
+ "Play a game of GO."
+ (interactive)
+ (let ((back-end (case (intern (org-icompleting-read
+ "play against: " '("gnugo" "person")))
+ (gnugo (go-instantiate 'gnugo))
+ (person (go-instantiate 'sgf)))))
+ (with-current-buffer (apply #'go-board
+ (cons back-end
+ (unless (equal (class-of back-end) 'sgf)
+ (list (make-instance 'sgf)))))
+ (unless (equal (class-of back-end) 'sgf)
+ (setq *autoplay* t)))))
(provide 'go)
