[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnugo 36a2fd5 291/357: [gnugo int] Accomodate XPM w/ :c
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnugo 36a2fd5 291/357: [gnugo int] Accomodate XPM w/ :color-symbols property. |
Date: |
Sun, 29 Nov 2020 14:51:41 -0500 (EST) |
branch: externals/gnugo
commit 36a2fd5bcdd71f0201bc5d54f7cab552232f2d85
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[gnugo int] Accomodate XPM w/ :color-symbols property.
* packages/gnugo/gnugo.el (gnugo-venerate):
...here, propagating the foreground :color-symbols
and value, if available, to the new XPM.
---
gnugo.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/gnugo.el b/gnugo.el
index 304d34e..f6fafaa 100644
--- a/gnugo.el
+++ b/gnugo.el
@@ -1455,7 +1455,9 @@ This fails if the monkey is on the current branch
(let* ((fg-yy (gnugo-yy yin yang))
(fg-disp (or (get fg-yy 'display)
(get fg-yy 'do-not-display)))
- (fg-data (plist-get (cdr fg-disp) :data))
+ (fg-props (cdr fg-disp))
+ (fg-data (plist-get fg-props :data))
+ (c-symbs (plist-get fg-props :color-symbols))
(bg-yy (gnugo-yy yin (gnugo-yang ?.)))
(bg-disp (or (get bg-yy 'display)
(get bg-yy 'do-not-display)))
@@ -1483,7 +1485,10 @@ This fails if the monkey is on the current branch
(aset new sx (aref bg-data sb)))
(incf sx)
(incf sb))
- (create-image new 'xpm t :ascent 'center)))
+ (apply 'create-image new 'xpm t
+ :ascent 'center (when c-symbs
+ (list :color-symbols
+ c-symbs)))))
(defun gnugo-refresh (&optional nocache)
"Update GNUGO Board buffer display.
- [elpa] externals/gnugo af7aa4a 267/357: [gnugo] Fix bug: On role switch, flip karma after roles., (continued)
- [elpa] externals/gnugo af7aa4a 267/357: [gnugo] Fix bug: On role switch, flip karma after roles., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo b6ac4ac 283/357: [gnugo frolic] Add command to navigate to end of branch., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5414994 277/357: [gnugo] Handle function for ‘gnugo-xpms’ value., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f42837f 280/357: [gnugo int] Mention ‘gnugo-frolic-mode-map’ in Commentary; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo ef2bfa7 273/357: [gnugo maint] Update HACKING; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 407ca43 266/357: [gnugo int] Move some ‘gnugo-gate’ calls down-chain., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 1ce9fbb 312/357: [gnugo slog] Clear ‘inhibit-point-motion-hooks’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 9208a24 317/357: * gnugo/gnugo.el (gnugo-refresh): Fix unknown function `pushnew`, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 61a7217 297/357: [gnugo maint] Add some headers to gnugo-frolic.el; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 5b213db 293/357: fixup! [gnugo imgen] New feature: gnugo-imgen, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 36a2fd5 291/357: [gnugo int] Accomodate XPM w/ :color-symbols property.,
Stefan Monnier <=
- [elpa] externals/gnugo 2d4e59e 292/357: [gnugo imgen] New feature: gnugo-imgen, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 7478f81 302/357: [gnugo int] Bump required ‘xpm’ version to "1.0.1"., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo f1c7c8d 319/357: [gnugo int] Fix verse meter; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo da8901f 314/357: [gnugo] Release: 3.0.1, Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a667440 298/357: [gnugo int] Fix up gnugo-frolic.el ‘require’ forms., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo abd1fa0 315/357: [gnugo int] Use ‘replace-regexp-in-string’., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo 2e6bbe5 300/357: [gnugo int] Whitespace, comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo c0f6ed5 328/357: [gnugo int] Comment munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo cf36ccd 331/357: [gnugo int] Whitespace munging; nfc., Stefan Monnier, 2020/11/29
- [elpa] externals/gnugo a70a854 336/357: [gnugo] Add abstraction: gnugo-aqr, Stefan Monnier, 2020/11/29