[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 28da1b4 035/357: [gnugo int] Use ‘dolist’ and ‘d
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 28da1b4 035/357: [gnugo int] Use ‘dolist’ and ‘destructuring-bind’. |
Date: |
Sun, 29 Nov 2020 14:50:42 -0500 (EST) |
branch: externals/gnugo
commit 28da1b43c69ba11dc14c34b3d28956bd88915dee
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Use ‘dolist’ and ‘destructuring-bind’.
* packages/gnugo/gnugo.el (gnugo-board-mode): ...here,
instead of ‘mapc’ and ‘apply (lambda () ...)’.
---
gnugo.el | 30 ++++++++++++++----------------
1 file changed, 14 insertions(+), 16 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 1d5d5a5..340c46e 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1692,22 +1692,20 @@ In this mode, keys do not self insert. Default
keybindings:
'gnugo-option-history))
(rules "Japanese")
board-size user-color handicap komi minus-l infile)
- (mapc (lambda (x)
- (apply (lambda (var default opt &optional rx)
- (set var
- (or (when (string-match opt args)
- (let ((start (match-end 0)) s)
- (string-match (or rx "[0-9.]+") args start)
- (setq s (match-string 0 args))
- (if rx s (string-to-number s))))
- default)))
- x))
- '((board-size 19 "--boardsize")
- (user-color "black" "--color" "\\(black\\|white\\)")
- (handicap 0 "--handicap")
- (komi 0.0 "--komi")
- (minus-l nil "\\([^-]\\|^\\)-l[ ]*" "[^ ]+")
- (infile nil "--infile" "[ ]*[^ ]+")))
+ (dolist (x '((board-size 19 "--boardsize")
+ (user-color "black" "--color" "\\(black\\|white\\)")
+ (handicap 0 "--handicap")
+ (komi 0.0 "--komi")
+ (minus-l nil "\\([^-]\\|^\\)-l[ ]*" "[^ ]+")
+ (infile nil "--infile" "[ ]*[^ ]+")))
+ (destructuring-bind (var default opt &optional rx) x
+ (set var
+ (or (when (string-match opt args)
+ (let ((start (match-end 0)) s)
+ (string-match (or rx "[0-9.]+") args start)
+ (setq s (match-string 0 args))
+ (if rx s (string-to-number s))))
+ default))))
(gnugo-put :user-color user-color)
(when (string-match "--chinese-rules" args)
(setq rules "Chinese"))
- [elpa] externals/gnugo fdb7810 005/357: [gnugo] Use ‘cl-labels’ instead of ‘flet’., (continued)
- [elpa] externals/gnugo fdb7810 005/357: [gnugo] Use ‘cl-labels’ instead of ‘flet’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 9ec0f3e 007/357: [gnugo] Presume "modern" GNU Emacs., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0893d87 010/357: [gnugo] Don't use ‘process-kill-buffer-query-function’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7484ea0 011/357: [gnugo maint] Add HACKING; prune Commentary; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5b0f262 012/357: [gnugo doc] Document version-number scheme., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo fee8b33 015/357: [gnugo int] Use ‘(split-string STR SEP t)’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7f961b7 016/357: [gnugo maint] Update "next" in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f84b823 018/357: [gnugo maint] Update a musing item in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 0838a13 021/357: [gnugo gtp int] Use :post-thunk instead of :post-hook., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo e16a8d5 031/357: [gnugo int] Add abstraction: gnugo--unclose-game, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 28da1b4 035/357: [gnugo int] Use ‘dolist’ and ‘destructuring-bind’.,
Stefan Monnier <=
- [elpa] externals/gnugo 08b2a66 017/357: [gnugo] Indicate buffer not modified after save., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 9893ff1 027/357: [gnugo int] Hang the sync-return-stash on the process object., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b8b8763 037/357: [gnugo maint] Update "next" in HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a4b96a1 024/357: [gnugo int] Use ‘number-sequence’ more., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 402bf68 039/357: [gnugo] Don't show underscore in group-animation message., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7647c9c 062/357: [gnugo int] Avoid redundant calls to ‘gnugo-get’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo fef1847 040/357: [gnugo] Use special constructs for keybindings in docstrings., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5c8f31d 043/357: [gnugo maint] Update HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2d4c9ad 046/357: [gnugo] New command: ‘_’ and ‘M-_’ (gnugo-boss-is-near), Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 02c55b7 054/357: [gnugo] Release: 2.3.1, Stefan Monnier, 2020/11/29