branch: externals/inspector
commit 1f659d04a622460e52e6e698895f58c6b57bc5c9
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Functions inspector
---
inspector.el | 64 ++++++++++++++++++++++++++++++++++++------------------------
1 file changed, 38 insertions(+), 26 deletions(-)
diff --git a/inspector.el b/inspector.el
index d27e4367af..6126fa6e21 100644
--- a/inspector.el
+++ b/inspector.el
@@ -42,16 +42,16 @@
(let ((expected t))
(and (cl-evenp (length list))
(cl-every (lambda (x)
- (setq expected (if (eql expected t) 'symbol t))
- (cl-typep x expected))
- list))))
+ (setq expected (if (eql expected t) 'symbol t))
+ (cl-typep x expected))
+ list))))
(defun alistp (list)
"Return T if LIST is an association list."
(cl-every (lambda (x)
- (and (consp x)
- (symbolp (car x))))
- list))
+ (and (consp x)
+ (symbolp (car x))))
+ list))
(defun alist-to-plist (alist)
"Convert association list ALIST to a property list."
@@ -87,12 +87,12 @@
:group 'inspector)
(defface inspector-value-face
- '((t (:inherit font-lock-builtin-face)))
+ '((t (:inherit font-lock-builtin-face)))
"Face for things which can themselves be inspected."
:group 'inspector)
(defface inspector-action-face
- '((t (:inherit font-lock-warning-face)))
+ '((t (:inherit font-lock-warning-face)))
"Face for labels of inspector actions."
:group 'inspector)
@@ -106,6 +106,11 @@
:type 'integer
:group 'inspector)
+(defcustom inspector-show-documentation t
+ "Whether to show variables and function documentation or not."
+ :type 'boolean
+ :group 'inspector)
+
;;-------- Inspector code -------------------
(defvar-local inspector-history nil
@@ -136,8 +141,8 @@
(defun inspector--print-truncated (object &optional end-column)
"Print OBJECT truncated. END-COLUMN controls the truncation."
(truncate-string-to-width (prin1-to-string object)
- (or end-column inspector-end-column)
- nil nil t))
+ (or end-column inspector-end-column)
+ nil nil t))
(defun inspector--insert-inspect-button (object &optional label)
"Insert button for inspecting OBJECT.
@@ -145,7 +150,7 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(insert-button (or (and label (princ-to-string label))
(inspector--print-truncated object))
'action (lambda (btn)
- (ignore btn)
+ (ignore btn)
(inspector-inspect object t))
'follow-link t))
@@ -207,7 +212,7 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(newline)
(inspector--insert-horizontal-line)
(newline)
- (insert "Slot values:")
+ (inspector--insert-label "Slot values")
(newline)
(dolist (slot (eieio-class-slots (eieio-object-class object)))
(insert (format "%s: " (cl--slot-descriptor-name slot)))
@@ -216,13 +221,20 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(newline)))
((cl-struct-p object)
(inspector--insert-title (format "%s struct" (type-of object)))
- (insert "Slot values:")
+ (inspector--insert-label "Slot values")
(newline)
(dolist (slot (cdr (cl-struct-slot-info (type-of object))))
(insert (format "%s: " (car slot)))
(inspector--insert-inspect-button
(cl-struct-slot-value (type-of object) (car slot) object))
(newline)))
+ ((functionp object)
+ (inspector--insert-title "Function")
+ (inspector--insert-label "Name")
+ (inspector--insert-value (princ-to-string object))
+ (newline)
+ (inspector--insert-label "Arglist")
+ (inspector--insert-value (elisp-get-fnsym-args-string object)))
(t (error "Cannot inspect object: %s" object))))
(cl-defmethod inspect-object ((cons cons))
@@ -296,11 +308,11 @@ If LABEL has a value, then it is used as button label.
Otherwise, button label
(inspector--insert-label "Values")
(newline)
(maphash (lambda (key value)
- (inspector--insert-inspect-button key)
- (insert ": ")
- (inspector--insert-inspect-button value)
- (newline))
- hash-table))
+ (inspector--insert-inspect-button key)
+ (insert ": ")
+ (inspector--insert-inspect-button value)
+ (newline))
+ hash-table))
;;--- Buffers ------------------------------
@@ -360,8 +372,8 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector
history for navigation pu
"Inspect local variables of the frame at point in debugger backtrace."
(interactive)
(let* ((nframe (1+ (debugger-frame-number 'skip-base)))
- (base (debugger--backtrace-base))
- (locals (backtrace--locals nframe base)))
+ (base (debugger--backtrace-base))
+ (locals (backtrace--locals nframe base)))
(inspector-inspect (alist-to-plist locals))))
;;--------- Inspector mode ---------------------------------
@@ -377,12 +389,12 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector
history for navigation pu
map))
(easy-menu-define
- inspector-mode-menu inspector-mode-map
- "Menu for inspector."
- '("Inspector"
- ["Previous" inspector-pop :help "Inpect previous object"]
- ["Evaluate" eval-expression :help "Evaluate expression with current
inspected object as context"]
- ["Exit" inspector-quit :help "Quit the Emacs Lisp inspector"]))
+ inspector-mode-menu inspector-mode-map
+ "Menu for inspector."
+ '("Inspector"
+ ["Previous" inspector-pop :help "Inpect previous object"]
+ ["Evaluate" eval-expression :help "Evaluate expression with current
inspected object as context"]
+ ["Exit" inspector-quit :help "Quit the Emacs Lisp inspector"]))
(defvar inspector-tool-bar-map
(let ((map (make-sparse-keymap)))
