[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 16f833d3bb 05/93: Housekeeping
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 16f833d3bb 05/93: Housekeeping |
Date: |
Tue, 24 May 2022 18:57:55 -0400 (EDT) |
branch: externals/inspector
commit 16f833d3bb81376878b9409f494c03a274296bc5
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>
Housekeeping
---
emacs-inspector.el | 37 +++++++++++++++----------------------
1 file changed, 15 insertions(+), 22 deletions(-)
diff --git a/emacs-inspector.el b/emacs-inspector.el
index fea6eec0bd..dc53fb8582 100644
--- a/emacs-inspector.el
+++ b/emacs-inspector.el
@@ -6,6 +6,20 @@
(with-output-to-string
(princ x)))
+(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))))
+
+(defun alistp (list)
+ (every (lambda (x)
+ (and (consp x)
+ (symbolp (car x))))
+ list))
+
(cl-defgeneric inspect-object (object))
(cl-defmethod inspect-object ((class (subclass eieio-default-superclass)))
@@ -53,30 +67,9 @@
(newline)))
(t (error "Cannot inspect object: %s" 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 &optional label)
(insert-button (or (and label (princ-to-string label))
- (princ-to-string object))
+ (prin1-to-string object))
'action (lambda (btn)
(emacs-inspector-inspect object))
'follow-link t))
- [elpa] branch externals/inspector created (now 6fadd6df9f), ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 4a8d46f01e 02/93: Class instance inspector, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 16f833d3bb 05/93: Housekeeping,
ELPA Syncer <=
- [elpa] externals/inspector 8791b90885 07/93: Housekeeping, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector b609289074 20/93: Housekeeping, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector f8d2e8edef 23/93: Update README.md, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector e504625e80 26/93: Inspect structures, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 440bd7a530 17/93: Housekeeping, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector d7f85a9c25 16/93: Inspect array, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector cfa57e310b 18/93: Better presentation functions, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 4d409a6715 32/93: Evaluate in menu, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector edbd5c1318 37/93: Association list inspector and custom var to toggle specialized, ELPA Syncer, 2022/05/24
- [elpa] externals/inspector 5d014ff023 39/93: Windows, frames, overlays, and buffers inspectors., ELPA Syncer, 2022/05/24