[elpa] externals/inspector e2e56201a0 01/39: Starting a tree-inspector with treeview

[ELPA Syncer]

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

    Starting a tree-inspector with treeview
---
 tree-inspector.el | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)

diff --git a/tree-inspector.el b/tree-inspector.el
new file mode 100644
index 0000000000..d69389e0b5
--- /dev/null
+++ b/tree-inspector.el
@@ -0,0 +1,85 @@
+(require 'eieio)
+(require 'treeview)
+(require 'mule-util)
+
+;;---- Utils ----------
+
+(defun tree-inspector--princ-to-string (object)
+  "Print OBJECT to string using `princ'."
+  (with-output-to-string
+    (princ object)))
+
+(defun tree-inspector--proper-list-p (val)
+  "Is VAL a proper list?"
+  (if (fboundp 'format-proper-list-p)
+      ;; Emacs stable.
+      (with-no-warnings (format-proper-list-p val))
+    ;; Function was renamed in Emacs master:
+    ;; 
http://git.savannah.gnu.org/cgit/emacs.git/commit/?id=2fde6275b69fd113e78243790bf112bbdd2fe2bf
+    (with-no-warnings (proper-list-p val))))
+
+(defun tree-inspector--plistp (list)
+  "Return T if LIST is a property list."
+  (let ((expected t))
+    (and (tree-inspector--proper-list-p list)
+         (cl-evenp (length list))
+         (cl-every (lambda (x)
+                     (setq expected (if (eql expected t) 'symbol t))
+                     (cl-typep x expected))
+                   list))))
+
+(defun tree-inspector--alistp (list)
+  "Return T if LIST is an association list."
+  (and (tree-inspector--proper-list-p list)
+       (cl-every (lambda (x) (consp x)) list)))
+
+(defun tree-inspector--alist-to-plist (alist)
+  "Convert association list ALIST to a property list."
+  (let ((plist))
+    (dolist (cons (reverse alist))
+      (push (cdr cons) plist)
+      (push (car cons) plist))
+    plist))
+
+(cl-defgeneric tree-inspector--make-node (object)
+  (:documentation "Create treeview node for Emacs Lisp OBJECT."))
+
+(cl-defmethod tree-inspector--make-node ((object number))
+  (let ((node (treeview-new-node)))
+    (treeview-set-node-name node (prin1-to-string object))
+    node))
+
+(cl-defmethod tree-inspector--make-node  ((object cons))
+  (cond
+   ((tree-inspector--proper-list-p object)
+    (let ((node (treeview-new-node)))
+      (treeview-set-node-name node
+       (truncate-string-to-width (prin1-to-string object)
+                                30 nil nil "..."))
+      (treeview-set-node-children node
+       (mapcar (lambda (item)
+                (let ((child (tree-inspector--make-node item)))
+                  (treeview-set-node-parent child node)
+                  child))
+              object))))))
+
+(defun tree-inspector-inspect (data)
+  (let ((buffer (get-buffer-create (format "*tree-inspector: %s*" data))))
+    (with-current-buffer buffer
+      ;; (setq-local treeview-get-root-node-function
+      ;;                 (lambda () (tree-inspector--make-node data)))
+      (setq-local treeview-get-indent-function
+                 (lambda (node) (list " ")))
+      (setq-local treeview-get-label-function
+                 #'first)
+      (setq-local treeview-get-control-function
+                 (lambda (node)
+                   (if (treeview-get-node-children node)
+                       "[+]"
+                     nil)))
+      (treeview-display-node (tree-inspector--make-node data))
+
+      (display-buffer buffer))))
+
+(tree-inspector-inspect 2)
+(tree-inspector-inspect (list 1 2 3))