[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 24/51: [gnugo int] Use ‘numbe r-sequence’ more.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 24/51: [gnugo int] Use ‘numbe r-sequence’ more. |
Date: |
Mon, 24 Feb 2014 12:30:21 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 9fa079c3c9328041a79cd387104e95b4eb998bbc
Author: Thien-Thi Nguyen <address@hidden>
Date: Thu Feb 6 10:59:30 2014 +0100
[gnugo int] Use ‘number-sequence’ more.
* packages/gnugo/gnugo.el (gnugo-animate-group):
For image display ‘spec’ handling, don't map over
an exploded string, ignoring the individual characters,
and manually toggling the state; instead, map over an
integer, using the number's divisibility by two to select.
---
packages/gnugo/gnugo.el | 9 ++++-----
1 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 0297ed2..12b7e88 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -1055,12 +1055,11 @@ To start a game try M-x gnugo."
(let* ((yin (get-text-property (point) 'gnugo-yin))
(yang (gnugo-yang (char-after)))
(up (get (gnugo-yy yin yang t) 'display))
- (dn (get (gnugo-yy yin yang) 'display))
- flip-flop)
- (mapcar (lambda (c)
- (if (setq flip-flop (not flip-flop))
+ (dn (get (gnugo-yy yin yang) 'display)))
+ (mapcar (lambda (n)
+ (if (cl-oddp n)
dn up))
- (mapcar 'string-to-char spec))))
+ (number-sequence 1 (length spec)))))
(t spec))))
(cell (list spec))
(ovs (save-excursion
- [elpa] 09/51: [gnugo] Wait at most 30sec for subproc output chunk., (continued)
- [elpa] 09/51: [gnugo] Wait at most 30sec for subproc output chunk., Thien-Thi Nguyen, 2014/02/24
- [elpa] 16/51: [gnugo maint] Update "next" in HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 07/51: [gnugo] Presume "modern" GNU Emacs., Thien-Thi Nguyen, 2014/02/24
- [elpa] 06/51: [gnugo] Presume working time-date.el., Thien-Thi Nguyen, 2014/02/24
- [elpa] 19/51: [gnugo maint] Revamp "ChangeLog discipline" in HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 17/51: [gnugo] Indicate buffer not modified after save., Thien-Thi Nguyen, 2014/02/24
- [elpa] 20/51: [gnugo int] Avoid variable FO RMAT for ‘message’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 14/51: [gnugo int] Use ‘displ ay’ property more., Thien-Thi Nguyen, 2014/02/24
- [elpa] 15/51: [gnugo int] Use ‘(spli t-string STR SEP t)’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 23/51: [gnugo int] Drop unused local var., Thien-Thi Nguyen, 2014/02/24
- [elpa] 24/51: [gnugo int] Use ‘numbe r-sequence’ more.,
Thien-Thi Nguyen <=
- [elpa] 18/51: [gnugo maint] Update a musing item in HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 25/51: [gnugo int] Use cl-{plus,minus}p more., Thien-Thi Nguyen, 2014/02/24
- [elpa] 27/51: [gnugo int] Hang the sync-return-stash on the process object., Thien-Thi Nguyen, 2014/02/24
- [elpa] 22/51: [gnugo maint] Add .dir-locals.el file, link in HACKING; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 29/51: [gnugo] Indicate buffer not modified after load., Thien-Thi Nguyen, 2014/02/24
- [elpa] 30/51: [gnugo maint] Update NEWS file; nfc., Thien-Thi Nguyen, 2014/02/24
- [elpa] 34/51: [gnugo int] Use ‘set-p rocess-query-on-exit-flag’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 33/51: [gnugo int] Zonk unused local var., Thien-Thi Nguyen, 2014/02/24
- [elpa] 35/51: [gnugo int] Use ‘dolis t’ and ‘destructuring-bind’., Thien-Thi Nguyen, 2014/02/24
- [elpa] 28/51: [gnugo int] Drop leading "*" in docstrings., Thien-Thi Nguyen, 2014/02/24