[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 07cfdfb 2/7: [gnugo] Make ‘C-c C-p’ output more spacious.
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] master 07cfdfb 2/7: [gnugo] Make ‘C-c C-p’ output more spacious. |
Date: |
Thu, 9 Feb 2017 23:34:01 -0500 (EST) |
branch: master
commit 07cfdfb9acde6630d131407802d0bc69f8ed9a28
Author: Thien-Thi Nguyen <address@hidden>
Commit: Thien-Thi Nguyen <address@hidden>
[gnugo] Make ‘C-c C-p’ output more spacious.
* packages/gnugo/gnugo.el (gnugo-describe-internal-properties):
Don't display the properties as one form; instead, display both
property name and value starting in column zero, and add a blank
line between properties.
---
packages/gnugo/gnugo.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 0fad0ac..ed5e07d 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -336,9 +336,16 @@ Handle the big, slow-to-render, and/or uninteresting ones
specially."
(erase-buffer)
(emacs-lisp-mode)
(setq truncate-lines t)
+ (insert ";;; " (message "%d properties" (length acc)))
(save-excursion
- (pp acc
- (current-buffer))
+ (cl-loop
+ with standard-output = (current-buffer)
+ for (key . val) in acc
+ do (progn
+ (unless (bolp)
+ (newline))
+ (print key)
+ (pp val)))
(goto-char (point-min))
(let ((rx (format "overlay from \\([0-9]+\\).+\n%s\\s-+"
(if (string= "" d)
@@ -348,8 +355,7 @@ Handle the big, slow-to-render, and/or uninteresting ones
specially."
(let ((pos (get-text-property (string-to-number (match-string 1))
'gnugo-position buf)))
(delete-region (+ 2 (match-beginning 0)) (point))
- (insert (format " %S" pos))))))
- (message "%d properties" (length acc))))
+ (insert (format " %S" pos))))))))
(defun gnugo-board-buffer-p (&optional buffer)
"Return non-nil if BUFFER is a GNUGO Board buffer."
- [elpa] master updated (3afbd19 -> 2bb5571), Thien-Thi Nguyen, 2017/02/09
- [elpa] master 42213a6 1/7: [gnugo] Drop trailing fullstop for "... done" messages., Thien-Thi Nguyen, 2017/02/09
- [elpa] master 07cfdfb 2/7: [gnugo] Make ‘C-c C-p’ output more spacious.,
Thien-Thi Nguyen <=
- [elpa] master d24e40f 3/7: [gnugo] Make ‘gnugo-goto-pos’ return buffer position., Thien-Thi Nguyen, 2017/02/09
- [elpa] master 50a5172 4/7: [gnugo int] Decruft: Don't bother w/ ‘group’ text property., Thien-Thi Nguyen, 2017/02/09
- [elpa] master 5341f51 6/7: [gnugo int] Reduce ‘setq’ usage., Thien-Thi Nguyen, 2017/02/09
- [elpa] master 7ef97ed 5/7: [gnugo] Add abstraction: gnugo-aqr, Thien-Thi Nguyen, 2017/02/09
- [elpa] master 2bb5571 7/7: [gnugo] Drop trailing fullstop in animation message., Thien-Thi Nguyen, 2017/02/09