[elpa] externals/inspector 143668d367 01/93: First commit

[ELPA Syncer]

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

    First commit
---
 .github            |   1 +
 emacs-inspector.el | 126 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 127 insertions(+)

diff --git a/.github b/.github
new file mode 100644
index 0000000000..4977bc62c0
--- /dev/null
+++ b/.github
@@ -0,0 +1 @@
+~
\ No newline at end of file
diff --git a/emacs-inspector.el b/emacs-inspector.el
new file mode 100644
index 0000000000..fb11df8ec7
--- /dev/null
+++ b/emacs-inspector.el
@@ -0,0 +1,126 @@
+;;; emacs-inspector.el --- Inspector for Emacs Lisp objects  -*- 
lexical-binding: t -*-
+
+(require 'cl)
+
+(cl-defgeneric inspect-object (object))
+
+(cl-defmethod inspect-object ((class (subclass eieio-default-superclass)))
+  (debug "Inspect class %s" class))
+
+(cl-defmethod inspect-object ((object eieio-default-superclass))
+  (debug "Class insntace"))
+
+(cl-defmethod inspect-object ((object (eql t)))
+  (debug "True"))
+
+(cl-defmethod inspect-object ((object (eql nil)))
+  (debug "Null"))
+
+(cl-defmethod inspect-object ((object symbol))
+  (debug "Symbol"))
+
+(cl-defmethod inspect-object ((object t))
+  (cond
+   ((eieio-object-p object)
+    (insert "Instance of"))
+   (t (error "Cannot inspect object"))))
+
+(defun plistp (list)
+  (let ((expected t))
+    (and (evenp (length list))
+        (every (lambda (x)
+                 (setq expected (if (eql expected t) 'symbol t))
+                 (typep x expected))
+               list))))
+
+(plistp '(as 2 asdf 2))
+(plistp '(as 2 asdf 2 bb))
+(plistp '(as 2 asdf 2 33))
+
+(defun alistp (list)
+  (every (lambda (x)
+          (and (consp x)
+               (symbolp (car x))))
+        list))
+
+(alistp '(a b c))
+(alistp '((a . 22) (b . "foo")))
+
+(defun emacs-inspector--insert-inspect-button (object)
+  (insert-button (prin1-to-string object)
+                'action (lambda (btn)
+                          (emacs-inspector-inspect object))
+                'follow-link t))
+
+(cl-defmethod inspect-object ((cons cons))
+  (cond
+   ((and (listp cons) (plistp cons))
+    (insert "Property list: ")
+    (newline)
+    (let ((plist (copy-list cons)))
+      (while plist
+       (let ((key (pop plist)))
+         (emacs-inspector--insert-inspect-button key))
+       (insert ": ")
+       (let ((value (pop plist)))
+         (emacs-inspector--insert-inspect-button value))
+       (newline))))
+   ((listp cons)
+    (insert "Proper list:")
+    (newline)
+    (let ((i 0))
+      (dolist (elem cons)
+       (insert (format "%d: " i))
+       (emacs-inspector--insert-inspect-button elem)
+       (newline)
+       (incf i))))))
+
+(cl-defmethod inspect-object ((string string))
+  (insert "String: ")
+  (prin1 string (current-buffer)))
+
+(cl-defmethod inspect-object ((array array))
+  (debug "Inspect array"))
+
+(cl-defmethod inspect-object ((sequence sequence))
+  (debug "Inspect sequence"))
+
+(cl-defmethod inspect-object ((list list))
+  (debug "Inspect list"))
+
+(cl-defmethod inspect-object ((buffer buffer))
+  (debug "Inspect buffer"))
+
+(cl-defmethod inspect-object ((number number))
+  (debug "Inspect number"))
+
+(cl-defmethod inspect-object ((integer integer))
+  (insert "Integer: ")
+  (prin1 integer (current-buffer))
+  (newline)
+  (insert "Char: ")
+  (prin1 (char-to-string integer) (current-buffer)))
+
+(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*")))
+    (with-current-buffer buffer
+      (setq buffer-read-only nil)
+      (erase-buffer))
+    buffer))
+
+(defun inspect-expression (exp)
+  (interactive (list (read--expression "Inspect: ")))
+  
+  (emacs-inspector-inspect (eval exp)))
+
+(defun emacs-inspector-inspect (object)
+  (let ((buffer (emacs-inspector-make-inspector-buffer)))
+    (with-current-buffer buffer
+      (inspect-object object)
+      (setq buffer-read-only t)
+      (display-buffer buffer))))
+  
+(provide 'emacs-inspector)