branch: externals/eev
commit 687a1d50d5f1d0de7e73e5df98858ae889ee1a2f
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `find-eeshortdefs'.
---
ChangeLog | 7 +++++++
VERSION | 4 ++--
eev-blinks.el | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
3 files changed, 55 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 2f9f117771..59481bd49d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2022-01-26 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-blinks.el (ee-shortdefp-maxlen-name)
+ (ee-shortdefp-maxlen-def): new variables.
+ (ee-shortdefp, ee-shortdef-symbols, ee-find-eeshortdefs-body)
+ (ee-find-eeshortdefs-header, find-eeshortdefs): new functions.
+
2022-01-25 Eduardo Ochs <eduardoo...@gmail.com>
* eev-videolinks.el (find-2022findelispintrovideo): new function.
diff --git a/VERSION b/VERSION
index 3a53b70f0d..2791f18376 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Jan 25 20:42:18 GMT 2022
-Tue Jan 25 17:42:18 -03 2022
+Thu Jan 27 04:37:42 GMT 2022
+Thu Jan 27 01:37:42 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index ecb8735cb9..282d3faf9d 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220120
+;; Version: 20220126
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -69,6 +69,7 @@
;; «.find-einsert» (to "find-einsert")
;; «.find-eunicode» (to "find-eunicode")
;; «.find-eejumps» (to "find-eejumps")
+;; «.find-eeshortdefs» (to "find-eeshortdefs")
@@ -1394,6 +1395,50 @@ Hint: install the Debian package \"unicode-data\".")
+
+;;; __ _ _ _ _ _ __
+;;; / _(_)_ __ __| | ___ ___ ___| |__ ___ _ __| |_ __| | ___ /
_|___
+;;; | |_| | '_ \ / _` |_____ / _ \/ _ \/ __| '_ \ / _ \| '__| __/ _` |/ _ \
|_/ __|
+;;; | _| | | | | (_| |_____| __/ __/\__ \ | | | (_) | | | || (_| | __/
_\__ \
+;;; |_| |_|_| |_|\__,_| \___|\___||___/_| |_|\___/|_| \__\__,_|\___|_|
|___/
+;;;
+;; «find-eeshortdefs» (to ".find-eeshortdefs")
+;; Test: (find-eeshortdefs)
+;; See: (find-eev-quick-intro "7.4. Commands with very short names")
+
+(defvar ee-shortdefp-maxlen-name 3)
+(defvar ee-shortdefp-maxlen-def 80)
+
+(defun ee-shortdefp (sym)
+ (and (fboundp sym)
+ (commandp sym)
+ (listp (symbol-function sym))
+ (eq (car (symbol-function sym)) 'lambda)
+ (<= (length (symbol-name sym)) ee-shortdefp-maxlen-name)
+ (<= (length (ee-defun-str-for sym)) ee-shortdefp-maxlen-def)))
+
+(defun ee-shortdef-symbols ()
+ (apropos-internal "^.*$" 'ee-shortdefp))
+
+(defun ee-find-eeshortdefs-body ()
+ (mapconcat 'ee-defun-str-for (ee-shortdef-symbols) "\n"))
+
+(defun ee-find-eeshortdefs-header ()
+ ";; Generated by: (find-eeshortdefs)
+;; See: (find-eev-quick-intro \"7.4. Commands with very short names\")
+;; Current short defs:\n\n")
+
+(defun find-eeshortdefs (&rest pos-spec-list)
+ "This is similar to `find-eejumps', but lists commands with very short
names."
+ (interactive)
+ (let ((ee-buffer-name "*(find-eeshortdefs)*"))
+ (apply 'find-estring-elisp
+ (concat (ee-find-eeshortdefs-header)
+ (ee-find-eeshortdefs-body))
+ pos-spec-list)))
+
+
+
(provide 'eev-blinks)
