branch: externals/inspector
commit cfa57e310baba4f146291b6a480460c0278b1649
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Better presentation functions
---
inspector.el | 28 +++++++++++++++++++++++++---
1 file changed, 25 insertions(+), 3 deletions(-)
diff --git a/inspector.el b/inspector.el
index 3e7f7c8588..7bfc78e272 100644
--- a/inspector.el
+++ b/inspector.el
@@ -38,6 +38,19 @@
(push (car cons) plist))
plist))
+(defun inspector--insert-horizontal-line (&rest width)
+ (insert (make-string (or width 80) ?\u2500)))
+
+(defun inspector--insert-property (property-name)
+ (insert property-name)
+ (insert ": "))
+
+(defun inspector--insert-title (title)
+ (insert title)
+ (newline)
+ (inspector--insert-horizontal-line)
+ (newline))
+
(defun inspector--proper-list-p (val)
"Is VAL a proper list?"
(if (fboundp 'format-proper-list-p)
@@ -125,7 +138,9 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(inspector--insert-inspect-button value))
(newline))))
((inspector--proper-list-p cons)
- (insert "Proper list:")
+ (insert "Proper list")
+ (newline)
+ (inspector--insert-horizontal-line)
(newline)
(let ((i 0))
(dolist (elem cons)
@@ -158,10 +173,17 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(newline))))
(cl-defmethod inspect-object ((buffer buffer))
- (debug "Inspect buffer"))
+ (insert "Buffer")
+ (newline)
+ (inspector--insert-horizontal-line)
+ (newline)
+ (inspector--insert-property "Name")
+ (inspector--insert-inspect-button (buffer-name buffer)))
(cl-defmethod inspect-object ((number number))
- (debug "Inspect number"))
+ (inspector--insert-title (princ-to-string (type-of number)))
+ (inspector--insert-property "Value")
+ (insert (princ-to-string number)))
(cl-defmethod inspect-object ((integer integer))
(insert "Integer: ")
