[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "ee
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "eev-readme.el". |
Date: |
Sun, 7 Apr 2019 16:59:12 -0400 (EDT) |
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\")")))
- [elpa] externals/eev 92702c7 49/64: Made `find-pdf-text' ignore spurious formfeeds., (continued)
- [elpa] externals/eev 92702c7 49/64: Made `find-pdf-text' ignore spurious formfeeds., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 7c396d0 26/64: Many changes in the intros; added eev-load.el, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 8a09aa4 59/64: Made the files eev-code.el and eev-brxxx.el more compatible with lexical binding., Stefan Monnier, 2019/04/07
- [elpa] externals/eev fb9f4c6 64/64: Added an explanation of why eev is not in ELPA yet., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b0f124e 48/64: Added material to `find-escripts-intro' and `find-eev-quick-intro'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 9d39df9 36/64: Several clean-ups in eev-elinks.el and eev-tlinks.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 39a2cea 60/64: New file: eev-template0.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev c77ca3b 27/64: Rewrote eev-pdflike.el, added sections about it to (find-eev-quick-intro)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 7162184 51/64: Added `find-texworkspdf-page'., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b9baae6 17/64: First commit after an HD crash; lots of changes, Stefan Monnier, 2019/04/07
- [elpa] externals/eev 2518e75 50/64: Use "eev-beginner.el" instead of "eev-readme.el".,
Stefan Monnier <=
- [elpa] externals/eev 51e636a 63/64: Deleted eev-pdflike-old.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev b56266f 54/64: Added `eev-beginner' (our first autoload)., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 5dbba21 40/64: Added `find-eunicodeucs'; added lots of documentation., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 14d1125 46/64: Converted several elisp files to utf-8., Stefan Monnier, 2019/04/07
- [elpa] externals/eev 22702eb 31/64: Made all secondary intros point to sections of find-eev-quick-intro., Stefan Monnier, 2019/04/07
- [elpa] externals/eev a5f9343 30/64: Small changes in `find-eev-install-links' and in eev-intro.el., Stefan Monnier, 2019/04/07
- [elpa] externals/eev af88c9b 01/64: Initial commit for eev2, Stefan Monnier, 2019/04/07