[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 80a22a5 032/357: [gnugo] Use ‘user-error’.
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 80a22a5 032/357: [gnugo] Use ‘user-error’. |
Date: |
Sun, 29 Nov 2020 14:50:41 -0500 (EST) |
branch: externals/gnugo
commit 80a22a5b8d1c5564ba69527e5bbaac13570cbedf
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo] Use ‘user-error’.
* packages/gnugo/gnugo.el (gnugo-gate)
(gnugo-synchronous-send/return, gnugo-toggle-image-display)
(gnugo-position, gnugo-pass, gnugo-animate-group)
(gnugo-toggle-dead-group, gnugo-write-sgf-file)
(gnugo-read-sgf-file, gnugo-magic-undo)
(gnugo-display-final-score, gnugo-board-mode): ...here.
---
gnugo.el | 47 ++++++++++++++++++++++++-----------------------
1 file changed, 24 insertions(+), 23 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 8777864..e2dbd21 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -296,14 +296,14 @@ Handle the big, slow-to-render, and/or uninteresting ones
specially."
(defun gnugo-gate (&optional in-progress-p)
(unless (gnugo-board-buffer-p)
- (error "Wrong buffer -- try M-x gnugo"))
+ (user-error "Wrong buffer -- try M-x gnugo"))
(unless (gnugo-get :proc)
- (error "No \"gnugo\" process!"))
+ (user-error "No \"gnugo\" process!"))
(when (gnugo-get :waitingp)
- (error "Not your turn yet -- please wait for \"\(%s to play\)\""
- (gnugo-get :user-color)))
+ (user-error "Not your turn yet -- please wait for \"\(%s to play\)\""
+ (gnugo-get :user-color)))
(when (and (gnugo-get :game-over) in-progress-p)
- (error "Sorry, game over")))
+ (user-error "Sorry, game over")))
(defun gnugo-sentinel (proc string)
(let ((status (process-status proc)))
@@ -325,7 +325,8 @@ Handle the big, slow-to-render, and/or uninteresting ones
specially."
"Return (TIME . STRING) where TIME is that returned by `current-time' and
STRING omits the two trailing newlines. See also `gnugo-query'."
(when (gnugo-get :waitingp)
- (error "Sorry, still waiting for %s to play" (gnugo-get :gnugo-color)))
+ (user-error "Sorry, still waiting for %s to play"
+ (gnugo-get :gnugo-color)))
(let ((proc (gnugo-get :proc)))
(process-put proc :srs "") ; synchronous return stash
(set-process-filter
@@ -391,10 +392,10 @@ a format string applied to the rest of the args."
(defun gnugo-toggle-image-display ()
(unless (and (fboundp 'display-images-p) (display-images-p))
- (error "Display does not support images, sorry"))
+ (user-error "Display does not support images, sorry"))
(require 'gnugo-xpms)
(unless (and (boundp 'gnugo-xpms) gnugo-xpms)
- (error "Could not load `gnugo-xpms', sorry"))
+ (user-error "Could not load `gnugo-xpms', sorry"))
(let ((fresh (or (gnugo-get :local-xpms) gnugo-xpms)))
(unless (eq fresh (gnugo-get :xpms))
(gnugo-put :xpms fresh)
@@ -990,7 +991,7 @@ its move."
(defun gnugo-position ()
(or (get-text-property (point) 'gnugo-position)
- (error "Not a proper position point")))
+ (user-error "Not a proper position point")))
(defun gnugo-move ()
"Make a move on the GNUGO Board buffer.
@@ -1004,7 +1005,7 @@ To start a game try M-x gnugo."
(move (format "play %s %s" (gnugo-get :user-color) pos))
(accept (cdr (gnugo-synchronous-send/return move))))
(unless (= ?= (aref accept 0))
- (error "%s" accept))
+ (user-error "%s" accept))
(gnugo-push-move t pos) ; value always nil for non-pass move
(let (inhibit-gnugo-refresh)
(run-hooks 'gnugo-post-move-hook)
@@ -1030,7 +1031,7 @@ To start a game try M-x gnugo."
(let ((accept (cdr (gnugo-synchronous-send/return
(format "play %s PASS" (gnugo-get :user-color))))))
(unless (= ?= (aref accept 0))
- (error "%s" accept)))
+ (user-error "%s" accept)))
(let ((donep (gnugo-push-move t "PASS"))
(buf (current-buffer)))
(let (inhibit-gnugo-refresh)
@@ -1062,7 +1063,7 @@ To start a game try M-x gnugo."
(orig-b-m-p (buffer-modified-p))
(stones (if (memq (char-after) '(?X ?O))
(gnugo-lsquery "%s %s" command pos)
- (error "No stone at %s" pos))))
+ (user-error "No stone at %s" pos))))
(message "Computing %s ... %s in group." command (length stones))
(setplist (gnugo-f 'anim) nil)
(let* ((spec (let ((spec (split-string gnugo-animation-string "" t)))
@@ -1154,9 +1155,9 @@ you may consider modifying the `gnugo-toggle-dead-group'
source code
to enable full functionality."
(interactive)
(let ((game-over (or (gnugo-get :game-over)
- (error "Sorry, game still in play")))
+ (user-error "Sorry, game still in play")))
(group (or (get-text-property (point) 'group)
- (error "No stone at that position")))
+ (user-error "No stone at that position")))
(now (current-time)))
(gnugo-put :scoring-seed (logior (ash (logand (car now) 255) 16)
(cadr now)))
@@ -1213,7 +1214,7 @@ If FILENAME already exists, Emacs confirms that you wish
to overwrite it."
(interactive "FWrite game as SGF file: ")
(when (and (file-exists-p filename)
(not (y-or-n-p "File exists. Continue? ")))
- (error "Not writing %s" filename))
+ (user-error "Not writing %s" filename))
(gnugo/sgf-write-file (gnugo-get :sgf-collection) filename)
(set-buffer-modified-p nil))
@@ -1221,7 +1222,7 @@ If FILENAME already exists, Emacs confirms that you wish
to overwrite it."
"Load the first game tree from FILENAME, a file in SGF format."
(interactive "fSGF file to load: ")
(when (file-directory-p filename)
- (error "Cannot load a directory (try a filename with extension .sgf)"))
+ (user-error "Cannot load a directory (try a filename with extension
.sgf)"))
(let (ans play wait samep coll)
;; problem: requiring GTP `loadsgf' complicates network subproc support;
;; todo: skip it altogether when confident about `gnugo/sgf-read-file'
@@ -1229,7 +1230,7 @@ If FILENAME already exists, Emacs confirms that you wish
to overwrite it."
(format "loadsgf %s"
(expand-file-name filename)))))
0))
- (error "%s" ans))
+ (user-error "%s" ans))
(setq play (substring ans 2)
wait (gnugo-other play)
samep (string= (gnugo-get :user-color) play))
@@ -1327,7 +1328,7 @@ turn to play. Optional second arg NOALT non-nil inhibits
this."
(gnugo-goto-pos ,pos)
(memq (char-after) '(?. ?+))))
(when (funcall done)
- (error "%s already clear" pos))
+ (user-error "%s already clear" pos))
(let ((u (gnugo-get :user-color)))
(when (= (save-excursion
(gnugo-goto-pos pos)
@@ -1335,14 +1336,14 @@ turn to play. Optional second arg NOALT non-nil
inhibits this."
(if (string= "black" u)
?O
?X))
- (error "%s not occupied by %s" pos u)))))
- (t (error "Bad spec: %S" spec)))
+ (user-error "%s not occupied by %s" pos u)))))
+ (t (user-error "Bad spec: %S" spec)))
(when (gnugo-get :game-over)
(gnugo--unclose-game))
(while (not (funcall done))
(setq ans (cdr (gnugo-synchronous-send/return "undo")))
(unless (= ?= (aref ans 0))
- (error "%s" ans))
+ (user-error "%s" ans))
(aset monkey 2 (decf count))
(aset monkey 1 (setq mem (cdr mem)))
(aset monkey 0 (or (car mem) (gnugo-get :sgf-gametree)))
@@ -1391,7 +1392,7 @@ Also, add the `:RE' SGF property to the root node of the
game tree."
(unless (or (gnugo-get :game-over)
(and (not (gnugo-get :waitingp))
(y-or-n-p "Game still in play. Stop play now? ")))
- (error "Sorry, game still in play"))
+ (user-error "Sorry, game still in play"))
(unless (gnugo-get :game-over)
(cl-labels
((pass (userp)
@@ -1678,7 +1679,7 @@ In this mode, keys do not self insert. Default
keybindings:
(o (substring gnugo-program (match-end 0)))
(h (or (car gnugo-option-history) "")))
(when (string-match "--mode" o)
- (error "Found \"--mode\" in `gnugo-program'"))
+ (user-error "Found \"--mode\" in `gnugo-program'"))
(when (and o (cl-plusp (length o))
h (cl-plusp (length o))
(or (< (length h) (length o))
- [elpa] externals/gnugo 8e3f44e 070/357: [gnugo] Make ‘C-u M-u’ switch roles., (continued)
- [elpa] externals/gnugo 8e3f44e 070/357: [gnugo] Make ‘C-u M-u’ switch roles., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d02a500 095/357: [gnugo maint] NEWS futzing; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 273da4b 098/357: [gnugo sgf] Normalize PASS internal rep on read, as ""., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 61be18a 022/357: [gnugo maint] Add .dir-locals.el file, link in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0c7bc82 025/357: [gnugo int] Use cl-{plus, minus}p more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6d835b3 023/357: [gnugo int] Drop unused local var., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2a75447 034/357: [gnugo int] Use ‘set-process-query-on-exit-flag’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo bd4d40f 028/357: [gnugo int] Drop leading "*" in docstrings., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7ef5c66 036/357: [gnugo int] Revamp gnugo-{put, get} doc / indentation decl., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d41a581 029/357: [gnugo] Indicate buffer not modified after load., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 80a22a5 032/357: [gnugo] Use ‘user-error’.,
Stefan Monnier <=
- [elpa] externals/gnugo 423683d 055/357: [gnugo int] Use ‘dolist’, ‘destructuring-bind’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7c3a30f 100/357: [gnugo int] Use ‘pop’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a35692a 106/357: [gnugo int] Add abstraction: gnugo--move-prop, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 6ee477d 112/357: [gnugo int] Remove abstraction: continue-on, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 58d4d6d 117/357: [gnugo int] Add abstractions: gnugo--{, set-}tree-ends, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f107328 122/357: [gnugo int] Expand gametree IR: MNUM, KIDS, ROOT., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c3b3c3f 123/357: [gnugo int] Fix bug: Detect case for KIDS addition correctly., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a63d31b 128/357: [gnugo int] Comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3a7f75e 132/357: [gnugo] Define "GNUGO Frolic" mode., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo cb78651 138/357: [gnugo frolic] Add command to prune a branch., Stefan Monnier, 2020/11/29