[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [gnugo frolic] Display "! " for comment; add as ‘help-echo
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [gnugo frolic] Display "! " for comment; add as ‘help-echo’. |
Date: |
Mon, 14 Apr 2014 14:10:00 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 6ee83db199e1bdf26af5ba87693747e99a9815de
Author: Thien-Thi Nguyen <address@hidden>
Date: Mon Apr 14 16:14:00 2014 +0200
[gnugo frolic] Display "!" for comment; add as ‘help-echo’.
* packages/gnugo/gnugo.el (gnugo-frolic-in-the-leaves): ...here.
---
packages/gnugo/gnugo.el | 14 +++++++++++---
1 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index fe19d80..84620aa 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -757,7 +757,7 @@ This looks something like:
│
├─────┬─────┐
│ │ │
- 7 B -- H7 B8 C8 C8
+ 7 B -- H7 !B8 C8 C8
│
├─────┐
│ │
@@ -771,6 +771,7 @@ This looks something like:
with 0, 1, ... N (in this case N is 3) in the header line
to indicate the branches. Branch 0 is the \"main line\".
Point (* in this example) indicates the current position,
+\"!\" indicates comment properties (e.g., B8, branch 1),
and moves not actually on the game tree (e.g., E7, branch 3)
are dimmed. Type \\[describe-mode] in that buffer for details."
(interactive)
@@ -879,16 +880,23 @@ are dimmed. Type \\[describe-mode] in that buffer for
details."
do (let* ((node (unless (< (aref valid bx) n)
;; todo: ignore non-"move" nodes
(pop (aref ends bx))))
+ (zow (list* 'bx bx props))
(ok (when node
(= bx (on node))))
+ (comment (when ok
+ (cdr (assq :C node))))
(s (cond ((not node) "")
((not (setq move (gnugo--move-prop node))) "-")
(t (funcall as-pos (cdr move))))))
+ (when comment
+ (push comment zow)
+ (push 'help-echo zow))
(when (and ok (setq br (gethash node soil)))
(push (cons bx (sort br '<))
forks))
- (fsi (list* 'bx bx props)
- " %-5s"
+ (fsi zow
+ "%c%-5s"
+ (if comment ?! ?\s)
(cond ((and (eq at node)
(or ok (= bx bidx)))
(when (= bx bidx)