[elpa] externals/eev a898440 11/20: Changed `code-c-d' to make the w3m and tags links optional.

[Stefan Monnier]

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

    Changed `code-c-d' to make the w3m and tags links optional.
---
 ChangeLog   | 10 ++++++++++
 README.org  | 12 ++++++------
 VERSION     |  4 ++--
 eev-code.el | 34 ++++++++++++++++++++++++----------
 4 files changed, 42 insertions(+), 18 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 30be12b..fb026ca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,17 @@
+2020-12-20  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-code.el (ee-code-c-d-:w3m): new function.
+       (ee-code-c-d-:tags): new function.
+       (ee-code-c-d-base): moved the `defun find-{c}w3m', the `defun
+       find-{c}tags', and their support functions to `ee-code-c-d-:w3m'
+       and `ee-code-c-d-:tags'.
+
 2020-12-17  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * README.org: new file.
 
+       * README-old.md: renamed "README.md" to "README-old.md".
+
        * eev-intro.el (find-little-languages-intro): new function.
 
 2020-12-16  Eduardo Ochs  <eduardoochs@gmail.com>
diff --git a/README.org b/README.org
index 1be952b..80608d9 100644
--- a/README.org
+++ b/README.org
@@ -34,6 +34,11 @@ The best introductions to eev are:
   but at [[http://www.youtube.com/watch?v=hOAqBc42Gg8#t=21m02s][21:02]] it 
shows how I use M-j to teach Emacs and eev to total
   beginners, and at 
[[https://www.youtube.com/watch?v=hOAqBc42Gg8#t=18m47s][18:47]] it explains the 
design decisions behind M-j.
 
+- "[[http://www.youtube.com/watch?v=kxBjiUo88_U][How to install eev with M-x 
list-packages and how to navigate its
+  tutorials]]". This is a video tutorial accessible to total beginners -
+  with an approach that is the exact opposite of 
"[[http://angg.twu.net/LATEX/2019emacsconf.pdf#page=10][users should not be
+  forced to see Lisp]]".
+
 - its [[http://angg.twu.net/eev-intros/find-eev-intro.html][sandboxed 
tutorials]],
 
 - its homepage: [[http://angg.twu.net/#eev]] .
@@ -50,10 +55,6 @@ The best introductions to eev are:
 # (ecop 10 "prehistory-9" "users should not be forced to see Lisp")
 # (eco     "prehistory-9" "users should not be forced to see Lisp")
 
-I've been using eev quite successfully to teach Emacs to total
-beginners - with an approach that is the exact opposite of 
"[[http://angg.twu.net/LATEX/2019emacsconf.pdf#page=10][users
-should not be forced to see Lisp]]".
-
 * Trying it
 
 The recommended way to try eev it to install it with M-x list-packages
@@ -62,8 +63,7 @@ turn eev-mode on, and open the 
[[http://angg.twu.net/eev-intros/find-eev-quick-i
 friendly as possible both to:
 
 - beginners, who at first know only the most obvious keybindings, like
-  the arrow keys, and no Lisp at all -- there is even a 
[[https://www.youtube.com/watch?v=kxBjiUo88_U][video]] for
-  them! -- and:
+  the arrow keys, and no Lisp at all, and:
 
 - experts, who want a very 
[[http://angg.twu.net/eev-intros/find-eev-intro.html#1][non-invasive]] package, 
with a mode that they
   can turn on and off easily (hint: M-x eev-mode), and that they can
diff --git a/VERSION b/VERSION
index 2d84c40..f8010b6 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Thu Dec 17 15:36:48 GMT 2020
-Thu Dec 17 12:36:48 -03 2020
+Sun Dec 20 07:39:12 GMT 2020
+Sun Dec 20 04:39:13 -03 2020
diff --git a/eev-code.el b/eev-code.el
index 260d029..ff8e77e 100644
--- a/eev-code.el
+++ b/eev-code.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    2020nov26
+;; Version:    2020dec20
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-code.el>
@@ -167,6 +167,7 @@ and is used by `ee-find-xxxfile-sexps' and 
`find-file-links'.")
 ;; See: (find-eev-quick-intro "9.1. `code-c-d'")
 ;; Try: (find-code-c-d "lua51" "~/usrc/lua-5.1.4/")
 ;;      (find-code-c-d "lua51" "~/usrc/lua-5.1.4/" :anchor)
+;;      (find-code-c-d "lua51" "~/usrc/lua-5.1.4/" :tags :w3m)
 
 ;; code-c-d: top-level functions
 ;;
@@ -200,26 +201,17 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info 
\"INFO\")"
    ;; See: (find-eev-quick-intro \"9.1. `code-c-d'\")
    ;;
    (setq ee-{c}dir \"{d}\")
-   (setq ee-{c}tagsfile \"{d}TAGS\")
    (defun ee-{c}file (str)
      (concat (ee-expand ee-{c}dir) str))
-   (defun ee-use-{c}-tags ()
-     (setq tags-file-name ee-{c}tagsfile))
    (defun find-{c}file (str &rest pos-spec-list)
      (interactive (list \"\"))
-     (ee-use-{c}-tags)
      (apply 'find-fline (ee-{c}file str) pos-spec-list))
-   (defun find-{c}tag (str &rest pos-spec-list)
-     (ee-use-{c}-tags)
-     (apply 'ee-find-tag str pos-spec-list))
    (defun find-{c}sh (command &rest pos-spec-list)
      (apply 'find-sh-at-dir ee-{c}dir command pos-spec-list))
    (defun find-{c}sh0 (command)
      (funcall 'ee-find-xxxsh0 ee-{c}dir command))
    (defun find-{c}sh00 (command)
      (funcall 'ee-find-xxxsh00 ee-{c}dir command))
-   (defun find-{c}w3m (furl &rest pos-spec-list)
-     (apply 'find-w3m (ee-{c}file furl) pos-spec-list))
    (defun find-{c}grep (grep-command-args &rest pos-spec-list)
      (apply 'ee-find-grep ee-{c}dir grep-command-args pos-spec-list))
    "))
@@ -258,6 +250,28 @@ Try this: (find-code-c-d \"CODE\" \"/DIR/\" :info 
\"INFO\")"
      (apply 'find-anchor (ee-{c}file str) pos-spec-list))
    ") (ee-code-c-d-rest c d rest)))
 
+(defun ee-code-c-d-:tags (c d &rest rest)
+ (concat (ee-template0 "
+   ;; {(ee-S `(ee-code-c-d-:anchor ,c ,d ,@rest))}
+   (setq ee-{c}tagsfile \"{d}TAGS\")
+   (defun ee-use-{c}-tags ()
+     (setq tags-file-name ee-{c}tagsfile))
+   (defun find-{c}tag (str &rest pos-spec-list)
+     (ee-use-{c}-tags)
+     (apply 'ee-find-tag str pos-spec-list))
+   (defun find-{c}file (str &rest pos-spec-list)
+     (interactive (list \"\"))
+     (ee-use-{c}-tags)
+     (apply 'find-fline (ee-{c}file str) pos-spec-list))
+   ") (ee-code-c-d-rest c d rest)))
+
+(defun ee-code-c-d-:w3m (c d &rest rest)
+ (concat (ee-template0 "
+   ;; {(ee-S `(ee-code-c-d-:gz ,c ,d ,@rest))}
+   (defun find-{c}w3m (furl &rest pos-spec-list)
+     (apply 'find-w3m (ee-{c}file furl) pos-spec-list))
+   ") (ee-code-c-d-rest c d rest)))
+
 (defun ee-code-c-d-:wget (c d url &rest rest)
  (concat (ee-template0 "
    ;; {(ee-S `(ee-code-c-d-:wget ,c ,d ,url ,@rest))}