branch: externals/inspector
commit 5d014ff023337655ceafca6247523c67b085dc5e
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@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)))
