branch: externals/inspector
commit 44b3a9aec819b583d76bbbde1421b76c29fe2596
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Inspect process objects
---
inspector.el | 29 ++++++++++++++++++++++++++++-
1 file changed, 28 insertions(+), 1 deletion(-)
diff --git a/inspector.el b/inspector.el
index c0bc267618..cef30053c8 100644
--- a/inspector.el
+++ b/inspector.el
@@ -5,7 +5,7 @@
;; Author: Mariano Montone <marianomont...@gmail.com>
;; URL: https://github.com/mmontone/emacs-inspector
;; Keywords: debugging, tool, emacs-lisp, development
-;; Version: 0.6
+;; Version: 0.7
;; Package-Requires: ((emacs "27"))
;; This program is free software; you can redistribute it and/or modify
@@ -351,6 +351,33 @@ is expected to be used.")
(inspector--insert-value (inspector--princ-to-string object)))
(t (error "Cannot inspect object: %s" object))))
+(cl-defmethod inspect-object ((object process))
+ (inspector--insert-title "process")
+ (inspector--insert-value (inspector--princ-to-string object))
+ (newline 2)
+ (inspector--insert-label "PID")
+ (inspector--insert-value (inspector--princ-to-string (process-id object)))
+ (newline)
+ (inspector--insert-label "Status")
+ (inspector--insert-value (inspector--princ-to-string (process-status
object)))
+ (newline)
+ (inspector--insert-label "TTY name")
+ (inspector--insert-value (inspector--princ-to-string (process-tty-name
object)))
+ (newline)
+ (inspector--insert-label "Contact")
+ (inspector--insert-value (inspector--princ-to-string (process-contact
object)))
+ (newline)
+ (inspector--insert-label "Properties")
+ (newline)
+ (let ((plist (cl-copy-list (process-plist object))))
+ (while plist
+ (let ((key (pop plist)))
+ (inspector--insert-inspect-button key))
+ (insert ": ")
+ (let ((value (pop plist)))
+ (inspector--insert-inspect-button value))
+ (newline))))
+
(cl-defmethod inspect-object ((cons cons))
"Inspect a CONS object."
(cond
