[elpa] externals/inspector e504625e80 26/93: Inspect structures

[ELPA Syncer]

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

    Inspect structures
---
 inspector.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/inspector.el b/inspector.el
index 14b0e0430b..48d6fe5020 100644
--- a/inspector.el
+++ b/inspector.el
@@ -139,6 +139,15 @@
       (inspector--insert-inspect-button
        (slot-value object (cl--slot-descriptor-name slot)))
       (newline)))
+   ((cl-struct-p object)
+    (inspector--insert-title (format "%s struct" (type-of object)))
+    (insert "Slot values:")
+    (newline)
+    (dolist (slot (cdr (cl-struct-slot-info (type-of object))))
+      (insert (format "%s: " (car slot)))
+      (inspector--insert-inspect-button
+       (cl-struct-slot-value (type-of object) (car slot) object))
+      (newline)))
    (t (error "Cannot inspect object: %s" object))))
 
 (defun inspector--insert-inspect-button (object &optional label)