[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 35b1551 091/357: [gnugo int] Use ‘loop’ instead
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 35b1551 091/357: [gnugo int] Use ‘loop’ instead of ‘mapc’ + ‘apply’. |
Date: |
Sun, 29 Nov 2020 14:50:56 -0500 (EST) |
branch: externals/gnugo
commit 35b15514186ab0938ee53047dcd3b5571fa93767
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Use ‘loop’ instead of ‘mapc’ + ‘apply’.
* packages/gnugo/gnugo.el (gnugo-board-mode): ...here.
---
gnugo.el | 32 ++++++++++++++++----------------
1 file changed, 16 insertions(+), 16 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 2d68780..4448877 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1777,22 +1777,22 @@ In this mode, keys do not self insert.
(gnugo-put :sgf-collection (list tree))
(gnugo-put :monkey (vector tree nil 0)))
(gnugo--SZ! board-size)
- (let ((g-blackp (string= "white" user-color)))
- (mapc (lambda (x) (apply 'gnugo-note x))
- `((:SZ ,board-size)
- (:DT ,(format-time-string "%Y-%m-%d"))
- (:RU ,(if (string-match "--chinese-rules" args)
- "Chinese"
- "Japanese"))
- (:AP ("gnugo.el" . ,gnugo-version))
- (:KM ,komi)
- (,(if g-blackp :PW :PB) ,(user-full-name))
- (,(if g-blackp :PB :PW) ,(concat "GNU Go "
- (gnugo-query "version")))
- ,@(when (not (zerop handicap))
- `((:HA ,handicap)
- (:AB ,(gnugo-lsquery "fixed_handicap %d" handicap)
- nil t)))))))
+ (loop with gb = (gnugo--blackp (gnugo-other user-color))
+ for (property value &optional mogrifyp) in
+ `((:SZ ,board-size)
+ (:DT ,(format-time-string "%Y-%m-%d"))
+ (:RU ,(if (string-match "--chinese-rules" args)
+ "Chinese"
+ "Japanese"))
+ (:AP ("gnugo.el" . ,gnugo-version))
+ (:KM ,komi)
+ (,(if gb :PW :PB) ,(user-full-name))
+ (,(if gb :PB :PW) ,(concat "GNU Go " (gnugo-query "version")))
+ ,@(when (not (zerop handicap))
+ `((:HA ,handicap)
+ (:AB ,(gnugo-lsquery "fixed_handicap %d" handicap)
+ t))))
+ do (gnugo-note property value mogrifyp)))
(gnugo-put :waiting-start (current-time))
(gnugo-put :hmul 1)
(gnugo-put :wmul 1)
- [elpa] externals/gnugo a86a897 013/357: [gnugo int] Use ‘redisplay’ more., (continued)
- [elpa] externals/gnugo a86a897 013/357: [gnugo int] Use ‘redisplay’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3063f95 041/357: [gnugo] Make proc-status change mode-line elem more informative., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c2f7717 053/357: [gnugo slog] Fix bug: Avoid ‘cl-lib’ funcs; use only macros., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 02926a1 049/357: [gnugo] Rename var to ‘gnugo-inhibit-refresh’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5e4b5a8 051/357: [gnugo] Release: 2.3.0, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 400e27d 069/357: [gnugo int] Add abstraction: gnugo--who-is-who, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 3547cbe 080/357: [gnugo int] Add abstraction: gnugo--set-root-prop, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 11e545d 082/357: [gnugo int] Use ‘loop’ instead of ‘dolist’ + ‘destructuring-bind’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5eeb99b 087/357: [gnugo int] Use ‘incf’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7293802 088/357: [gnugo int] Use ‘setq’ less., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 35b1551 091/357: [gnugo int] Use ‘loop’ instead of ‘mapc’ + ‘apply’.,
Stefan Monnier <=
- [elpa] externals/gnugo b5990a0 085/357: [gnugo int] Use ‘gnugo-treeroot’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f9668f0 090/357: [gnugo int] Add abstraction: gnugo--blackp, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c164c40 092/357: [gnugo int] Add abstraction: gnugo--passp, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo bf04735 094/357: [gnugo] Fix bug: Don't misuse SGF prop ‘:EV’ for "resign" state., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e036fed 096/357: [gnugo] Fix bug: On load, follow mainline through subtrees., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo eaaa7c8 102/357: [gnugo int] Invert gametree IR to hang by the leaves., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo ed11a74 101/357: [gnugo int] Embrace (NODE[...] [SUBTREE...]) IR, for now., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b7843bf 103/357: [gnugo maint] Move hi-lock hint from NEWS to HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo ae888ba 105/357: [gnugo] Add command ‘gnugo-oops’ and keybinding., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2c5e356 107/357: [gnugo maint] Add some debugging aids to HACKING; nfc., Stefan Monnier, 2020/11/29