[elpa] externals/inspector e1395930a6 86/93: Proper faces for inspector buttons

[ELPA Syncer]

branch: externals/inspector
commit e1395930a68a5d813169a85bef4b64e74a040b0e
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Proper faces for inspector buttons
---
 inspector.el | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/inspector.el b/inspector.el
index 870e9fcf91..241f568bbb 100644
--- a/inspector.el
+++ b/inspector.el
@@ -79,6 +79,11 @@
   "Emacs Lisp inspector faces."
   :group 'faces)
 
+(defface inspector-button-face
+  '((t :inherit link))
+  "Face for inspector buttons."
+  :group 'inspector-faces)
+
 (defface inspector-title-face
   '((t ()))
   "Face for title describing object."
@@ -124,6 +129,11 @@
   :type 'integer
   :group 'inspector)
 
+(define-button-type 'inspector-button
+  'follow-link t
+  'face 'inspector-button-face
+  'help-echo "Inspect object")
+
 ;;-------- Inspector code -------------------
 
 (defvar-local inspector-history nil
@@ -137,22 +147,24 @@
   (insert (make-string (or width (window-text-width)) ?\u2500)))
 
 (defun inspector--insert-label (label)
-  "Insert an inspector label."
+  "Show a LABEL in inspector buffer."
   (insert (propertize label 'face 'inspector-label-face))
   (insert ": "))
 
 (defun inspector--insert-value (value)
+  "Show a property VALUE in inspector buffer."
   (insert (propertize (inspector--princ-to-string value) 'face 
'inspector-value-face)))
 
 (defun inspector--insert-title (title)
-  "Insert title for inspector."
+  "Insert TITLE for inspector."
   (insert (propertize title 'face 'inspector-title-face))
   (newline)
   (inspector--insert-horizontal-line)
   (newline))
 
 (defun inspector--print-truncated (object &optional end-column)
-  "Print OBJECT truncated.  END-COLUMN controls the truncation."
+  "Print OBJECT to a string, truncated.
+END-COLUMN controls the truncation."
   (truncate-string-to-width (prin1-to-string object)
                             (or end-column inspector-end-column)
                             nil nil t))
@@ -163,6 +175,7 @@ If LABEL has a value, then it is used as button label.
 Otherwise, button label is the printed representation of OBJECT."
   (insert-button (or (and label (inspector--princ-to-string label))
                      (inspector--print-truncated object))
+                :type 'inspector-button
                  'action (lambda (_btn)
                            (inspector-inspect object t))
                  'follow-link t))