[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 74b3d79 3/4: Small changes in `find-here-links-begi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eev 74b3d79 3/4: Small changes in `find-here-links-beginner' and `find-freenode-links'. |
Date: |
Fri, 17 May 2019 18:27:27 -0400 (EDT) |
branch: externals/eev
commit 74b3d7996f7936ebe3721271f34c40c7a042fa48
Author: Eduardo Ochs <address@hidden>
Commit: Eduardo Ochs <address@hidden>
Small changes in `find-here-links-beginner' and `find-freenode-links'.
---
ChangeLog | 21 +++
VERSION | 4 +-
eev-elinks.el | 15 +-
eev-intro.el | 8 +-
eev-pkg.el | 4 +-
eev-rcirc.el | 43 ++++--
eev-tlinks.el | 484 +---------------------------------------------------------
eev-wrap.el | 2 +-
8 files changed, 71 insertions(+), 510 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index be7df61..b4302a9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,24 @@
+2019-05-17 Eduardo Ochs <address@hidden>
+
+ * eev-elinks.el (find-here-links-3): new function.
+ (find-here-links-beginner): small changes.
+
+ * eev-intro.el: small changes.
+
+2019-05-16 Eduardo Ochs <address@hidden>
+
+ * eev-tlinks.el (find-dhmake-links): deleted.
+ (find-newhost-links): deleted.
+
+2019-05-15 Eduardo Ochs <address@hidden>
+
+ * eev-elinks.el (find-ekey-links): added some spaces in the
+ output.
+
+2019-05-11 Eduardo Ochs <address@hidden>
+
+ * eev-rcirc.el (find-freenode-links): added some text.
+
2019-04-25 Eduardo Ochs <address@hidden>
* eev-intro.el (find-emacs-keys-intro): point to
diff --git a/VERSION b/VERSION
index 50e3849..1ea0fe5 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Apr 26 20:02:26 GMT 2019
-Fri Apr 26 17:02:26 -03 2019
+Fri May 17 07:17:49 GMT 2019
+Fri May 17 04:17:49 -03 2019
diff --git a/eev-elinks.el b/eev-elinks.el
index 5a4b455..e330221 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019apr25
+;; Version: 2019may17
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-elinks.el>
@@ -372,8 +372,8 @@ See: (find-eev \"eev-elinks.el\" \"find-ekey-links\")"
`((find-ekey-links ,key ,@pos-spec-list)
;; Convention: the first sexp always regenerates the buffer.
(find-ekey-links ,key)
- (eek ,(format "M-h M-k %s" longkey))
- (eek ,(format "M-h M-k %s" longkey+))
+ (eek ,(format "M-h M-k %s" longkey))
+ (eek ,(format "M-h M-k %s" longkey+))
(find-efunctiondescr ',f)
""
(find-elongkey-links ,longkey)
@@ -1277,11 +1277,16 @@ This needs a temporary directory; see:
(find-prepared-intro)"
;; (find-refining-intro "4. A tip for beginners")
;; (find-refining-intro "4. A tip for beginners" "find-here-links-beginner")
;;
-(defun find-here-links-beginner ()
+(defun find-here-links-3 ()
"A variant of `find-here-links' that creates a three-window setting."
- (interactive)
+ (interactive "P")
(find-wset "13_o2_o_coo" nil '(find-here-links) '(eejump-1)))
+(defun find-here-links-beginner (&optional arg)
+ "A variant of `find-here-links' that may create a three-window setting."
+ (interactive "P")
+ (if arg (find-here-links-3) (find-here-links)))
+
diff --git a/eev-intro.el b/eev-intro.el
index fec48e1..34ffd52 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019apr25
+;; Version: 2019may17
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-intro.el>
@@ -2287,7 +2287,7 @@ For the full lists of keybindings, see:
(defun find-refining-intro (&rest pos-spec-list) (interactive)
(let ((ee-buffer-name "*(find-refining-intro)*"))
- (apply 'find-estring "\
+ (apply 'find-eintro "\
\(Re)generate: (find-refining-intro)
Source code: (find-efunction 'find-refining-intro)
More intros: (find-eev-quick-intro)
@@ -2486,7 +2486,7 @@ If you run the second sexp below,
it will rebind the key sequence `M-h M-h' to a variant of
`find-here-links' for beginners that creates this window
-configuration:
+configuration when invoked as `M-3 M-h M-h':
_____________________
| | |
@@ -2500,7 +2500,7 @@ configuration:
You can then try to run the instructions in the last section with
all the three buffers visible, switching from one buffer to
-another by clicking on their windows. Note the the order is:
+another by clicking on their windows. Note that the order is:
_____________________
| | |
diff --git a/eev-pkg.el b/eev-pkg.el
index 1d6c2e8..87b36f1 100644
--- a/eev-pkg.el
+++ b/eev-pkg.el
@@ -1,5 +1,5 @@
-(define-package "eev" "20190401" "Support for e-scripts (eepitch blocks, elisp
hyperlinks, etc)"
- '((emacs "24.3"))
+(define-package "eev" "20190517" "Support for e-scripts (eepitch blocks, elisp
hyperlinks, etc)"
+ '((emacs "24.1"))
:keywords
'("lisp" "e-scripts")
:authors
diff --git a/eev-rcirc.el b/eev-rcirc.el
index 4b38ea8..0c3ee0d 100644
--- a/eev-rcirc.el
+++ b/eev-rcirc.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019apr14
+;; Version: 2019may11
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-rcirc.el>
@@ -352,20 +352,33 @@ This is like `find-rcirc-buffer-3a' but uses
;;;
;; «find-freenode-links» (to ".find-freenode-links")
-(defun find-freenode-links (&optional c channel &rest pos-spec-list)
+(defun find-freenode-links (&optional c channels &rest pos-spec-list)
"Visit a temporary buffer containing code for connecting to a freenode
channel."
(interactive)
(setq c (or c "{c}"))
- (setq channel (or channel "{channel}"))
- (apply 'find-elinks
- `((find-freenode-links ,c ,channel)
- (find-freenode-links "e" "#eev")
- (find-freenode-links)
- ;; Convention: the first sexp always regenerates the buffer.
- (find-efunction 'find-freenode-links)
- (find-efunction 'find-freenode-2a)
- ""
- ,(ee-template0 "\
+ (setq channels (or channels "{channels}"))
+ (let ((channel (car (ee-split channels))))
+ (apply 'find-elinks
+ `((find-freenode-links ,c ,channels)
+ (find-freenode-links "e" "#eev")
+ (find-freenode-links)
+ ;; Convention: the first sexp always regenerates the buffer.
+ ;; (find-efunction 'find-freenode-links)
+ ;; (find-efunction 'find-freenode-2a)
+ ""
+ ,(ee-template0 "\
+;; To copy this to your .emacs, use:
+;; (ee-copy-rest 3 '(find-fline \"~/.emacs\"))
+
+
+
+;; Use (setq rcirc-default-nick-name ...) to set your nickname.
+;; The default is to use \"#eev\" as the list of \"initial channels\",
+;; the same list as the list of channels to always reconnect to, and
+;; `M-x e3' and `M-x e2' to create the window setups described here:
+;;
+;; (find-rcirc-intro \"1. The example that I use in workshops\")
+;;
(setq rcirc-default-nick \"hakuryo\")
(setq rcirc-default-nick \"{(user-login-name)}\")
(setq ee-freenode-ichannels {(ee-pp0 ee-freenode-ichannels)})
@@ -373,11 +386,13 @@ This is like `find-rcirc-buffer-3a' but uses
(defun {c}2 () (interactive) (find-freenode-2a \"{channel}\"))
(defun {c}3 () (interactive) (find-freenode-3a \"{channel}\"))
")
- )
- pos-spec-list))
+ )
+ pos-spec-list)))
;; Tests: (find-freenode-links)
;; (find-freenode-links "e" "#eev")
+;; (find-freenode-links "e" "#eev #emacs")
+;; (find-rcirc-intro)
(provide 'eev-rcirc)
diff --git a/eev-tlinks.el b/eev-tlinks.el
index f9e39c9..3e5a696 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <address@hidden>
;; Maintainer: Eduardo Ochs <address@hidden>
-;; Version: 2019mar05
+;; Version: 2019may16
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -61,13 +61,9 @@
;; «.find-debpkg-links» (to "find-debpkg-links")
;; «.find-eev-install-links» (to "find-eev-install-links")
;; «.find-eev-update-links» (to "find-eev-update-links")
-;; «.find-newhost-links» (to "find-newhost-links")
-;; «.find-dhmake-links» (to "find-dhmake-links")
;; «.find-youtubedl-links» (to "find-youtubedl-links")
-;; «.find-upload-links» (to "find-upload-links")
;; «.find-psne-links» (to "find-psne-links")
;; «.find-git-links» (to "find-git-links")
-;; «.find-netcat-test-links» (to "find-netcat-test-links")
;; «.find-eev-video-links» (to "find-eev-video-links")
;;
;; «.find-latex-links» (to "find-latex-links")
@@ -75,7 +71,6 @@
;; «.find-escreenshot-links» (to "find-escreenshot-links")
-
(require 'eev-env)
(require 'eev-wrap) ; For: (find-eev "eev-wrap.el" "ee-template0")
@@ -297,7 +292,7 @@ See: (find-eev \"eev-intro.el\")"
\(defun find-{stem}-intro (&rest pos-spec-list) (interactive)
(let ((ee-buffer-name \"*(find-{stem}-intro)*\"))
- (apply 'find-estring \"\\
+ (apply 'find-eintro \"\\
\\(Re)generate: (find-{stem}-intro)
Source code: (find-efunction 'find-{stem}-intro)
More intros: (find-eev-quick-intro)
@@ -801,368 +796,6 @@ emacs -fg bisque -bg black
eev-readme.el
-;;; _ _
-;;; _ __ _____ _| |__ ___ ___| |_
-;;; | '_ \ / _ \ \ /\ / / '_ \ / _ \/ __| __|
-;;; | | | | __/\ V V /| | | | (_) \__ \ |_
-;;; |_| |_|\___| \_/\_/ |_| |_|\___/|___/\__|
-;;;
-;; «find-newhost-links» (to ".find-newhost-links")
-;; Scripts to connect to a newly-installed Debian machine
-;; (find-angg ".emacs.templates" "find-newhost-links")
-;; (find-find-links-links "newhost" "thatmname thatip thismname thisip
thisiface")
-;; (find-angg "bin/etc.lua" "inet_addr")
-
-;; New, not used yet:
-(defun ee-inet-addr (&optional iface str)
-"Return the IP after \"inet addr:\" in the output of \"/sbin/ifconfig IFACE\".
-The defaulr for IFACE is \"wlan0\". If STR is non-nil, pretend that the
-output of /sbin/ifconfig was STR (for debugging)."
- (setq iface (or iface "wlan0"))
- (setq str (or str (find-sh0 (format "/sbin/ifconfig %s" iface))))
- (if (string-match "inet addr:\\([0-9.]+\\)" str)
- (match-string 1 str)))
-;;
-;; See also: system-name
-
-(defvar ee-this-mname nil)
-(defvar ee-this-iface "wlan0")
-(defvar ee-this-ip nil)
-;;
-(defun ee-this-mname () (find-sh0 "uname -n"))
-(defun ee-this-ip (&optional iface)
- (find-sh0 (format "/sbin/ifconfig %s | etc.lua inet_addr"
- (or ee-this-iface iface))))
-;;
-;; (find-sh0 "uname -n")
-;; (find-sh0 "/sbin/ifconfig")
-;; (find-sh0 "/sbin/ifconfig wlan0")
-;; (find-sh0 "/sbin/ifconfig eth0")
-;; (setq ee-this-iface "wlan0")
-;; (setq ee-this-iface "eth0")
-;; (ee-this-mname)
-;; (ee-this-ip)
-;; (setq ee-this-mname (ee-this-mname))
-;; (setq ee-this-ip (ee-this-ip))
-
-(defun find-newhost-links (&optional thatmname thatip thismname thisip
thisiface &rest rest)
- "Visit a temporary buffer with an e-script to set up a new host."
- (interactive)
- (let ((thisdisplay))
- (setq thatmname (or thatmname "{thatmname}"))
- (setq thatip (or thatip "{thatip}"))
- (setq thismname (or thismname ee-this-mname "{thismname}"))
- (setq thisip (or thisip ee-this-ip "{thisip}"))
- (setq thisiface (or thisiface ee-this-iface "{thisiface}"))
- (setq thisdisplay (or (getenv "DISPLAY") "{thisdisplay}"))
- (apply 'find-elinks `(
- ;; Convention: the first sexp always regenerates the buffer.
- (find-newhost-links ,thatmname ,thatip ,thismname ,thisip ,thisiface)
- (find-newhost-links ,thatmname ,thatip ,ee-this-mname ,ee-this-ip
,ee-this-iface)
- (find-newhost-links ,thatmname ,thatip nil nil nil)
- (find-newhost-links ,thatmname ,thatip)
- (find-efunction 'find-newhost-links)
- ;; Body:
- ""
- ,(ee-template0 "\
-# Basic setup (on this machine, {thismname} - set thismname and thisip):
-# (find-sh0 \"/sbin/ifconfig wlan0\")
-# (find-sh0 \"/sbin/ifconfig eth0\")
-# (setq ee-this-iface \"wlan0\")
-# (setq ee-this-iface \"eth0\")
-# (ee-this-mname)
-# (ee-this-ip)
-# (setq ee-this-mname (ee-this-mname))
-# (setq ee-this-ip (ee-this-ip))
-# (find-newhost-links \"{thatmname}\" \"{thatip}\")
-
-# Make sure that we can refer to {thatmname} by name
-# (find-sh0 \"ls -l /etc/hosts\")
-# (find-sh0 \"sudo chmod 666 /etc/hosts\")
-# (kill-new \"{thatip} {thatmname}\")
-# (find-fline \"/etc/hosts\")
-# (find-fline \"/etc/hosts\" \"{thatmname}\")
-# (find-fline \"/etc/hosts\" \"{thatip}\")
-
-# Basic setup (on the remote machine, {thatmname} - by hand):
-# adduser edrx
-# (find-es \"sudo\" \"sudo\")
-# apt-get install openssh-server xterm
-# chmod 666 /etc/hosts
-# nano /etc/hosts
-# (kill-new \"{thisip} {thismname}\")
-
-# Try to connect:
-# (find-sh0 \"ssh-keygen -R {thatip}\")
-# (find-sh0 \"ssh-keygen -R {thatmname}\")
-
- (eepitch-shell)
- (eepitch-kill)
- (eepitch-shell)
-ssh address@hidden
-exit
-ssh address@hidden
-exit
-
-# Try file access by tramp
-# (find-fline \"/ssh:address@hidden:/\")
-# (find-fline \"/scp:address@hidden:/\")
-# (find-fline \"/ssh:address@hidden:/\")
-# (find-fline \"/scp:address@hidden:/\")
-
-;; If that works:
-\(code-c-d \"{thatmname}\" \"/scp:address@hidden:\")
-\(code-c-d \"{thatmname}\" \"/ssh:address@hidden:\")
-;; (find-{thatmname}file \"/\")
-;; (find-{thatmname}file \"/home/edrx/\")
-\(defun eepitch-{thatmname} () (interactive)
- (eepitch '(find-comintprocess \"ssh {thatmname}\" \"ssh address@hidden")))
-\(defun eepitch-{thatmname}root () (interactive)
- (eepitch '(find-comintprocess \"ssh {thatmname}\" \"ssh address@hidden")))
-
-
-# Make sure that the remote machine knows this hostname
-ssh address@hidden
- #
- # Does the remote machine know this hostname?
- echo \"{thisip} {thismname}\"
- cat /etc/hosts | grep {thismname}
- #
- # If it isn't there, add it:
- cat /etc/hosts
- ls -l /etc/hosts
- sudo chmod 666 /etc/hosts
- echo \"{thisip} {thismname}\" >> /etc/hosts
- cat /etc/hosts | grep {thismname}
- cat /etc/hosts
- #
- # Try to open a remote xterm on this X server
- # (find-sh0 \"xhost -\")
- # (find-sh0 \"xhost +\")
- DISPLAY={thisip}{thisdisplay} xterm -T \"address@hidden" &
- DISPLAY={thismname}{thisdisplay} xterm -T \"address@hidden" &
- exit
-
-
-# A high-level version of the above:
-# (find-sh0 \"xhost +\")
-# (find-{thatmname}file \"/etc/hosts\" \"{thismname}\")
-# (eekill \"{thisip} {thismname}\\n\")
-# (eekill \"# (setq backup-inhibited t)\\n\")
-
- (eepitch-{thatmname})
- (eepitch-kill)
- (eepitch-{thatmname})
-DISPLAY={thisip}{thisdisplay} xterm -T \"address@hidden" &
-DISPLAY={thismname}{thisdisplay} xterm -T \"address@hidden" &
-
-")
- ) rest)))
-
-;; (find-newhost-links)
-;; (find-newhost-links "gwen" "192.168.1.101")
-
-
-
-;;; _ _ _
-;;; __| | |__ _ __ ___ __ _| | _____
-;;; / _` | '_ \| '_ ` _ \ / _` | |/ / _ \
-;;; | (_| | | | | | | | | | (_| | < __/
-;;; \__,_|_| |_|_| |_| |_|\__,_|_|\_\___|
-;;;
-;; «find-dhmake-links» (to ".find-dhmake-links")
-;;
-;; Some templates for generating ".deb"s.
-;; If you want to build a .deb for a package called, say, "foo-bar",
-;; these scripts will use the directory "~/usrc/foo-bar/foo-bar_xxx/"
-;; to build it - that directory will be recreated from scratch each
-;; time - and the "override files for dhmake" will be taken from the
-;; directory "~/foo-bar/". At this moment these paths are hardcoded.
-;;
-;; I generate the 3 main packages at
-;; http://angg.twu.net/debian/
-;; http://angg.twu.net/debian/README.html
-;; with these commands:
-;; (find-dhmake-links "eev" "eevbuild")
-;; (find-dhmake-links "eev-puro" "eevpuro")
-;; (find-dhmake-links "eev-lua-extras" "eevluaextras")
-
-(defvar ee-dhmake-fullname "Eduardo Ochs")
-(defvar ee-dhmake-email "address@hidden")
-
-;; (find-estring-elisp (ee-dhmake-codecds "eev-puro" "eevpuro" "20120305"))
-;;
-(defun ee-dhmake-codecds (stem c date)
- (ee-template '(stem c date) "\
-;; Generated by:
-;; (ee-dhmake-codecds \"{stem}\" \"{c}\" \"{date}\")
-;;
-\(code-c-d \"{c}dh\" \"~/{stem}/\")
-\(code-c-d \"{c}dhd\" \"~/{stem}/debian/\")
-\(code-c-d \"{c}\" \"~/usrc/{stem}/{stem}-0.1.{date}/\")
-\(code-c-d \"{c}d\" \"~/usrc/{stem}/{stem}-0.1.{date}/debian/\")
-\(code-c-d \"{c}dd\" \"~/usrc/{stem}/{stem}-0.1.{date}/debian/{stem}/\")
-\(code-c-d \"{c}unp\" \"~/usrc/{stem}/{stem}-unpacked/\")
-;; (find-{c}dhfile \"\")
-;; (find-{c}dhdfile \"\")
-;; (find-{c}file \"\")
-;; (find-{c}dfile \"\")
-;; (find-{c}ddfile \"\")
-;; (find-{c}unpfile \"\")
-;; (find-{c}dsh \"find * | sort\")
-;; (find-{c}ddsh \"find * | sort\")
-;; (find-{c}unpsh \"find * | sort\")
-;; (find-status \"{stem}-deb\")
-;; (find-vldifile \"{stem}-deb.list\")
-;; (find-udfile \"{stem}-deb-puro/\")"))
-
-;; (find-estring (ee-dhmake-build "eev-puro" "eevpuro" "20120305"))
-;;
-(defun ee-dhmake-build (stem c date)
- (ee-template '(stem c date ee-dhmake-fullname ee-dhmake-email) "\
-# Generated by:
-# (ee-dhmake-build \"{stem}\" \"{c}\" \"{date}\")
-#
-rm -Rv ~/usrc/{stem}/
-mkdir -p ~/usrc/{stem}/
-mkdir ~/usrc/{stem}/{stem}-0.1.{date}/
-# ln -s {stem}-0.1.{date} ~/usrc/{stem}/{stem}-0.1
- ln -s {stem}-0.1.{date} {stem}-0.1
-cd ~/usrc/{stem}/{stem}-0.1.{date}/
-
-echo | \\
-DEBFULLNAME=\"{ee-dhmake-fullname}\" \\
- dh_make --email {ee-dhmake-email} \\
- --copyright=gpl \\
- --cdbs \\
- --native
-rm -v debian/README.Debian
-rm -v debian/*.EX
-rm -v debian/*.ex
-cp -iv debian/control debian/control.orig
-
-# (find-fline \"~/{stem}/debian/\")
-# (find-sh0 \"rm -Rv ~/{stem}/debian/\")
-mkdir -p ~/{stem}/debian/
-if [ ! -e ~/{stem}/Makefile ]; then
- echo Creating: ~/{stem}/Makefile
- echo \"clean:\" > ~/{stem}/Makefile
-fi
-if [ ! -e ~/{stem}/debian/control ]; then
- echo Creating: ~/{stem}/debian/control
- cp -v debian/control ~/{stem}/debian/control
-fi
-if [ ! -e ~/{stem}/debian/rules ]; then
- echo Creating: ~/{stem}/debian/rules
- cp -v debian/rules ~/{stem}/debian/rules
- echo \"build/{stem}::\" >> ~/{stem}/debian/rules
- echo \"install/{stem}::\" >> ~/{stem}/debian/rules
-fi
-
-# (find-{c}dh \"debian/\")
-# (find-{c}dh \"debian/control\")
-# (find-{c}dh \"debian/rules\")
-cp -v ~/{stem}/debian/* debian/
-cp -v ~/{stem}/Makefile .
-
-# (find-man \"1 dpkg-buildpackage\")
-# dpkg-buildpackage -us -uc -rfakeroot 2>&1 | tee odb
- dpkg-buildpackage -us -uc -b -rfakeroot 2>&1 | tee odb
-# (find-{c}file \"odb\")
-
-rm -Rv ~/usrc/{stem}/{stem}-unpacked/
-mkdir ~/usrc/{stem}/{stem}-unpacked/
-mkdir ~/usrc/{stem}/{stem}-unpacked/DEBIAN/
-cd ~/usrc/{stem}/
-ar p {stem}_*.deb control.tar.gz | tar -C {stem}-unpacked/DEBIAN/ -xvzf -
-ar p {stem}_*.deb data.tar.gz | tar -C {stem}-unpacked/ -xvzf -
-
-# (find-{c}unpfile \"\")
-# (find-{c}unpfile \"DEBIAN/\")
-# (find-{c}unpfile \"DEBIAN/control\")
-# (find-{c}unpsh \"find * | sort\")"))
-
-(defun find-dhmake-links (&optional stem c date &rest rest)
- "Visit a temporary buffer containing hyperlinks for dhmake."
- (interactive)
- (setq stem (or stem "{stem}"))
- (setq c (or c "{c}"))
- (setq date (or date (format-time-string "%Y%m%d")))
- (apply 'find-elinks `(
- ;; Convention: the first sexp always regenerates the buffer.
- (find-dhmake-links ,stem ,c ,date ,@rest)
- (find-efunction 'find-dhmake-links)
- ;; Body:
- ""
- ;; (find-estring-elisp (ee-dhmake-codecds ,stem ,c ,date))
- ;; (find-estring (ee-dhmake-build ,stem ,c ,date))
- ;; (eev (ee-dhmake-build ,stem ,c ,date))
- ;; (find-fline "$EE")
- ;; (find-fline (format "~/%s/debian/" stem))
- ;; (find-sh0 ,(format "rm -Rv ~/%s/debian/" stem))
- ;; ""
- ,(ee-template `(stem c date) "\
-# Set up the build script that `ee' will execute:
-# (find-estring-elisp (ee-dhmake-codecds \"{stem}\" \"{c}\" \"{date}\"))
-# (find-estring (ee-dhmake-build \"{stem}\" \"{c}\" \"{date}\"))
-# (eev (ee-dhmake-build \"{stem}\" \"{c}\" \"{date}\"))
-# (find-fline \"$EE\")
-
-# Examine its main control files:
-# (find-fline \"~/{stem}/debian/rules\")
-# (find-fline \"~/{stem}/debian/control\")
-# (find-fline \"~/{stem}/debian/\")
-
- (eepitch-shell)
- (eepitch-kill)
- (eepitch-shell)
-ee
-cd ~/usrc/{stem}/
-ls -lF *.deb
-sudo dpkg -i {stem}*.deb
-# sudo dselect update
-
-# (find-status \"{stem}\")
-# (find-vldifile \"{stem}.list\")
-# (find-udfile \"{stem}/\")
-
-
-# Upload to angg.twu.net.
-# (THIS IS A HACK!)
-# (find-twusfile \"debian/\")
-
- (eepitch-eshell)
-cd ~/usrc/{stem}/
-ls -l {stem}_0.1.{date}_all.deb
-cp -v {stem}_0.1.{date}_all.deb (ee-twusfile \"debian/\")
-ls -l (ee-twusfile \"debian/\")
-# (find-twusfile \"debian/\")
-
- (eepitch-Twu)
-cd ~/slow_html/debian/
-mkdir -p dists/./main/binary-i386/
-mkdir -p dists/./main/binary-amd64/
-ls -lAF
-apt-ftparchive packages .
-apt-ftparchive packages . \\
- | tee dists/./main/binary-i386/Packages \\
- | gzip -c9 > dists/./main/binary-i386/Packages.gz
-apt-ftparchive packages . \\
- | tee dists/./main/binary-amd64/Packages \\
- | gzip -c9 > dists/./main/binary-amd64/Packages.gz
-")
- ) rest))
-
-;; (find-dhmake-links)
-;; (find-dhmake-links "{stem}" "{c}" "{date}")
-;; (find-dhmake-links "foo-bar" "foobar")
-;; (find-dhmake-links "eev" "eevbuild")
-;; (find-dhmake-links "eev" "eevbuild" "20120404")
-
-
-
-
-
;;; _ _ _ _
;;; _ _ ___ _ _| |_ _ _| |__ ___ __| | |
;;; | | | |/ _ \| | | | __| | | | '_ \ / _ \_____ / _` | |
@@ -1328,119 +961,6 @@ cd {dir}
-;;; _ _ _ _ _
-;;; | | | |_ __ | | ___ __ _ __| | __ _ _ __ __| |
-;;; | | | | '_ \| |/ _ \ / _` |/ _` | / _` | '_ \ / _` |
-;;; | |_| | |_) | | (_) | (_| | (_| | | (_| | | | | (_| |
-;;; \___/| .__/|_|\___/ \__,_|\__,_| \__,_|_| |_|\__,_|
-;;; |_|
-;;; _ _ _
-;;; __| | _____ ___ __ | | ___ __ _ __| |
-;;; / _` |/ _ \ \ /\ / / '_ \| |/ _ \ / _` |/ _` |
-;;; | (_| | (_) \ V V /| | | | | (_) | (_| | (_| |
-;;; \__,_|\___/ \_/\_/ |_| |_|_|\___/ \__,_|\__,_|
-;;;
-;; «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")
-;;
-;; (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\")")))
-
-
-
-
;;;
;;; _ __ ___ _ __ ___
;;; | '_ \/ __| '_ \ / _ \
diff --git a/eev-wrap.el b/eev-wrap.el
index 0c7f00a..0b42756 100644
--- a/eev-wrap.el
+++ b/eev-wrap.el
@@ -169,7 +169,7 @@ have to run an \"undo\"."
"An internal function used by `ee-wrap-anchor'."
(ee-template0 (ee-tolatin1 "\
{prefix}«.{anchor}»\t(to \"{anchor}\")
-{prefix}«{anchor}» (to \".{anchor}\")")))
+{prefix}«{anchor}» (to \".{anchor}\")")))