[elpa] externals/inspector 06eb60bcff 03/39: tree-inspector: indentation

[ELPA Syncer]

branch: externals/inspector
commit 06eb60bcffbad99e280de8439c00cba3d08515ed
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    tree-inspector: indentation
---
 tree-inspector.el | 52 ++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 48 insertions(+), 4 deletions(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index 5ce8a12df6..892430c483 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -49,6 +49,13 @@
     (treeview-set-node-name node (prin1-to-string object))
     node))
 
+(cl-defmethod tree-inspector--make-node ((object string))
+  (let ((node (treeview-new-node)))
+    (treeview-set-node-name node
+                           (truncate-string-to-width object
+                                                     30 nil nil "..."))
+    node))
+
 (cl-defmethod tree-inspector--make-node  ((object cons))
   (cond
    ((tree-inspector--proper-list-p object)
@@ -59,11 +66,23 @@
       (treeview-set-node-children node
        (mapcar (lambda (item)
                 (let ((child (tree-inspector--make-node item)))
-                  ;;(treeview-set-node-parent child node)
+                  (treeview-set-node-parent child node)
                   child))
               object))
       node))))
 
+(defun tree-inspector--get-indent (node)
+  "Return the indentation of NODE."
+  (let ((indent ())
+        (parent nil))
+    (while (setq parent (treeview-get-node-parent node))
+      (setq indent (cons (if (treeview-last-child-p parent)
+                             dir-treeview-indent-last-unit
+                             dir-treeview-indent-unit)
+                         indent)
+            node parent))
+    indent))
+
 (defgroup tree-inspector nil
   "tree-inspector"
   :group 'applications)
@@ -97,6 +116,27 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
   :group 'tree-inspector
   :type '(repeat (cons (string :tag "Key    ") (function :tag "Command"))))
 
+(defcustom tree-inspector-indent-unit "  |  "
+  "Symbol to indent directories when the parent is not the last child."
+  :group 'tree-inspector
+  :type 'string)
+
+(defcustom tree-inspector-indent-last-unit "     "
+  "Symbol to indent directories when the parent is the last child of its 
parent."
+  :group 'tree-inspector
+  :type 'string)
+
+(defcustom tree-inspector-folded-node-control "[+]"
+  "Control symbol for folded directories."
+  :group 'tree-inspector
+  :type 'string)
+
+(defcustom tree-inspector-expanded-node-control "[-]"
+  "Control symbol for expanded directories."
+  :group 'tree-inspector
+  :type 'string)
+
+
 (defun tree-inspector-inspect (data)
   (let ((buffer (get-buffer-create (format "*tree-inspector: %s*" data))))
     (with-current-buffer buffer
@@ -105,11 +145,13 @@ in a format understood by `kbd'.  Commands a names of 
Lisp functions."
       (setq-local treeview-get-indent-function
                  (lambda (node) (list " ")))
       (setq-local treeview-get-label-function #'first)
+      (setq-local treeview-get-indent-function #'tree-inspector--get-indent)
       (setq-local treeview-get-control-function
                  (lambda (node)
-                   (if (treeview-get-node-children node)
-                       "[+]"
-                     nil)))
+                   (when (treeview-get-node-children node)
+                     (if (treeview-node-folded-p node)
+                         tree-inspector-folded-node-control
+                       tree-inspector-expanded-node-control))))
       (setq-local treeview-update-node-children-function
                  (cl-constantly nil))
       (setq-local treeview-after-node-expanded-function
@@ -124,8 +166,10 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
                    (treeview-make-keymap tree-inspector-label-keymap)))
       (treeview-display-node (tree-inspector--make-node data))
       (setq buffer-read-only t)
+      (local-set-key (kbd "q") #'kill-current-buffer)
       (display-buffer buffer))))
 
 
 (tree-inspector-inspect 2)
 (tree-inspector-inspect (list 1 2 3))
+(tree-inspector-inspect (list 1 2 3 (list "lala" "sf")))