[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 8203f46 194/357: [gnugo int] Centralize some cons
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 8203f46 194/357: [gnugo int] Centralize some constant strings. |
Date: |
Sun, 29 Nov 2020 14:51:20 -0500 (EST) |
branch: externals/gnugo
commit 8203f4614d6fbe782a563ffdfcedc330dc62748f
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Centralize some constant strings.
* packages/gnugo/gnugo.el (gnugo--rename-buffer-portion): Rewrite.
(gnugo-get-move-insertion-filter): Update call.
(gnugo-request-suggestion): Likewise.
---
gnugo.el | 17 ++++++++++-------
1 file changed, 10 insertions(+), 7 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 1e202ce..97d406d 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1569,10 +1569,14 @@ its move."
;;;---------------------------------------------------------------------------
;;; Game play actions
-(defun gnugo--rename-buffer-portion (old new)
- (let ((name (buffer-name)))
- (when (string-match old name)
- (rename-buffer (replace-match new t t name)))))
+(defun gnugo--rename-buffer-portion (&optional back)
+ (let ((old "to play")
+ (new "waiting for suggestion"))
+ (when back
+ (rotatef old new))
+ (let ((name (buffer-name)))
+ (when (string-match old name)
+ (rename-buffer (replace-match new t t name))))))
(defun gnugo-get-move-insertion-filter (proc string)
(with-current-buffer (process-buffer proc)
@@ -1586,8 +1590,7 @@ its move."
(gnugo-put :waiting nil)
(if suggestion
(progn
- (gnugo--rename-buffer-portion "waiting for suggestion"
- "to play")
+ (gnugo--rename-buffer-portion t)
(unless (or (gnugo--passp full)
(eq 'nowarp suggestion))
(gnugo-goto-pos pos-or-pass))
@@ -1637,7 +1640,7 @@ Emacs displays the suggestion in the echo area and warps
the
cursor to the suggested position. Prefix arg inhibits warp."
(interactive "P")
(gnugo-gate t)
- (gnugo--rename-buffer-portion "to play" "waiting for suggestion")
+ (gnugo--rename-buffer-portion)
(gnugo-get-move (gnugo-get :user-color)
(if nowarp
'nowarp
- [elpa] externals/gnugo a63d31b 128/357: [gnugo int] Comment munging; nfc., (continued)
- [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
- [elpa] externals/gnugo 7025924 156/357: [gnugo sgf] Fix bug: Add ‘\’-escapes on write., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e64f1ae 170/357: [gnugo frolic] Add previous/next move navigation commands., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c78119f 191/357: [gnugo int] Add abstraction: gnugo--finish-move, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a3d90aa 189/357: [gnugo maint] Update HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5dcf9f6 185/357: [gnugo int] Add abstraction: gnugo--node-with-played-stone, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 1367651 173/357: [gnugo int] Make ‘gnugo-gate’ slightly faster., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a4c246e 188/357: [gnugo frolic] Display "!" for comment; add as ‘help-echo’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8203f46 194/357: [gnugo int] Centralize some constant strings.,
Stefan Monnier <=
- [elpa] externals/gnugo b1f2856 183/357: [gnugo] Fix bug: Keep subproc informed of forced PASS., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3112192 056/357: [gnugo int] Streamline subproc (de-)marshalling., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 294bdc1 047/357: [gnugo maint] Update NEWS; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b5f47cb 059/357: [gnugo int] Use ‘pcase’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8cabdfa 042/357: [gnugo int] Use internal macros more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b484515 064/357: [gnugo int] Use ‘loop’, functional style more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a7dffa0 067/357: [gnugo maint] Update NEWS; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d2b4549 068/357: [gnugo] Bind ‘M-u’ to ‘gnugo-undo-one-move’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f82c526 078/357: [gnugo int] Use ‘following-char’ instead of ‘char-after’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f29b22f 081/357: [gnugo int] Use ‘setq’ less., Stefan Monnier, 2020/11/29