[elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "eev-readme.el".

[Stefan Monnier]

branch: externals/eev
commit 2518e7592f8a08e0ca71c464e72e6b5b5b7d4b01
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>

    Use "eev-beginner.el" instead of "eev-readme.el".
---
 ChangeLog       |  21 ++++++
 VERSION         |   4 +-
 eejump.el       |   4 +-
 eev-beginner.el |  66 ++++++++++++++++++
 eev-blinks.el   |   5 +-
 eev-elinks.el   |   4 +-
 eev-intro.el    |  78 ++++++++++++++++++---
 eev-load.el     |  12 ++--
 eev-plinks.el   |  13 +++-
 eev-tlinks.el   | 206 ++++++++++++++++++++++++++++----------------------------
 10 files changed, 287 insertions(+), 126 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9d620b1..34fbfda 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,26 @@
 2019-03-05  Eduardo Ochs  <address@hidden>
 
+       * eev-load.el: "eev-prepared.el", "eev-bounded.el" and
+       "eev-channels.el" are no longer loaded by default.
+
+       * eev-elinks.el (ee-efunctiondescr-re): treat Lisp macros as
+       functions.
+
+       * eev-beginner.el: new file.
+
+       * eev-intro.el (find-eev-quick-intro): the installation script now
+       loads "eev-beginner.el" instead of "eev-readme.el".
+
+       * eev-tlinks.el: added a "(require 'eev-wrap)".
+       (find-tkdiff): moved to eev-plinks.el.
+       (ee-upload-links, ee-download-links, find-upload-links)
+       (find-download-links, ut, dt): commented out.
+       (find-eev-install-links): use "rm -fv" instead of "rm -v".
+       (find-eev-install-links): load "eev-beginner.el" instead of
+       "eev-readme.el".
+       (find-eev-install-links): changed "eev2-all.el" to "eev-load.el"
+       everywhere.
+
        * eev-intro.el (find-eev-quick-intro): added material in the
        sections about links to PDFs.
 
diff --git a/VERSION b/VERSION
index 4a3d8a9..43f9c45 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Tue Mar  5 03:20:28 GMT 2019
-Tue Mar  5 00:20:28 -03 2019
+Tue Mar  5 21:38:21 GMT 2019
+Tue Mar  5 18:38:21 -03 2019
diff --git a/eejump.el b/eejump.el
index 1058d86..d5d7c85 100644
--- a/eejump.el
+++ b/eejump.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar03
+;; Version:    2019mar05
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eejump.el>
@@ -117,7 +117,7 @@ See: (find-eejump-intro \"\\neejump\\n\")"
 ;; (defun eejump-5*  () (find-efunction 'eejump-5*))
 ;; (defun eejump-6   () (find-freenode    "#eev"))
 ;; (defun eejump-66  () (find-freenode-3a "#eev"))
-;; (defun eejump-552 () (find-eev "eev2-all.el"))
+;; (defun eejump-552 () (find-eev "eev-load.el"))
 
 
 ;; To see all current targets, run:
diff --git a/eev-beginner.el b/eev-beginner.el
new file mode 100644
index 0000000..b31670b
--- /dev/null
+++ b/eev-beginner.el
@@ -0,0 +1,66 @@
+;;; eev-beginner.el -- load eev and turn eev-mode on.
+
+;; Copyright (C) 2019 Free Software Foundation, Inc.
+;;
+;; This file is (not yet?) part of GNU eev.
+;;
+;; GNU eev is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; GNU eev is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+;;
+;; Author:     Eduardo Ochs <address@hidden>
+;; Maintainer: Eduardo Ochs <address@hidden>
+;; Version:    2019mar05
+;; Keywords:   e-scripts
+;;
+;; Latest version: <http://angg.twu.net/eev-current/eev-beginner.el>
+;;       htmlized: <http://angg.twu.net/eev-current/eev-beginner.el.html>
+;;                 <http://angg.twu.net/eev-intros/find-eev-quick-intro.html>
+;;                                                (find-eev-quick-intro)
+
+;;; Commentary:
+
+;; Most beginners start playing with Emacs+eev by following the
+;; instructions here,
+;;
+;;   (find-eev-quick-intro "1. Installing eev")
+;;
+;; i.e., by copying and pasting a certain script to a terminal. That
+;; script creates an executable file called "~/eev" that switches to
+;; the directory where eev was unpacked and invokes Emacs like this:
+;;
+;;   emacs -l eev-beginner.el --eval="(find-eev-quick-intro)" $*
+;;
+;; which makes Emacs load "eev-beginner.el" (this file!) and run
+;; `(find-eev-quick-intro)' to open the "eev quick intro" tutorial.
+;; This file simply loads all the default modules of eev and turns
+;; eev-mode on.
+;;
+;; Older versions of eev loaded "eev-readme.el" instead of
+;; "eev-beginner.el". See:
+;;
+;;   (find-eev "eev-readme.el")
+
+(add-to-list 'load-path default-directory)
+(require 'eev-load)           ; (find-eev "eev-load.el")
+(eev-mode 1)
+
+;; (find-eev-install-intro "1. Installing eev by hand")
+;; (find-eev-install-intro "1. Installing eev by hand" "require 'eev-load")
+
+(provide 'eev-beginner)
+
+
+;; Local Variables:
+;; coding:            utf-8-unix
+;; no-byte-compile:   t
+;; End:
diff --git a/eev-blinks.el b/eev-blinks.el
index d0b3226..be452bc 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -23,7 +23,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar02
+;; Version:    2019mar05
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-blinks.el>
@@ -621,6 +621,9 @@ This is like `find-sh' but sets the buffer's 
default-directory to DIR."
 
 (defvar ee-find-man-flag nil "See `find-man'.")
 
+;; See: (find-elnode "Advising Functions")
+;;      (find-elnode "Porting old advices")
+;;      (find-efunctiondescr 'defadvice)
 (defadvice Man-notify-when-ready (around find-man (man-buffer) activate)
   "After rendering a manpage jump to `ee-find-man-pos-spec-list'."
   (if (not ee-find-man-flag)
diff --git a/eev-elinks.el b/eev-elinks.el
index 4577534..7372854 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar03
+;; Version:    2019mar05
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -1164,7 +1164,7 @@ This needs a temporary directory; see: 
(find-prepared-intro)"
 (defun ee-pdftext-bufferp  () (ee-buffer-re "^pdftotext"))
 
 ;; By buffer name (when it is "*Help*")
-(defvar ee-efunctiondescr-re "^\\([^ \t\n]+\\) is a[^\t\n]*function")
+(defvar ee-efunctiondescr-re "^\\([^ \t\n]+\\) is a[^\t\n]*\\(function\\|Lisp 
macro\\)")
 (defun  ee-efunctiondescr-bufferp () (ee-buffer-help ee-efunctiondescr-re 1))
 (defun  ee-find-efunctiondescr-links ()
   (let ((f (ee-efunctiondescr-bufferp)))
diff --git a/eev-intro.el b/eev-intro.el
index b7ca4e7..4120834 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -297,12 +297,12 @@ it into the shell to run its commands.
   rm -Rv ~/eev2/
   mkdir  ~/eev2/
   cd     ~/eev2/
-  rm -v eev2.tgz
+  rm -fv eev2.tgz
   wget http://angg.twu.net/eev-current/eev2.tgz
   tar -xvzf eev2.tgz
   {
     echo '#!/bin/sh'
-    echo 'cd ~/eev2/ && emacs -l eev-readme.el 
--eval=\"(find-eev-quick-intro)\" $*'
+    echo 'cd ~/eev2/ && emacs -l eev-beginner.el 
--eval=\"(find-eev-quick-intro)\" $*'
   } > ~/eev
   chmod 755 ~/eev
 }
@@ -1007,7 +1007,7 @@ the other ones are similar.
   |_(Copied 8 lines to the kill ring - use C-y to paste)________________|
 
 
-  5) Go to the window on the right and type `M-y'. You should get this,
+  5) Go to the window on the right and type `C-y'. You should get this,
 
    ______________________________________________________________________
   |# (find-latex-links \"/tmp/foo\")   |% (defun c () (interactive) (find-|
@@ -1822,14 +1822,74 @@ make it load eev at startup.
 
 
 
-1. Running `(find-eev-install-links)'
+
+1. Installing eev by hand
+=========================
+If you have unpacked eev in a certain directory - for example in
+~/eev2/, with:
+
+  rm -Rv ~/eev2/
+  mkdir  ~/eev2/
+  cd     ~/eev2/
+  rm -fv eev2.tgz
+  wget http://angg.twu.net/eev-current/eev2.tgz
+  tar -xvzf eev2.tgz
+
+then you can try it with:
+
+  (add-to-list 'load-path \"~/eev2/\")
+  (require 'eev-load)                 ; (find-eev \"eev-load.el\")
+  (eev-mode 1)                        ; (find-eev \"eev-mode.el\")
+
+and you can install it permanently by copying the three lines
+above to your .emacs. Note that eev-mode.el has this commentary:
+
+  ;; Turning on eev-mode simply activates the eev-mode-map keymap, and
+  ;; adds an \"eev\" to the mode line to remind you this. Turning off
+  ;; eev-mode deactivates the keymap and the reminder. 
+
+If you prefer to start with eev-mode off, omit the
+line `(eev-mode 1)' above or change it to `(eev-mode 0)'. To
+toggle eev-mode on and off, use `M-x eev'. The keybindings in
+eev-mode are listed here:
+
+  (find-eev \"eev-mode.el\" \"eev-mode-map-set\")
+
+Years ago eev was a very invasive package that changed several
+global settings; now it's the opposite. If you load eev the only
+things that happen are:
+
+  1) Several functions and variables become defined. They ALL
+     have the prefixes \"find-\", \"ee\", \"code-\" or \"br\",
+     except for one: \"to\".
+
+  2) The standard-display-table is changed to make three
+     characters be displayed as colored glyphs: \"\" (char 15),
+     \"«\" (char 171), and \"»\" (char 187).
+     
+  3) The environment variables \"S\" and \"EEVDIR\" are set.
+
+  4) An innocuous wrapper is installed around an internal
+     function used by `man'. See:
+
+       (find-eev \"eev-blinks.el\" \"find-man\")
+
+This is all I remember now (2019mar05). I am trying to make eev
+as non-invasive as possible - to convince as many people as
+possible to install it and try it!
+
+
+
+
+
+2. Running `(find-eev-install-links)'
 =====================================
 The shell commands in
 
   (find-eev-quick-intro \"1. Installing eev\")
 
-can be obtained by running `find-eev-install-links' with these
-arguments:
+and the previous section can be obtained by running
+`find-eev-install-links' with these arguments:
 
   (find-eev-install-links \"~/eev2/\" \"~/eev\")
 
@@ -1849,7 +1909,7 @@ and execute its eepitch block.
 
 
 
-2. Changing your .emacs
+3. Changing your .emacs
 =======================
 See:
 
@@ -1861,7 +1921,7 @@ See:
 
 
 
-3. Using the git repository
+4. Using the git repository
 ===========================
 Eev has a git repository at:
 
@@ -1900,7 +1960,7 @@ incompatible with our convention of creating a script 
called
 
 
 
-4. Eev as an ELPA package
+5. Eev as an ELPA package
 =========================
 I started to make an Emacs \"package\" for eev but I did not go
 very far. See:
diff --git a/eev-load.el b/eev-load.el
index 4d98100..111ade5 100644
--- a/eev-load.el
+++ b/eev-load.el
@@ -38,6 +38,7 @@
 ;; read the source can use this as an index to them. The modules are
 ;; loaded more or less in the order that they are mentioned here:
 ;;   (find-eev-quick-intro)
+;; Some of them are `require'd twice for clarity.
 
 ;; The "eev quick intro" itself, and many other intros:
 (require 'eev-intro)          ; (find-eev "eev-intro.el")
@@ -102,14 +103,15 @@
 ;;
 ;; Advanced (and hard to use) features that may require creating a
 ;; temporary directory, patching rcfiles, and installing Expect
-;; scripts. In the future these will no longer be loaded by default.
-;; See:
+;; scripts... see:
 ;;   (find-prepared-intro)
 ;;   (find-bounded-intro)
 ;;   (find-channels-intro)
-(require 'eev-prepared)               ; (find-eev "eev-prepared.el")
-(require 'eev-bounded)        ; (find-eev "eev-bounded.el")
-(require 'eev-channels)               ; (find-eev "eev-channels.el")
+' (require 'eev-prepared)      ; (find-eev "eev-prepared.el")
+' (require 'eev-bounded)       ; (find-eev "eev-bounded.el")
+' (require 'eev-channels)      ; (find-eev "eev-channels.el")
+;; IMPORTANT: Since 2019mar05 they are no longer loaded by default!
+;; Note the "'" at the beginning of each line!
 
 
 
diff --git a/eev-plinks.el b/eev-plinks.el
index 6222b3e..cb92f4c 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -111,8 +111,9 @@
 ;; (find-eev "eev-brxxx.el")
 
 
-;; «.find-wget»        (to "find-wget")
-;; «.find-gitk»        (to "find-gitk")
+;; «.find-wget»                (to "find-wget")
+;; «.find-gitk»                (to "find-gitk")
+;; «.find-tkdiff»      (to "find-tkdiff")
 
 
 
@@ -268,6 +269,14 @@
   (ee-at0 dir '(find-bgprocess "gitk --all --date-order")))
 
 
+;; «find-tkdiff» (to ".find-tkdiff")
+(defun find-tkdiff (f1 f2)
+  (find-bgprocess `("tkdiff" ,f1 ,f2)))
+
+
+
+
+
 (provide 'eev-plinks)
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index bda5d74..178b512 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -20,7 +20,7 @@
 ;;
 ;; Author:     Eduardo Ochs <address@hidden>
 ;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version:    2019mar02
+;; Version:    2019mar05
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -38,9 +38,13 @@
 ;; templated text. The templated text is usually preceded by a line
 ;; like `(ee-copy-rest NLINES CODE)'; see the explanation of
 ;; `ee-copy-rest' below to understand how this is used.
-
+;;
 ;; The functions here are one complexity step above the functions in:
 ;;   (find-eev "eev-elinks.el")
+;;
+;; NOTE (written in 2019mar05): some of the functions here are very
+;; old and ugly and I haven't used them in ages. They will be deleted
+;; in the next few months.
 
 ;; (find-efunctiondescr 'ee-upload-links)
 ;; (find-eev "eev-wrap.el" "eewrap-eewrap")
@@ -74,6 +78,7 @@
 
 
 (require 'eev-env)
+(require 'eev-wrap)    ; For: (find-eev "eev-wrap.el" "ee-template0") 
 
 
 
@@ -635,7 +640,7 @@ sudo dpkg -i *.deb
      ""
      ,(ee-template0 "\
 # This function is explained at:
-#   (find-eev-install-intro \"1. Running `(find-eev-install-links)'\")
+#   (find-eev-install-intro \"2. Running `(find-eev-install-links)'\")
 #
 # The default way to use it to install eev in your home directory is with:
 #   (find-eev-install-links \"~/eev2/\" \"~/eev\" \"#\")
@@ -657,12 +662,12 @@ sudo dpkg -i *.deb
   rm -Rv {dir}
   mkdir  {dir}
   cd     {dir}
-  rm -v eev2.tgz
+  rm -fv eev2.tgz
   wget http://angg.twu.net/eev-current/eev2.tgz
   tar -xvzf eev2.tgz
   {<}
     echo '#!/bin/sh'
-    echo 'cd {dir} && emacs -l eev-readme.el --eval=\"(find-eev-quick-intro)\" 
$*'
+    echo 'cd {dir} && emacs -l eev-beginner.el 
--eval=\"(find-eev-quick-intro)\" $*'
   {>} > {script}
   chmod 755 {script}
 {comment}{>}
@@ -678,17 +683,17 @@ sudo dpkg -i *.deb
 ;; eev in /tmp/, or 2) if you don't know how to use Lisp well
 ;; enough!
 ;;
-;; See: (find-eev-install-intro \"2. Changing your .emacs\")
+;; See: (find-eev-install-intro \"3. Changing your .emacs\")
 
 ;; (ee-copy-rest 0 '(find-fline \"~/.emacs\"))
 
 ;; Load eev.
 ;; Generated by: (find-eev-install-links \"{dir}\" \"{script}\" \"{comment}\")
 ;;        Check: (find-fline \"{dir}\")
-;;          See: (find-eev-install-intro \"2. Changing your .emacs\")
+;;          See: (find-eev-install-intro \"3. Changing your .emacs\")
 ;;
 \(add-to-list 'load-path \"{dir}\")
-\(require 'eev2-all)                 ; (find-eev \"eev2-all.el\")
+\(require 'eev-load)                 ; (find-eev \"eev-load.el\")
 \(eev-mode 1)                        ; (find-eev \"eev-mode.el\")
 
 ")
@@ -1338,106 +1343,101 @@ cd {dir}
 ;;;                                                
 ;; «find-upload-links»  (to ".find-upload-links")
 
+;; 2019mar05: commented out. This will be deleted soon.
 ;; 2012jan26 - experimental hack.
 ;; Some of these functions use environment variables for readability
 ;; (i.e., to make the shell scripts more readable).
 ;; Default values (all for angg.twu.net):
-(ee-setenv "MYPAGEDIR" "/scp:address@hidden:public_html")
-(ee-setenv "MYPAGEURL" "http://angg.twu.net";)
-(ee-setenv "DNPAGEURL" "http://angg.twu.net";)
-;; (getenv "MYPAGEDIR")
-;; (getenv "MYPAGEURL")
-;; (getenv "DNPAGEURL")
-;; (setenv "DNPAGEURL" "http://0branch.com/highlight/snippets";)
-
-(defun find-tkdiff (f1 f2)
-  (find-bgprocess `("tkdiff" ,f1 ,f2)))
-
-(defun ee-upload-links (fromdir/ todir/ fname)
-  "An internal function used by `find-upload-links'.
-Try this: (find-elinks (ee-upload-links \"eev-current/eev-template.el\"))"
-  (let ((dir    (file-name-directory (ee-expand fname)))
-       (fname- (file-name-nondirectory fname))
-       (mypagedir (getenv "MYPAGEDIR"))
-       (mypageurl (getenv "MYPAGEURL"))
-       )
-    `("# Env vars (current values):"
-      (setenv "MYPAGEDIR" ,(getenv "MYPAGEDIR"))
-      (setenv "MYPAGEURL" ,(getenv "MYPAGEURL"))
-      ,(ee-template0 "\
-# Upload (warning: SLOW, uses tramp!):
- (eepitch-eshell)
-cp -v ~/{fromdir/}{fname} $MYPAGEDIR/{todir/}{fname}
-ls -l ~/{fromdir/}{fname} $MYPAGEDIR/{todir/}{fname}\n
-# Test:
- (eepitch-shell)
- (eepitch-kill)
- (eepitch-shell)
-cd /tmp/
-wget -N {mypageurl}/{fname}
-ls -l /tmp/{fname-} ~/{fname}
-# (find-fline \"/tmp/{fname-}\")"))))
-
-(defun ee-download-links (fromdir/ todir/ fname)
-  "Visit a temporary buffer containing a script for downloading FNAME."
-  (setq fromdir/ (or fromdir/ (file-name-directory fname)))
-  (setq todir/   (or todir/   (file-name-directory fname)))
-  (let ((fname-               (file-name-nondirectory fname))
-       (dnpageurl            (getenv "DNPAGEURL")))
-    `(,(ee-template `(fromdir/ todir/ fname fname- dnpageurl) "\
-# Download:
- (eepitch-shell)
- (eepitch-kill)
- (eepitch-shell)
-cd /tmp/
-wget -N {dnpageurl}/{fromdir/}{fname}
-ls -l /tmp/{fname-} ~/{todir/}{fname}
-cp -v /tmp/{fname-} ~/{todir/}{fname}
-#        (diff \"/tmp/{fname-}\" \"~/{todir/}{fname}\")
-# (find-tkdiff \"/tmp/{fname-}\" \"~/{todir/}{fname}\")
-# (find-fline \"/tmp/{fname-}\")
-# (find-fline \"~/{todir/}{fname}\")"))))
-
-(defun find-upload-links (&optional fromdir/ todir/ fname &rest rest)
-  "Visit a temporary buffer containing a script for uploading FNAME."
-  (interactive)
-  (setq fname (or fname "{fname}"))
-  (setq fromdir/ (or fromdir/ (file-name-directory fname)))
-  (setq todir/   (or todir/   (file-name-directory fname)))
-  (let ((ee-hyperlink-prefix "# "))
-    (apply 'find-elinks `(
-      ;; Convention: the first sexp always regenerates the buffer.
-      (find-upload-links ,fromdir/ ,todir/ ,fname ,@rest)
-      ;; The second sexp generates the corresponding download link.
-      (find-download-links ,fname ,@rest)
-      ""
-      ,@(ee-upload-links fromdir/ todir/ fname)) rest)))
 
-(defun find-download-links (&optional fromdir/ todir/ fname extras &rest rest)
-  "Visit a temporary buffer containing a script for downloading FNAME."
-  (interactive)
-  (setq fname    (or fname "{fname}"))
-  (setq fromdir/ (or fromdir/ (file-name-directory fname)))
-  (setq todir/   (or todir/   (file-name-directory fname)))
-  (apply 'find-elinks `(
-    ;; Convention: the first sexp always regenerates the buffer.
-    (find-download-links ,fromdir/ ,todir/ ,fname ,@rest)
-    ;; Body:
-    ""
-    ,@(ee-download-links fromdir/ todir/ fname)
-    ,@extras) rest))
-
-(defun ut ()
-  (interactive)
-  "Upload eev-template.el"
-  (find-upload-links "eev-current/" "eev-current/" "eev-template.el"))
-
-(defun dt ()
-  (interactive)
-  "Download eev-template.el and load the new version."
-  (find-download-links
-   "eev-current/" "emacs/eev/" "eev-template.el"
-   '("\n (load \"eev-template.el\")")))
+;; (ee-setenv "MYPAGEDIR" "/scp:address@hidden:public_html")
+;; (ee-setenv "MYPAGEURL" "http://angg.twu.net";)
+;; (ee-setenv "DNPAGEURL" "http://angg.twu.net";)
+;; 
+;; (defun ee-upload-links (fromdir/ todir/ fname)
+;;   "An internal function used by `find-upload-links'.
+;; Try this: (find-elinks (ee-upload-links \"eev-current/eev-template.el\"))"
+;;   (let ((dir    (file-name-directory (ee-expand fname)))
+;;     (fname- (file-name-nondirectory fname))
+;;     (mypagedir (getenv "MYPAGEDIR"))
+;;     (mypageurl (getenv "MYPAGEURL"))
+;;     )
+;;     `("# Env vars (current values):"
+;;       (setenv "MYPAGEDIR" ,(getenv "MYPAGEDIR"))
+;;       (setenv "MYPAGEURL" ,(getenv "MYPAGEURL"))
+;;       ,(ee-template0 "\
+;; # Upload (warning: SLOW, uses tramp!):
+;;  (eepitch-eshell)
+;; cp -v ~/{fromdir/}{fname} $MYPAGEDIR/{todir/}{fname}
+;; ls -l ~/{fromdir/}{fname} $MYPAGEDIR/{todir/}{fname}\n
+;; # Test:
+;;  (eepitch-shell)
+;;  (eepitch-kill)
+;;  (eepitch-shell)
+;; cd /tmp/
+;; wget -N {mypageurl}/{fname}
+;; ls -l /tmp/{fname-} ~/{fname}
+;; # (find-fline \"/tmp/{fname-}\")"))))
+;; 
+;; (defun ee-download-links (fromdir/ todir/ fname)
+;;   "Visit a temporary buffer containing a script for downloading FNAME."
+;;   (setq fromdir/ (or fromdir/ (file-name-directory fname)))
+;;   (setq todir/   (or todir/   (file-name-directory fname)))
+;;   (let ((fname-               (file-name-nondirectory fname))
+;;         (dnpageurl            (getenv "DNPAGEURL")))
+;;     `(,(ee-template `(fromdir/ todir/ fname fname- dnpageurl) "\
+;; # Download:
+;;  (eepitch-shell)
+;;  (eepitch-kill)
+;;  (eepitch-shell)
+;; cd /tmp/
+;; wget -N {dnpageurl}/{fromdir/}{fname}
+;; ls -l /tmp/{fname-} ~/{todir/}{fname}
+;; cp -v /tmp/{fname-} ~/{todir/}{fname}
+;; #        (diff \"/tmp/{fname-}\" \"~/{todir/}{fname}\")
+;; # (find-tkdiff \"/tmp/{fname-}\" \"~/{todir/}{fname}\")
+;; # (find-fline \"/tmp/{fname-}\")
+;; # (find-fline \"~/{todir/}{fname}\")"))))
+;; 
+;; (defun find-upload-links (&optional fromdir/ todir/ fname &rest rest)
+;;   "Visit a temporary buffer containing a script for uploading FNAME."
+;;   (interactive)
+;;   (setq fname (or fname "{fname}"))
+;;   (setq fromdir/ (or fromdir/ (file-name-directory fname)))
+;;   (setq todir/   (or todir/   (file-name-directory fname)))
+;;   (let ((ee-hyperlink-prefix "# "))
+;;     (apply 'find-elinks `(
+;;       ;; Convention: the first sexp always regenerates the buffer.
+;;       (find-upload-links ,fromdir/ ,todir/ ,fname ,@rest)
+;;       ;; The second sexp generates the corresponding download link.
+;;       (find-download-links ,fname ,@rest)
+;;       ""
+;;       ,@(ee-upload-links fromdir/ todir/ fname)) rest)))
+;; 
+;; (defun find-download-links (&optional fromdir/ todir/ fname extras &rest 
rest)
+;;   "Visit a temporary buffer containing a script for downloading FNAME."
+;;   (interactive)
+;;   (setq fname    (or fname "{fname}"))
+;;   (setq fromdir/ (or fromdir/ (file-name-directory fname)))
+;;   (setq todir/   (or todir/   (file-name-directory fname)))
+;;   (apply 'find-elinks `(
+;;     ;; Convention: the first sexp always regenerates the buffer.
+;;     (find-download-links ,fromdir/ ,todir/ ,fname ,@rest)
+;;     ;; Body:
+;;     ""
+;;     ,@(ee-download-links fromdir/ todir/ fname)
+;;     ,@extras) rest))
+;; 
+;; (defun ut ()
+;;   (interactive)
+;;   "Upload eev-template.el"
+;;   (find-upload-links "eev-current/" "eev-current/" "eev-template.el"))
+;; 
+;; (defun dt ()
+;;   (interactive)
+;;   "Download eev-template.el and load the new version."
+;;   (find-download-links
+;;    "eev-current/" "emacs/eev/" "eev-template.el"
+;;    '("\n (load \"eev-template.el\")")))