[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 11dadfbf3b: Make the Unicode tree widget prettier
From: |
Lars Ingebrigtsen |
Subject: |
master 11dadfbf3b: Make the Unicode tree widget prettier |
Date: |
Sun, 5 Jun 2022 10:00:24 -0400 (EDT) |
branch: master
commit 11dadfbf3b497a86d2b0fb4c51eb95c5b4c13423
Author: JD Smith <jdtsmith@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make the Unicode tree widget prettier
* lisp/tree-widget.el (tree-widget-nohandle-guide): New widget:
"One small change is needed to accommodate this
style. `tree-widget-guide’ specifies a single vertical bar “guide”
widget. In the unicode tree, two separate vertical bars are needed
— one “plain” (│), and one which connects to the horizontal
“handle” preceding the node (├)."
(tree-widget--cursors):
(tree-widget):
(tree-widget-value-create): Use it.
Copyright-paperwork-exempt: yes
---
lisp/tree-widget.el | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el
index 4ba96a36a4..f91b36bfc2 100644
--- a/lisp/tree-widget.el
+++ b/lisp/tree-widget.el
@@ -319,6 +319,7 @@ has been found accessible."
'(
("guide" . arrow)
("no-guide" . arrow)
+ ("nohandle-guide" . arrow)
("end-guide" . arrow)
("handle" . arrow)
("no-handle" . arrow)
@@ -440,6 +441,12 @@ Handle mouse button 1 click on buttons.")
:format "%t"
)
+(define-widget 'tree-widget-nohandle-guide 'item
+ "Vertical guide line, when there is no handle."
+ :tag " |"
+ ;;:tag-glyph (tree-widget-find-image "nohandle-guide")
+ :format "%t")
+
(define-widget 'tree-widget-end-guide 'item
"End of a vertical guide line."
:tag " \\=`"
@@ -483,6 +490,7 @@ Handle mouse button 1 click on buttons.")
:empty-icon 'tree-widget-empty-icon
:leaf-icon 'tree-widget-leaf-icon
:guide 'tree-widget-guide
+ :nohandle-guide 'tree-widget-nohandle-guide
:end-guide 'tree-widget-end-guide
:no-guide 'tree-widget-no-guide
:handle 'tree-widget-handle
@@ -612,11 +620,13 @@ This hook should be local in the buffer setup to display
widgets.")
;;;; Expanded node.
(let ((args (widget-get tree :args))
(guide (widget-get tree :guide))
+ (nohandle-guide (widget-get tree :nohandle-guide))
(noguide (widget-get tree :no-guide))
(endguide (widget-get tree :end-guide))
(handle (widget-get tree :handle))
(nohandle (widget-get tree :no-handle))
(guidi (tree-widget-find-image "guide"))
+ (nohandle-guidi (tree-widget-find-image "nohandle-guide"))
(noguidi (tree-widget-find-image "no-guide"))
(endguidi (tree-widget-find-image "end-guide"))
(handli (tree-widget-find-image "handle"))
@@ -648,8 +658,8 @@ This hook should be local in the buffer setup to display
widgets.")
;; Insert guide lines elements from previous levels.
(dolist (f (reverse flags))
(widget-create-child-and-convert
- tree (if f guide noguide)
- :tag-glyph (if f guidi noguidi))
+ tree (if f nohandle-guide noguide)
+ :tag-glyph (if f nohandle-guidi noguidi))
(widget-create-child-and-convert
tree nohandle :tag-glyph nohandli))
;; Insert guide line element for this level.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 11dadfbf3b: Make the Unicode tree widget prettier,
Lars Ingebrigtsen <=