[elpa] 01/05: [gnugo] Define "GNUGO Frolic" mode.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 9fab7a88f792c721c391319f1005365f467c3c97
Author: Thien-Thi Nguyen <address@hidden>
Date:   Tue Apr 8 08:33:51 2014 +0200

    [gnugo] Define "GNUGO Frolic" mode.
    
    * packages/gnugo/gnugo.el (gnugo-frolic-mode):
    New command, via ‘define-derived-mode’.
    (gnugo-frolic-in-the-leaves): Use it.
---
 packages/gnugo/NEWS     |    1 +
 packages/gnugo/gnugo.el |   20 ++++++++++++++------
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/packages/gnugo/NEWS b/packages/gnugo/NEWS
index e079fb3..e813c77 100644
--- a/packages/gnugo/NEWS
+++ b/packages/gnugo/NEWS
@@ -17,6 +17,7 @@ NB: "RCS: X..Y " means that the particular release includes
   - ‘gnugo-undo-one-move’ can optionally arrange for you to play next
   - new command: ‘o’ (gnugo-oops)
   - new command: ‘L’ (gnugo-frolic-in-the-leaves)
+  - new major mode: GNUGO Frolic (gnugo-frolic-mode)
   - ‘gnugo-move-history’ returns last two moves w/ RSEL ‘two’
   - performance improvements
   - of interest to hackers (see source, BI => backward incompatible)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 9734595..0c7e682 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -711,6 +711,15 @@ For all other values of RSEL, do nothing and return nil."
         (`two (nn) (nn) acc)
         (_ nil)))))
 
+(define-derived-mode gnugo-frolic-mode special-mode "GNUGO Frolic"
+  "A special mode for viewing a GNUGO gametree.
+Initially View minor mode is active.
+
+\\{gnugo-frolic-mode-map}"
+  (buffer-disable-undo)
+  ;; Is this idio{ma}tic?
+  (view-mode 1))
+
 (defun gnugo-frolic-in-the-leaves ()
   "Display the game tree in a *GNUGO Frolic* buffer.
 This looks something like:
@@ -739,7 +748,7 @@ with 0, 1, ... N (in this case N is 3) in the header line
 to indicate the branches.  Branch 0 is the \"main line\".
 Point (* in this example) indicates the current position,
 and moves not actually on the game tree (e.g., E7, branch 3)
-are dimmed.  The buffer is in View minor mode."
+are dimmed.  Type \\[describe-mode] in that buffer for details."
   (interactive)
   (let* ((buf (get-buffer-create (concat (gnugo-get :diamond)
                                          "*GNUGO Frolic*")))
@@ -761,6 +770,7 @@ are dimmed.  The buffer is in View minor mode."
                                (gethash (car end) mnum))
                      ends))
          (max-move-num (apply 'max (append valid nil)))
+         (inhibit-read-only t)
          finish)
     (cl-flet
         ((on (node)
@@ -790,9 +800,7 @@ are dimmed.  The buffer is in View minor mode."
            until fork))
       ;; breathe out
       (switch-to-buffer buf)
-      (when view-mode
-        (view-mode -1))
-      (buffer-disable-undo)
+      (gnugo-frolic-mode)
       (erase-buffer)
       (setq header-line-format
             (concat (make-string 11 ?\s)
@@ -895,8 +903,8 @@ are dimmed.  The buffer is in View minor mode."
                     (point))))))))
     (when finish
       (goto-char finish)
-      (recenter (- (count-lines (line-beginning-position) (point-max)))))
-    (view-mode 1)))
+      (recenter (- (count-lines (line-beginning-position)
+                                (point-max)))))))
 
 (defun gnugo-boss-is-near ()
   "Do `bury-buffer' until the current one is not a GNU Board."