[elpa] externals/eev 3294e4a76a: Added instructions for using `M-x ee-use-red-bullets'.

[ELPA Syncer]

branch: externals/eev
commit 3294e4a76a1fa7d01a9a80960e5e3fc39e1eb683
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@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  <eduardoochs@gmail.com>
+
+       * eev-blinks.el (find-ealias): new function.
+
+2022-01-18  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-use-red-stars, ee-use-red-bullets): use
+       `redisplay' and display a message.
+
+2022-01-16  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-videolinks.el (find-2022findeevanggvideo): new function.
+
 2022-01-15  Eduardo Ochs  <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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