branch: externals/inspector
commit 5f7ab9bfb701f7aa5c43ef514ac623c810ea4de9
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Housekeeping
---
emacs-inspector.el => inspector.el | 30 +++++++++++++++---------------
1 file changed, 15 insertions(+), 15 deletions(-)
diff --git a/emacs-inspector.el b/inspector.el
similarity index 82%
rename from emacs-inspector.el
rename to inspector.el
index dc53fb8582..e16fd176ef 100644
--- a/emacs-inspector.el
+++ b/inspector.el
@@ -27,7 +27,7 @@
(newline 2)
(insert "Direct superclasses: ")
(dolist (superclass (class-direct-superclasses class))
- (emacs-inspector--insert-inspect-button
+ (inspector--insert-inspect-button
(class-name superclass) (class-name superclass))
(insert " "))
(newline)
@@ -37,7 +37,7 @@
(newline)
(insert "Direct subclasses:")
(dolist (subclass (class-direct-subclasses class))
- (emacs-inspector--insert-inspect-button
+ (inspector--insert-inspect-button
(class-name subclass) (class-name subclass))
(insert " ")))
@@ -54,7 +54,7 @@
(cond
((eieio-object-p object)
(insert "Instance of ")
- (emacs-inspector--insert-inspect-button
+ (inspector--insert-inspect-button
(class-of object)
(eieio-class-name (eieio-object-class object)))
(newline 2)
@@ -62,16 +62,16 @@
(newline)
(dolist (slot (eieio-class-slots (eieio-object-class object)))
(insert (format "%s: " (cl--slot-descriptor-name slot)))
- (emacs-inspector--insert-inspect-button
+ (inspector--insert-inspect-button
(slot-value object (cl--slot-descriptor-name slot)))
(newline)))
(t (error "Cannot inspect object: %s" object))))
-(defun emacs-inspector--insert-inspect-button (object &optional label)
+(defun inspector--insert-inspect-button (object &optional label)
(insert-button (or (and label (princ-to-string label))
(prin1-to-string object))
'action (lambda (btn)
- (emacs-inspector-inspect object))
+ (inspector-inspect object))
'follow-link t))
(cl-defmethod inspect-object ((cons cons))
@@ -82,10 +82,10 @@
(let ((plist (copy-list cons)))
(while plist
(let ((key (pop plist)))
- (emacs-inspector--insert-inspect-button key))
+ (inspector--insert-inspect-button key))
(insert ": ")
(let ((value (pop plist)))
- (emacs-inspector--insert-inspect-button value))
+ (inspector--insert-inspect-button value))
(newline))))
((listp cons)
(insert "Proper list:")
@@ -93,7 +93,7 @@
(let ((i 0))
(dolist (elem cons)
(insert (format "%d: " i))
- (emacs-inspector--insert-inspect-button elem)
+ (inspector--insert-inspect-button elem)
(newline)
(incf i))))))
@@ -126,8 +126,8 @@
(cl-defmethod inspect-object ((hash-table hash-table))
(debug "Inspect hash-table"))
-(defun emacs-inspector-make-inspector-buffer ()
- (let ((buffer (get-buffer-create "*emacs-inspector*")))
+(defun inspector-make-inspector-buffer ()
+ (let ((buffer (get-buffer-create "*inspector*")))
(with-current-buffer buffer
(setq buffer-read-only nil)
(erase-buffer))
@@ -136,13 +136,13 @@
(defun inspect-expression (exp)
(interactive (list (read--expression "Inspect: ")))
- (emacs-inspector-inspect (eval exp)))
+ (inspector-inspect (eval exp)))
-(defun emacs-inspector-inspect (object)
- (let ((buffer (emacs-inspector-make-inspector-buffer)))
+(defun inspector-inspect (object)
+ (let ((buffer (inspector-make-inspector-buffer)))
(with-current-buffer buffer
(inspect-object object)
(setq buffer-read-only t)
(display-buffer buffer))))
-(provide 'emacs-inspector)
+(provide 'inspector)
