[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 5f7ab9bfb7 06/93: Housekeeping
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 5f7ab9bfb7 06/93: Housekeeping |
Date: |
Tue, 24 May 2022 18:57:55 -0400 (EDT) |
branch: externals/inspector
commit 5f7ab9bfb701f7aa5c43ef514ac623c810ea4de9
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@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)
- [elpa] externals/inspector 30d739e108 53/93: Slice arrays, (continued)
- [elpa] externals/inspector 30d739e108 53/93: Slice arrays, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector a9e41424fa 66/93: Update README.md, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 4b193ba6d0 69/93: Don't add [more] button when not needed, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 2af90a4c82 83/93: tests: fixes, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 57105aef34 72/93: Update README.md, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 023ae9ca51 92/93: Use value face instead of button face, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector d88d248eef 19/93: Presentation improvements, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 57b46a3079 38/93: Bug fix, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 22869bffb4 47/93: Indentation, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector f534e87d1d 54/93: Slice tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 5f7ab9bfb7 06/93: Housekeeping,
ELPA Syncer <=
- [elpa] externals/inspector 7574ca3ff9 51/93: Slice sequences, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 610d67b358 59/93: Test on property lists, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 970fa60851 68/93: Better horizontal line for title underline, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 17f6d1dfaf 71/93: Aesthetic adjustments, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 0dc8dd946b 77/93: Render built-in functions, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector ee6d2ea01b 80/93: More tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector d60552c6d2 76/93: Some more tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector ce05c412ba 81/93: More tests, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 40b9031bd8 84/93: Delete .github, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector e1395930a6 86/93: Proper faces for inspector buttons, ELPA Syncer, 2022/05/24