[elpa] externals/inspector 4744b6ef92 28/39: tree-inspector: Use inspector to inspect objects at event and at point.

[ELPA Syncer]

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

    tree-inspector: Use inspector to inspect objects at event and at point.
---
 tree-inspector.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tree-inspector.el b/tree-inspector.el
index a9c47bc82e..e99eddf647 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -37,6 +37,20 @@
   "tree-inspector"
   :group 'applications)
 
+(defun tree-inspector-inspect-object-at-event (event)
+  (interactive "@e")
+  (when (featurep 'inspector)
+    (let ((node (treeview-get-node-at-event event)))
+      (when-let ((object (treeview-get-node-prop node 'object)))
+       (inspector-inspect object)))))
+
+(defun tree-inspector-inspect-object-at-point ()
+  (interactive)
+  (when (featurep 'inspector)
+    (let ((node (treeview-get-node-at-pos (point))))
+      (when-let ((object (treeview-get-node-prop node 'object)))
+       (inspector-inspect object)))))
+
 (defcustom tree-inspector-control-keymap
   '(("<mouse-1>" . treeview-toggle-node-state-at-event)
     ("<mouse-2>" . treeview-toggle-node-state-at-event)