[elpa] externals/inspector 5d014ff023 39/93: Windows, frames, overlays, and buffers inspectors.

[ELPA Syncer]

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

    Windows, frames, overlays, and buffers inspectors.
---
 inspector.el | 45 ++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 42 insertions(+), 3 deletions(-)

diff --git a/inspector.el b/inspector.el
index 9610dad56f..44b6310d88 100644
--- a/inspector.el
+++ b/inspector.el
@@ -277,7 +277,7 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
     (insert "CAR: ")
     (inspector--insert-inspect-button (car cons))
     (newline)
-    (insert "CDR:")
+    (insert "CDR: ")
     (inspector--insert-inspect-button (cdr cons)))))
 
 (cl-defmethod inspect-object ((string string))
@@ -295,9 +295,48 @@ If LABEL has a value, then it is used as button label.  
Otherwise, button label
       (newline))))
 
 (cl-defmethod inspect-object ((buffer buffer))
-  (inspector--insert-title "Buffer")
+  (inspector--insert-title (prin1-to-string buffer))
   (inspector--insert-label "Name")
-  (inspector--insert-inspect-button (buffer-name buffer)))
+  (inspector--insert-inspect-button (buffer-name buffer))
+  (newline)
+  (inspector--insert-label "Window")
+  (inspector--insert-inspect-button (get-buffer-window buffer)))
+
+(cl-defmethod inspect-object ((window window))
+  (inspector--insert-title (prin1-to-string window))
+  (inspector--insert-label "Parent")
+  (inspector--insert-inspect-button (window-parent window))
+  (newline)
+  (inspector--insert-label "Buffer")
+  (inspector--insert-inspect-button (window-buffer window))
+  (newline)
+  (inspector--insert-label "Parameters")
+  (inspector--insert-inspect-button (window-parameters window))
+  (newline)
+  (inspector--insert-label "Frame")
+  (inspector--insert-inspect-button (window-frame window)))
+
+(cl-defmethod inspect-object ((frame frame))
+  (inspector--insert-title (prin1-to-string frame))
+  (inspector--insert-label "First window")
+  (inspector--insert-inspect-button (frame-first-window frame))
+  (newline)
+  (inspector--insert-label "Parameters")
+  (inspector--insert-inspect-button (frame-parameters frame)))
+
+(cl-defmethod inspect-object ((overlay overlay))
+  (inspector--insert-title (prin1-to-string overlay))
+  (inspector--insert-label "Buffer")
+  (inspector--insert-inspect-button (overlay-buffer overlay))
+  (newline)
+  (inspector--insert-label "Start")
+  (inspector--insert-inspect-button (overlay-start overlay))
+  (newline)
+  (inspector--insert-label "end")
+  (inspector--insert-inspect-button (overlay-end overlay))
+  (newline)
+  (inspector--insert-label "Properties")
+  (inspector--insert-inspect-button (overlay-properties overlay)))
 
 (cl-defmethod inspect-object ((number number))
   (inspector--insert-title (inspector--princ-to-string (type-of number)))