[elpa] 118/255: cleanup in go.el

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit e4433ecfab18a39ea6b5806e7423ac507361ec37
Author: Eric Schulte <address@hidden>
Date:   Sun May 27 16:50:29 2012 -0600

    cleanup in go.el
---
 back-ends/gnugo.el |    2 +-
 back-ends/gtp.el   |    3 +--
 back-ends/igs.el   |    3 +--
 back-ends/sgf.el   |    3 +--
 go-board.el        |   12 +-----------
 go-tests.el        |    6 +++---
 go.el              |   18 ++++++++++++++++--
 7 files changed, 24 insertions(+), 23 deletions(-)

diff --git a/back-ends/gnugo.el b/back-ends/gnugo.el
index ab4e0f0..5cf9fca 100644
--- a/back-ends/gnugo.el
+++ b/back-ends/gnugo.el
@@ -26,7 +26,7 @@
 ;; Boston, MA 02110-1301, USA.
 
 ;;; CODE:
-(require 'go-util)
+(require 'go)
 (require 'gtp)
 (require 'comint)
 
diff --git a/back-ends/gtp.el b/back-ends/gtp.el
index 512265a..7a2321c 100644
--- a/back-ends/gtp.el
+++ b/back-ends/gtp.el
@@ -32,8 +32,7 @@
 ;; The GMP command set may be implemented as an extension.
 
 ;; Code:
-(require 'go-util)
-(require 'go-trans)
+(require 'go)
 
 (defun gtp-expand-color (turn)
   (case turn
diff --git a/back-ends/igs.el b/back-ends/igs.el
index 7a6659f..5d3ef40 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -30,7 +30,6 @@
 ;; http://www.pandanet.co.jp/English/commands/term/Summary.html
 
 ;; Code:
-(require 'go-util)
-(require 'go-trans)
+(require 'go)
 
 (provide 'igs)
diff --git a/back-ends/sgf.el b/back-ends/sgf.el
index 00580e6..4a0c6e0 100644
--- a/back-ends/sgf.el
+++ b/back-ends/sgf.el
@@ -30,8 +30,7 @@
 ;; This file implements an `go-trans' interface into an SGF file.
 
 ;; Code:
-(require 'go-util)
-(require 'go-trans)
+(require 'go)
 
 (defun sgf-nthcdr (sgf index)
   (let ((part sgf))
diff --git a/go-board.el b/go-board.el
index d0eb59c..6d1b239 100644
--- a/go-board.el
+++ b/go-board.el
@@ -26,8 +26,7 @@
 ;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
-(require 'go-util)
-(require 'go-trans)
+(require 'go)
 (require 'go-board-faces)
 
 (defvar *history*  nil "Holds the board history for a GO buffer.")
@@ -331,13 +330,4 @@
 (define-derived-mode go-board-mode nil "GO"
   "Major mode for viewing a GO board.")
 
-(defun go-board-play (&optional level)
-  (interactive "P")
-  (let ((*autoplay* t))
-    (go-board
-     (make-instance 'gnugo
-       :buffer (apply #'gnugo-start-process
-                      (when level
-                        (list "--level" (number-to-string level))))))))
-
 (provide 'go-board)
diff --git a/go-tests.el b/go-tests.el
index d5b7bd9..8789980 100644
--- a/go-tests.el
+++ b/go-tests.el
@@ -26,13 +26,13 @@
 ;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
-(require 'go-util)
-(require 'sgf2el)
+(require 'ert)
+(require 'go)
 (require 'go-board)
 (require 'gtp)
 (require 'gnugo)
 (require 'sgf)
-(require 'ert)
+(require 'sgf2el)
 
 
 ;;; sgf2el tests
diff --git a/go.el b/go.el
index 37394af..a33519c 100644
--- a/go.el
+++ b/go.el
@@ -1,4 +1,4 @@
-;;; go-trans.el --- Translate and transfer between GO back ends
+;;; go.el --- Play GO, translate and transfer between GO back ends
 
 ;; Copyright (C) 2012 Eric Schulte <address@hidden>
 
@@ -37,6 +37,9 @@
 (require 'go-util)
 (require 'eieio)
 
+(declare-function go-board "go-board" (back-end &rest trackers))
+(declare-function gnugo-start-process "gnugo.el" (&rest options))
+
 (put 'unsupported-back-end-command
      'error-conditions
      '(error unsupported-back-end-command))
@@ -52,6 +55,17 @@
        (defgeneric ,set-name (back-end new))
        (defsetf ,name ,set-name))))
 
+(defun play-go (&optional level)
+  "Play a game of GO against gnugo.
+Optional argument LEVEL specifies gnugo's level of play."
+  (interactive "P")
+  (let ((*autoplay* t))
+    (go-board
+     (make-instance 'gnugo
+       :buffer (apply #'gnugo-start-process
+                      (when level
+                        (list "--level" (number-to-string level))))))))
+
 ;; setf'able back-end access
 (defgeneric-w-setf go-size    "Access BACK-END size.")
 (defgeneric-w-setf go-name    "Access BACK-END name.")
@@ -67,4 +81,4 @@
 (defgeneric go-resign (back-end) "Send resign to BACK-END.")
 (defgeneric go-reset  (back-end) "Send reset to BACK-END.")
 
-(provide 'go-trans)
+(provide 'go)