[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo e387d96 193/357: [gnugo int] Accept color for ‘g
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo e387d96 193/357: [gnugo int] Accept color for ‘gnugo-push-move’ 1st arg. |
Date: |
Sun, 29 Nov 2020 14:51:19 -0500 (EST) |
branch: externals/gnugo
commit e387d967027377088ec23ae8048df1556a4f5914
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Accept color for ‘gnugo-push-move’ 1st arg.
* packages/gnugo/gnugo.el (gnugo-push-move):
Rename first arg to WHO; if it is not a boolean, take it
as ‘color’ directly; update "effective userp" ref likewise.
(gnugo-get-move-insertion-filter):
Pass ‘color’ directly to ‘gnugo-push-move’.
---
gnugo.el | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 37d5a5b..1e202ce 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1232,8 +1232,14 @@ This fails if the monkey is on the current branch
root)
(delq cur root))))
-(defun gnugo-push-move (userp move)
- (let* ((color (gnugo-get (if userp :user-color :gnugo-color)))
+(defun gnugo-push-move (who move)
+ (let* ((simple (booleanp who))
+ (ucolor (gnugo-get :user-color))
+ (color (if simple
+ (if who
+ ucolor
+ (gnugo-get :gnugo-color))
+ who))
(start (gnugo-get :waiting-start))
(now (current-time))
(resignp (string= "resign" move))
@@ -1248,7 +1254,9 @@ This fails if the monkey is on the current branch
(unless passp
(gnugo-merge-showboard-results))
(gnugo-put :last-mover color)
- (when userp
+ (when (if simple
+ who
+ (string= ucolor color))
(gnugo-put :last-user-bpos (and (not passp) (not resignp) move)))
;; update :sgf-gametree and :monkey
(let* ((property (if (gnugo--blackp color)
@@ -1586,9 +1594,7 @@ its move."
(message "%sSuggestion: %s"
(gnugo-get :diamond)
pos-or-pass))
- (gnugo-push-move (string= (gnugo-get :user-color)
- color)
- pos-or-pass)
+ (gnugo-push-move color pos-or-pass)
(gnugo--finish-move (current-buffer))))))))
(defun gnugo-get-move (color &optional suggestion)
- [elpa] externals/gnugo 5566285 026/357: [gnugo] Give names and docstrings to ‘lambda’ commands., (continued)
- [elpa] externals/gnugo 5566285 026/357: [gnugo] Give names and docstrings to ‘lambda’ commands., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 62a7c8d 052/357: [gnugo slog] Specify second arg to ‘unintern’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo eae8444 113/357: [gnugo int] Specify STREAM to ‘pp’ directly., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 00ae088 120/357: [gnugo int] Use ‘gnugo--tree-ends’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo fa99b79 134/357: [gnugo int] Make ‘gnugo-board-buffer-p’ precise., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 8f99c83 151/357: [gnugo frolic int] Don't bother to awake w/ ‘col’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 283534a 157/357: [gnugo sgf int] Consolidate loops., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 671d7aa 147/357: [gnugo frolic] Sync column headers w/ buffer text; handle offsets., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 45fe672 169/357: [gnugo int] Move :SZ access into ‘gnugo--as-pos-func’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5e24ee5 182/357: [gnugo int] Use GTP ‘reg_genmove’ instead of ‘genmove’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e387d96 193/357: [gnugo int] Accept color for ‘gnugo-push-move’ 1st arg.,
Stefan Monnier <=
- [elpa] externals/gnugo 876e0d3 195/357: [gnugo] New command: ‘C-c C-a’ (gnugo-toggle-abdication), Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 1fa7d59 204/357: [gnugo int] Add abstraction: gnugo--plant-and-climb, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo d96223f 209/357: [gnugo] Move most of ‘gnugo-board-mode’ to ‘gnugo’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo eb77485 215/357: [gnugo int] Don't make ‘font-lock-defaults’ buffer-local., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 4d5f998 217/357: [gnugo int] Decruft: Drop unused local var., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e6c0a07 229/357: [gnugo int] Fix bug: On -l/--infile, don't set :last-mover., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 11543e5 232/357: [gnugo] Reduce modifier key bouncing for "quick peek" frolics., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo dae8f08 231/357: [gnugo] Fix bug: DTRT for :last-user-bpos in undo-one-move ME-NEXT., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f102d7f 240/357: [gnugo] Allow user to move for GNU Go., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 9969838 260/357: [gnugo int] Drop abstractions: gnugo--{ERR-wait, gate-game-over}, Stefan Monnier, 2020/11/29