branch: externals/eev
commit 3294e4a76a1fa7d01a9a80960e5e3fc39e1eb683
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added instructions for using `M-x ee-use-red-bullets'.
---
ChangeLog | 14 ++++++++++++++
VERSION | 4 ++--
eev-blinks.el | 16 ++++++++++++++--
eev-elinks.el | 3 ++-
eev-intro.el | 1 +
eev-testblocks.el | 14 ++++++++++++++
eev-tlinks.el | 19 ++++++++++++++++---
eev-videolinks.el | 29 +++++++++++++++++++++++++++--
eev.el | 2 +-
9 files changed, 91 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index da81dcf2b8..f55ab1de9e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,20 @@
+2022-01-20 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-blinks.el (find-ealias): new function.
+
+2022-01-18 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (ee-use-red-stars, ee-use-red-bullets): use
+ `redisplay' and display a message.
+
+2022-01-16 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-videolinks.el (find-2022findeevanggvideo): new function.
+
2022-01-15 Eduardo Ochs <eduardoo...@gmail.com>
* eev-testblocks.el (ee-insert-test-fennel-mode): new function.
+ (ee-insert-test-gnuplot-mode): new function.
* eepitch.el (eepitch-fennel): new function.
diff --git a/VERSION b/VERSION
index bb8ac69bde..4e04c32dd3 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sat Jan 15 21:49:53 GMT 2022
-Sat Jan 15 18:49:53 -03 2022
+Fri Jan 21 00:47:22 GMT 2022
+Thu Jan 20 21:47:22 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index 977f42a72b..ecb8735cb9 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: 20220115
+;; Version: 20220120
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -502,7 +502,7 @@ using a more compact notation. See:
"Show a copy of `(ee-buffer-contents B)' in a buffer in fundamental mode.
This function does not copy overlays.
BUG: at this moment invisible text is not copied. I need to fix that!!!"
- (interactive)
+ (interactive (list (current-buffer)))
(let ((ee-buffer-name (or ee-buffer-name "*(find-ebuffercontents)*")))
(apply 'find-estring (ee-buffer-contents b) pos-spec-list)))
@@ -566,6 +566,15 @@ support a POS-SPEC-LIST like this function does."
(interactive (find-function-read))
(apply 'find-ebufferandpos (find-function-noselect symbol) pos-spec-list))
+(defun find-ealias (symbol &rest pos-spec-list)
+ "Like `find-efunction', but do not resolve aliases to functions.
+See: https://lists.gnu.org/archive/html/help-gnu-emacs/2022-01/msg00323.html";
+ (interactive (find-function-read))
+ (apply 'find-ebufferandpos
+ (find-function-search-for-symbol
+ symbol nil (symbol-file symbol 'defun))
+ pos-spec-list))
+
(defun find-evariable (symbol &rest pos-spec-list)
"Hyperlink to the result of running `find-variable' on SYMBOL."
(interactive (find-function-read 'variable))
@@ -1097,6 +1106,9 @@ This is Debian-specific. See `find-Package'."
;; Tests:
;; (find-epp '(mapcar (lambda (a) (* a a)) '(2 3 4 5)))
;; (find-efunctionpp 'find-efunction)
+;; (find-epp '(1 "2" (3 4)))
+;; (find-eppp '(1 "2" (3 4)))
+;; (find-eppm '(cl-loop for k from 1 do (if (foo) (cl-return (bar)))))
(defun find-epp0 (object)
"Display a pretty-printed version of OBJECT in the echo area.
diff --git a/eev-elinks.el b/eev-elinks.el
index 14a68c261d..42b6d6372d 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20211220
+;; Version: 20220120
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -273,6 +273,7 @@ This is an internal function used by `find-efunction-links'
and
(find-efunction ',f)
(find-efunctionpp ',f)
(find-efunctiond ',f)
+ (find-ealias ',f)
""
,@(if (commandp f)
`((Info-goto-emacs-command-node ',f)
diff --git a/eev-intro.el b/eev-intro.el
index 1704c889ec..0d35af6222 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -14621,6 +14621,7 @@ Btw, the videos that I produced using this \"script\"
are here:
\(Re)generate: (find-elisp-intro)
Source code: (find-efunction 'find-elisp-intro)
More intros: (find-eev-quick-intro)
+ (find-emacs-keys-intro)
(find-eev-intro)
This buffer is _temporary_ and _editable_.
It is meant as both a tutorial and a sandbox.
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 134bc13cd4..7c064265b1 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -114,6 +114,20 @@ gcc -o {fname} {fnamec}
\")
" stem)))))
+(defun ee-insert-test-gnuplot-mode ()
+ (interactive)
+ (insert (ee-adjust-red-stars (format "
+# (find-eepitch-intro \"3.3. `eepitch-preprocess-line'\")
+# (setq eepitch-preprocess-regexp \"\")
+# (setq eepitch-preprocess-regexp \"^#: \")
+#
+#: (eepitch-shell)
+#: (eepitch-kill)
+#: (eepitch-shell)
+#: gnuplot %s
+
+" (buffer-name)))))
+
(defun ee-insert-test-haskell-mode ()
(interactive)
(insert (ee-adjust-red-stars (format "
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 771576986e..28199fc0ea 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220115
+;; Version: 20220118
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -2650,13 +2650,18 @@ This function is used by `ee-0x0-upload-region'."
"See: (find-red-star-links 2 \"high-level\")"
(interactive)
(eepitch-set-glyph0 ?• nil)
- (defun ee-adjust-red-stars (str) str))
+ (defun ee-adjust-red-stars (str) str)
+ (redisplay 'force)
+ (message "Now `M-T' and `M-x eeit' will use red stars."))
(defun ee-use-red-bullets ()
"See: (find-red-star-links 2 \"high-level\")"
(interactive)
(eepitch-set-glyph0 ?• ?• 'eepitch-star-face)
- (defun ee-adjust-red-stars (str) (replace-regexp-in-string "" "•" str)))
+ (defun ee-adjust-red-stars (str) (replace-regexp-in-string "" "•" str))
+ (redisplay 'force)
+ (message "Now `M-T' and `M-x eeit' will use red bullets."))
+
@@ -2677,6 +2682,8 @@ This function is used by `ee-0x0-upload-region'."
(find-eev-quick-intro "9. Shorter hyperlinks")
(find-eev-quick-intro "9.1. `code-c-d'")
(find-eev-quick-intro "9.2. Extra arguments to `code-c-d'" "to anchors")
+ (find-2022findeevanggvideo "11:30" "(find-angg-es-links)")
+ (find-2022findeevanggvideo "14:12" "the find-wgeta searches for")
""
,(ee-template0 "\
@@ -2775,6 +2782,12 @@ This function is used by `ee-0x0-upload-region'."
;; Play:
;; (find-{c}video \"0:00\")
+;; Setups:
+ ' (find-ssr-links \"{c}\" \"{mp4stem}\" \"{hash}\")
+ ' (code-eevvideo \"{c}\" \"{mp4stem}\" \"{hash}\")
+ ' (code-eevlinksvideo \"{c}\" \"{mp4stem}\" \"{hash}\")
+;; (find-{c}video \"0:00\")
+
;; Other places with info about this video:
;; (find-angg \".emacs.templates\" \"eev-videos-data\" \"{c}\")
;; http://angg.twu.net/.emacs.templates.html#eev-videos-data
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 2fc219a31d..af66881696 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20220105
+;; Version: 20220116
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-videolinks.el>
@@ -55,6 +55,8 @@
;; «.find-2021workshop6video» (to "find-2021workshop6video")
;; «.find-2021orgfornonusersvideo» (to "find-2021orgfornonusersvideo")
;; «.find-2021ffllvideo» (to "find-2021ffllvideo")
+;; «.find-2022eevmake0video» (to "find-2022eevmake0video")
+;; «.find-2022findeevanggvideo» (to "find-2022findeevanggvideo")
;; «.more-info» (to "more-info")
;; «.ee-1stclassvideos-info» (to "ee-1stclassvideos-info")
;; «.eev2019» (to "eev2019")
@@ -76,6 +78,7 @@
;; «.2021orgfornonusers» (to "2021orgfornonusers")
;; «.2021ffll» (to "2021ffll")
;; «.2022eevmake0» (to "2022eevmake0")
+;; «.2022findeevangg» (to "2022findeevangg")
;; «.ee-1stclassvideos-field» (to "ee-1stclassvideos-field")
;; «.second-class-videos» (to "second-class-videos")
;; «.code-eevvideo» (to "code-eevvideo")
@@ -542,7 +545,7 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
(interactive)
(find-eev-video "2021-ffll" "h1CEL2fmkyc" time))
-;; <find-2022eevmake0video>
+;; «find-2022eevmake0video» (to ".find-2022eevmake0video")
;; Skel: (find-1stclassvideo-links "2022eevmake0")
;; Tests: (find-2022eevmake0video "0:00")
;; (find-efunctiondescr 'find-2022eevmake0video)
@@ -557,6 +560,21 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
(interactive)
(find-eev-video "2022-eev-make-0" "Iql5C-yQk5c" time))
+;; «find-2022findeevanggvideo» (to ".find-2022findeevanggvideo")
+;; Skel: (find-1stclassvideo-links "2022findeevangg")
+;; Tests: (find-2022findeevanggvideo "0:00")
+;; (find-efunctiondescr 'find-2022findeevanggvideo)
+(defun find-2022findeevanggvideo (&optional time &rest rest)
+ "Play one of the video tutorials of eev starting at TIME.
+See: (find-eev \"eev-videolinks.el\" \"2022findeevangg\")
+ http://angg.twu.net/eev-current/eev-videolinks.el.html#eev2020
+ for more info on this particular video,
+and: (find-video-links-intro \"7. \" \"find-eev-video\")
+ or: http://angg.twu.net/eev-intros/find-video-links-intro.html#7
+ for more info on these video tutorials."
+ (interactive)
+ (find-eev-video "2022-find-eev-angg" "FoAzpGzFCSE" time))
+
@@ -720,6 +738,13 @@ and: (find-video-links-intro \"7. \" \"find-eev-video\")
:mp4 "http://angg.twu.net/eev-videos/2022-eev-make-0.mp4";
:yt "http://www.youtube.com/watch?v=Iql5C-yQk5c";
:page "http://angg.twu.net/eev-make.html";)
+ ;;
+ ;; «2022findeevangg» (to ".2022findeevangg")
+ ("2022findeevangg"
+ :title "Running executable notes from http://angg.twu.net/ with find-angg
and find-wget"
+ :mp4 "http://angg.twu.net/eev-videos/2022-find-eev-angg.mp4";
+ :yt "http://www.youtube.com/watch?v=FoAzpGzFCSE";
+ :page "http://angg.twu.net/eev-find-angg.html";)
))
diff --git a/eev.el b/eev.el
index 5ce4645163..8b0beab618 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
;; Package-Requires: ((emacs "24.4"))
;; Keywords: lisp e-scripts
;; URL: http://angg.twu.net/#eev
-;; Version: 20220115
+;; Version: 20220120
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
