[gnugo int] Add abstraction: gnugo--nquery

* packages/gnugo/gnugo.el (gnugo--nquery): New func.
(gnugo): Use ‘gnugo--nquery’.
(:gnugo-gtp-command-spec): Likewise.

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 1063ebd1d58542e40f41b1b1866ab683c47a3a1a..60a1270a60f33e2bd7fd42451cda7c44a2b3a40c 100644 (file)
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -425,6 +425,9 @@ when you are sure the command cannot fail."
   (substring (apply 'gnugo--q message-format args)
              2))
 
+(defun gnugo--nquery (cmd)
+  (string-to-number (gnugo-query cmd)))
+
 (defun gnugo-lsquery (message-format &rest args)
   (split-string (apply 'gnugo-query message-format args)))
 
@@ -2475,7 +2478,7 @@ starting a new one.  See `gnugo-board-mode' documentation for more info."
                 in '((board-size "query_boardsize")
                      (komi       "get_komi")
                      (handicap   "get_handicap"))
-                do (set prop (string-to-number (gnugo-query q)))))
+                do (set prop (gnugo--nquery q))))
         (gnugo-put :diamond (substring (process-name proc) 5))
         (gnugo-put :gnugo-color (gnugo-other user-color))
         (gnugo--SZ! board-size)
@@ -2660,9 +2663,7 @@ starting a new one.  See `gnugo-board-mode' documentation for more info."
                       (gnugo--unclose-game)
                       (gnugo--forget :last-mover)
                       ;; ugh
-                      (gnugo--SZ! (string-to-number
-                                   (gnugo-query
-                                    "query_boardsize")))
+                      (gnugo--SZ! (gnugo--nquery "query_boardsize"))
                       (gnugo-refresh t)))
 
       (deffull loadsgf