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

[ELPA Syncer]

branch: externals/eev
commit 65bc251809ca9196b3b47ebb4feba4e73c22388a
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added instructions for using `M-x ee-use-red-bullets'.
---
 ChangeLog         | 13 +++++++++++++
 VERSION           |  4 ++--
 eepitch.el        |  7 +++++--
 eev-blinks.el     | 23 +++++++++++++++++------
 eev-testblocks.el | 33 +++++++++++++++++++++++++++++++--
 eev-tlinks.el     | 20 +++++++++++++++-----
 eev.el            |  4 ++--
 7 files changed, 85 insertions(+), 19 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0a47b0c233..da81dcf2b8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,16 @@
+2022-01-15  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-testblocks.el (ee-insert-test-fennel-mode): new function.
+
+       * eepitch.el (eepitch-fennel): new function.
+
+       * eev-tlinks.el (find-red-star-links): Added instructions for
+       using `M-x ee-use-red-bullets' and `M-x ee-use-red-stars'.
+
+2022-01-10  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-testblocks.el (ee-insert-test-latex-mode): new function.
+
 2022-01-09  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-blinks.el (find-eppp-with-prefix): new function.
diff --git a/VERSION b/VERSION
index 9170a6ecdf..bb8ac69bde 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Sun Jan  9 21:44:49 GMT 2022
-Sun Jan  9 18:44:49 -03 2022
+Sat Jan 15 21:49:53 GMT 2022
+Sat Jan 15 18:49:53 -03 2022
diff --git a/eepitch.el b/eepitch.el
index de927b43b3..2dd62a4097 100644
--- a/eepitch.el
+++ b/eepitch.el
@@ -1,6 +1,6 @@
 ;; eepitch.el - record interactions with shells as readable notes, redo tasks. 
 -*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2012,2015,2018,2019,2020,2021 Free Software Foundation, Inc.
+;; Copyright (C) 2012,2015,2018-2022 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211215
+;; Version:    20220115
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eepitch.el>
@@ -957,6 +957,9 @@ The arguments are explained here:
   (eepitch-comint "mit-scheme" "mit-scheme"))
 (defun eepitch-tinyscheme () (interactive)
   (eepitch-comint "tinyscheme" "tinyscheme"))
+;;
+(defun eepitch-fennel () (interactive) (eepitch-comint "fennel" "fennel"))
+;; Or: (defun eepitch-fennel () (interactive) (eepitch '(fennel-repl nil)))
 
 
 ;; Haskell, ML, Erlang, Coq:
diff --git a/eev-blinks.el b/eev-blinks.el
index 3ab8022e32..977f42a72b 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -2,7 +2,7 @@
 ;; The basic hyperlinks are the ones that do not depend on templates,
 ;; and that are not created by `code-c-d' and friends.
 
-;; Copyright (C) 1999-2021 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2022 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -21,7 +21,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220109
+;; Version:    20220115
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -49,6 +49,7 @@
 ;; «.find-wottb»               (to "find-wottb")
 ;; «.find-efaces»              (to "find-efaces")
 ;; «.find-eregionpp»           (to "find-eregionpp")
+;; «.find-ebuffercontents»     (to "find-ebuffercontents")
 ;; «.find-ebufferandpos»       (to "find-ebufferandpos")
 ;; «.find-ebuffer»             (to "find-ebuffer")
 ;; «.find-eoutput»             (to "find-eoutput")
@@ -472,12 +473,22 @@ inspecting text proprties."
 ;; Test:
 ;; (eek "2*<down> C-a C-SPC <down> C-x 1 C-x 3 C-x o <<find-eregionpp>>")
 ;;
-(defun find-eregionpp (b e)
-  "Show the text properties of the text in the region."
-  (interactive "r")
-  (let ((ee-buffer-name (or ee-buffer-name "*(find-eregionpp)*")))
+(defun find-eregionpp (b e use-print-circle)
+  "Show the text properties of the text in the region.
+This function pretty-prints the result of `(buffer-substring B
+E)' and shows the result in a temporary buffer; B and E are the
+extremities of the region. If this function is called with a
+numeric argument, as in `C-u M-x find-eregionpp', then the
+pretty-printer is run with the flag `print-circle' turned on, and
+this makes the pretty-printer display copies of shared subobjects
+using a more compact notation. See:
+  (find-elnode \"Circular Objects\")"
+  (interactive "r\nP")
+  (let ((ee-buffer-name (or ee-buffer-name "*(find-eregionpp)*"))
+       (print-circle use-print-circle))
     (find-epp (buffer-substring b e))))
 
+;; «find-ebuffercontents»  (to ".find-ebuffercontents")
 ;; One way to inspect text properties in buffers with weird keymaps is
 ;; to copy the contents of these buffers to other buffers that are in
 ;; fundamental mode, then edit the copy to leave only the parts that
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 59b7f85962..134bc13cd4 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -1,6 +1,6 @@
 ;;; eev-testblocks.el - create "test blocks" using multiline comments.  -*- 
lexical-binding: nil; -*-
 
-;; Copyright (C) 2019-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2022 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220107
+;; Version:    20220115
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-testblocks.el>
@@ -100,6 +100,20 @@ gcc -o {fname} {fnamec}
 */
 ")))))
 
+(defun ee-insert-test-fennel-mode ()
+  (interactive)
+  (let* ((fname (buffer-name))
+        (stem  (replace-regexp-in-string ".fnl$" "" fname)))
+    (insert (ee-adjust-red-stars (format "
+(comment \"Test block:
+ (eepitch-fennel)
+ (eepitch-kill)
+ (eepitch-fennel)
+,reload %s
+
+\")
+" stem)))))
+
 (defun ee-insert-test-haskell-mode ()
   (interactive)
   (insert (ee-adjust-red-stars (format "
@@ -136,6 +150,21 @@ include(\"%s\")
 =#
 " (buffer-name)))))
 
+(defun ee-insert-test-latex-mode ()
+  (interactive)
+  (insert (ee-adjust-red-stars (format "
+%% See: (find-eepitch-intro \"3.3. `eepitch-preprocess-line'\")
+%% (setq eepitch-preprocess-regexp \"^\")
+%% (setq eepitch-preprocess-regexp \"^%%T ?\")
+%%
+%%T  (eepitch-shell)
+%%T  (eepitch-kill)
+%%T  (eepitch-shell)
+%%T 
+
+" ; (buffer-name)
+))))
+
 (defun ee-insert-test-lisp-mode ()
   (interactive)
   (insert (ee-adjust-red-stars (format "
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 736c4c4f2a..771576986e 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -1,6 +1,6 @@
 ;;; eev-tlinks.el --- hyperlinks to temporary buffers generated by templates  
-*- lexical-binding: nil; -*-
 
-;; Copyright (C) 2013-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2022 Free Software Foundation, Inc.
 ;;
 ;; This file is part of GNU eev.
 ;;
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20211201
+;; Version:    20220115
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -2629,21 +2629,31 @@ This function is used by `ee-0x0-upload-region'."
 ;;
 \(eepitch-set-glyph0 ?• ?• 'eepitch-star-face)
 \(defun ee-adjust-red-stars (str) (replace-regexp-in-string \"\" \"•\" str))
+
+
+
+;; The high-level way to switch the default between \"use red bullets\"
+;; and \"use red stars\" is to use `M-x ee-use-red-bullets' and `M-x
+;; ee-use-red-stars'. Try the two sexps below...
+;;
+;; (progn (insert \"\\nshell\\n\") (eek \"<up> <<ee-use-red-bullets>> M-T\"))
+;; (progn (insert \"\\nshell\\n\") (eek \"<up> <<ee-use-red-stars>>   M-T\"))
 ")
      )
    pos-spec-list))
 
-;; «ee-use-red-stars»  (to ".ee-use-red-stars")
+;; «ee-use-red-stars»    (to ".ee-use-red-stars")
 ;; «ee-use-red-bullets»  (to ".ee-use-red-bullets")
+;; See: (find-red-star-links 2 "high-level")
 
 (defun ee-use-red-stars ()
-  "See: (find-red-star-links)"
+  "See: (find-red-star-links 2 \"high-level\")"
   (interactive)
   (eepitch-set-glyph0 ?• nil)
   (defun ee-adjust-red-stars (str) str))
 
 (defun ee-use-red-bullets ()
-  "See: (find-red-star-links)"
+  "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)))
diff --git a/eev.el b/eev.el
index 449d5c4311..5ce4645163 100644
--- a/eev.el
+++ b/eev.el
@@ -1,12 +1,12 @@
 ;;; eev.el --- Support for e-scripts (eepitch blocks, elisp hyperlinks, etc)  
-*- lexical-binding: t; -*-
 
-;; Copyright (C) 2019-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2019-2022 Free Software Foundation, Inc.
 
 ;; Author: Eduardo Ochs <eduardoochs@gmail.com>
 ;; Package-Requires: ((emacs "24.4"))
 ;; Keywords: lisp e-scripts
 ;; URL: http://angg.twu.net/#eev
-;; Version: 20211226
+;; Version: 20220115
 
 ;; 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