|
Warning: this is an htmlized version!
The original is across this link, and the conversion rules are here. |
#######
#
# E-scripts on eev itself: demos, hints, packing, works in progress, etc.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
# An introduction to eev can be found here:
#
# (find-eev-quick-intro)
# http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/eev.e>
# or at <http://angg.twu.net/e/eev.e.html>.
# See also <http://angg.twu.net/emacs.html>,
# <http://angg.twu.net/.emacs[.html]>,
# <http://angg.twu.net/.zshrc[.html]>,
# <http://angg.twu.net/escripts.html>,
# and <http://angg.twu.net/>.
#
#######
# «.mailing-list» (to "mailing-list")
# «.byte-compilation-bug» (to "byte-compilation-bug")
# «.debian-package» (to "debian-package")
# «.cdbs» (to "cdbs")
# «.dh-make» (to "dh-make")
# «.dh-make-2» (to "dh-make-2")
# «.inspect-the-DEBIAN-dir» (to "inspect-the-DEBIAN-dir")
# «.eev-deb-unpacked» (to "eev-deb-unpacked")
# «.eev-repository.tar» (to "eev-repository.tar")
# «.upload-the-deb» (to "upload-the-deb")
# «.sources.list» (to "sources.list")
# «.dpkg-i» (to "dpkg-i")
# «.what-the-deb» (to "what-the-deb")
# «.backtick-eev-mode» (to "backtick-eev-mode")
# «.code-c-d-docs» (to "code-c-d-docs")
# «.README.Debian» (to "README.Debian")
# «.vnc2swf» (to "vnc2swf")
# «.byzanz» (to "byzanz")
# «.isend» (to "isend")
# «.eev2.tgz» (to "eev2.tgz")
# «.eev2-video-1.sh» (to "eev2-video-1.sh")
# «.eev2-build-tgz» (to "eev2-build-tgz")
# «.eev2-test-unpack» (to "eev2-test-unpack")
# «.eev2-test» (to "eev2-test")
# «.eev2-hmtlize-intros» (to "eev2-hmtlize-intros")
# «.eev2-add-new-intro» (to "eev2-add-new-intro")
# «.eev2-add-new-file» (to "eev2-add-new-file")
# «.eev2-upload» (to "eev2-upload")
# «.eev2-video-2.sh» (to "eev2-video-2.sh")
# «.eev2-video3-eepitch» (to "eev2-video3-eepitch")
# «.eev2-announcements» (to "eev2-announcements")
# «.move-to-eev-mode» (to "move-to-eev-mode")
# «.video-eev-quick-0» (to "video-eev-quick-0")
# «.video-eev-quick-1» (to "video-eev-quick-1")
# «.video-sympy-1» (to "video-sympy-1")
# «.video-sympy-1-end» (to "video-sympy-1-end")
# «.video-three-keys-pt-1» (to "video-three-keys-pt-1")
# «.video-three-keys-2» (to "video-three-keys-2")
# «.video-three-keys-index» (to "video-three-keys-index")
# «.carmen-1» (to "carmen-1")
# «.eegchannel-test» (to "eegchannel-test")
# «.eexterm-test» (to "eexterm-test")
# «.eev-emacs-package» (to "eev-emacs-package")
# «.eev-pkg.el-fields» (to "eev-pkg.el-fields")
# «.eev-pkg-repo» (to "eev-pkg-repo")
# «.eev-pkg-build» (to "eev-pkg-build")
# «.eev-pkg-readme» (to "eev-pkg-readme")
# «.eev-pkg-test-0» (to "eev-pkg-test-0")
# «.eev-pkg-submit-to-ELPA» (to "eev-pkg-submit-to-ELPA")
# «.eek-pkg-announcement» (to "eek-pkg-announcement")
# «.eev-pkg-signing» (to "eev-pkg-signing")
# «.eev-in-elpa» (to "eev-in-elpa")
# «.eev-tar-windows» (to "eev-tar-windows")
# «.push-master» (to "push-master")
# «.git-merge-elpa» (to "git-merge-elpa")
# (find-angg "TEXINFO/eev-article.texi")
# (find-eevex "")
# (find-eevex "lua.e" "quick-presentation")
#####
#
# Mailing list
# 2012apr06
#
#####
# «mailing-list» (to ".mailing-list")
# http://lists.gnu.org/archive/html/eev/ archives
# http://lists.nongnu.org/mailman/listinfo/eev subscription
# http://dir.gmane.org/gmane.emacs.eev.devel gmane
# http://news.gmane.org/gmane.emacs.eev.devel
https://www.gnu.org/software/maintainer-tips.en.html
# E-mail to maintainers@gnu, 2019jan22:
# https://mail.google.com/mail/ca/u/0/#sent/QgrcJHsHkxCzVrHtZWklGZRhJTxKVNjqwvG
I lost admin access to the eev mailing list
Hi Maintainers,
I lost admin access to the eev mailing list,
http://lists.gnu.org/archive/html/eev/
https://lists.nongnu.org/mailman/listinfo/eev
even though my main e-mail, eduardoochs@gmail.com, is still one of the
administrative e-mails of the list... What do I do?
Thanks in advance!
Eduardo Ochs
http://angg.twu.net/#eev
#####
#
# Michael Heerdegen's bug
# 2008sep04
#
#####
# «byte-compilation-bug» (to ".byte-compilation-bug")
# https://mail.google.com/mail/ca/u/0/#search/Michael+Heerdegen
# https://mail.google.com/mail/ca/u/0/#search/Michael+Heerdegen/11ca96503c16e1dc glyphs
# https://mail.google.com/mail/ca/u/0/#search/Michael+Heerdegen/11c2996861415ce6 byte-compilation
Hi Michael!
Thanks a lot for your report - I've been able to reproduce the bug at
my machine... here's the e-script that I used, by the way:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
rm -v /tmp/test.elc
cat > /tmp/test.el <<'%%%'
(setq y (+ 1 2))
%%%
cat > /tmp/loadeev.el <<'%%%'
(progn
(add-to-list 'load-path "~/eev-current/")
(require 'eev-all)
(eev-mode 1))
(eev-mode 0)
(byte-compile-file "/tmp/test.el")
%%%
~/bigsrc/emacs/src/emacs -Q loadeev.el
The "loadeev.el" file gives me an easy way to choose which sexps to
execute.
I know very little about byte-compilation too (really!), but I have
some ideas for what to do to track down this bug... I'll try them over
the next days. Anyway: strangely, if I run the sexp
(byte-compile-file "/tmp/test.el")
with M-5 M-e - this is a way to eval a sexp with debug-on-error
temporarily turned on - the byte-compiler does not stop when the "End
of file during parsing" error occurs...
Cheers, & thanks again,
Eduardo Ochs
eduardoochs@gmail.com
http://angg.twu.net/
P.S.: did you notice that byte-compiling test.el always gives a
warning?
Compiling file /tmp/test.el at Thu Sep 4 22:48:58 2008
test.el:1:7:Warning: assignment to free variable `y'
test.el:1:3:Error: End of file during parsing
Assignment to non-defvar'ed variables is frowned upon...
#####
#
# New ideas for a Debian package for eev
# 2009jul26
#
#####
# «debian-package» (to ".debian-package")
# «cdbs» (to ".cdbs")
# (find-angg ".emacs" "debian-devel-docs")
# (find-efile "progmodes/ps-mode.el" ":prefix \"ps-run-\"")
# (find-fline "/usr/share/doc/emacsen-common/debian-emacs-policy.gz")
# (find-fline "/usr/share/emacs/")
# (find-fline "/etc/emacs/site-start.d/")
# (find-sitelispfile "maxima/")
# (find-status "cdbs")
# (find-vldifile "cdbs.list")
# (find-udfile "cdbs/")
# (find-udw3m "cdbs/cdbs-doc.html")
# (find-udw3m "cdbs/cdbs-doc.html" "\nSwitching the Package to CDBS\n\n")
# (find-udw3m "cdbs/cdbs-doc.html" "DEB_DESTDIR")
# (find-udw3m "cdbs/cdbs-doc.html" "build/myprog::")
# (find-fline "/usr/share/cdbs/1/")
# (find-sh "grep -niH -e cdbs ~/usrc/*/*/debian/*")
# (find-fline "~/usrc/camlp5/camlp5-5.10/debian/rules")
#*
# (eev-bounded)
rm -Rv ~/usrc/eev/
mkdir ~/usrc/eev/
mkdir ~/usrc/eev/eev-0.1/
mkdir ~/usrc/eev/eev-0.1/debian/
cat > ~/usrc/eev/eev-0.1/debian/rules <<'%%%'
#!/usr/bin/make -f
include /usr/share/cdbs/1/class/makefile.mk
include /usr/share/cdbs/1/rules/debhelper.mk
DEB_PACKAGES = eev
PKGNAME = eev
configure/$(PKGNAME):: debian/configure-stamp
debian/configure-stamp:
./configure $(CONFIGURE_FLAGS)
touch debian/configure-stamp
clean::
rm -f debian/configure-stamp
build/$(PKGNAME)::
$(MAKE) -C doc/
echo foo > doc/foo
%%%
# (find-anggfile "mktclapp-3.9/debian/changelog")
# (find-fline "~/usrc/eev/eev-0.1/debian/changelog")
# (find-maintgtext "dh_make -e your.maintainer@address")
# (find-man "8 dh_make")
# (find-status "dh-make")
# (find-vldifile "dh-make.list")
# (find-udfile "dh-make/")
cat > ~/usrc/eev/eev-0.1/debian/changelog <<'%%%'
%%%
# (find-
cat > ~/usrc/eev/eev-0.1/debian/control <<'%%%'
Source: eev
Section: editors
Priority: optional
Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
Uploaders: Eduardo Ochs <eduardoochs@gmail.com>
Standards-Version: 3.7.3
Build-Depends:
Package: eev
Architecture: any
Depends: emacsen-common
Recommends: maxima
Suggests: bash
Description: Eev.
Long description.
%%%
cd ~/usrc/eev/eev-0.1/
dpkg-buildpackage -us -uc -b -rfakeroot |& tee odb
#*
# (find-fline "~/usrc/eev/eev-0.1/")
# (find-fline "~/usrc/eev/eev-0.1/debian/")
#####
#
# dh-make (first attempt, obsolete)
# 2009aug03
#
#####
# «dh-make» (to ".dh-make")
# (find-eev "debian/control.sh")
# (find-eev "debian/90eev.el")
# (find-maintgtext "dh_make -e your.maintainer@address")
# (find-man "8 dh_make")
# (find-fline "/var/cache/apt/archives/")
# (find-fline "/var/cache/apt/archives/debian-el_29.3-2_all.deb")
#*
rm -Rv ~/usrc/eev/
mkdir ~/usrc/eev/
mkdir ~/usrc/eev/eev-0.1/
cd ~/usrc/eev/eev-0.1/
mkdir -p etc/emacs/site-start.d/
mkdir -p usr/share/emacs/site-lisp/eev/
cat > etc/emacs/site-start.d/90eev.el <<'%%%'
;; (find-angg ".emacs" "eev-block")
;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/eev")
;; (require 'eev-all) ; (find-eev "eev-all.el")
;; (eev-mode 1)
(message "The debianized eev package would be loaded.")
%%%
cat > usr/share/emacs/site-lisp/eev/foo.el <<'%%%'
(message "Foo!")
%%%
cat > Makefile <<'%%%'
clean:
%%%
# (find-udw3m "cdbs/cdbs-doc.html" "DEB_DESTDIR")
# (find-udw3m "cdbs/cdbs-doc.html" "build/myprog::")
# (find-udw3m "cdbs/cdbs-doc.html" "install/foo::")
# (find-maintgtext "")
# (find-maintgtext "4.4. `rules' file")
# (find-man "8 dh_make")
echo | \
DEBFULLNAME="Eduardo Ochs" \
dh_make --email eduardoochs@gmail.com \
--copyright=gpl \
--cdbs \
--native
rm -v debian/README.Debian debian/*.EX debian/*.ex
cat >> debian/rules <<'%%%'
build/eev::
install/eev::
echo "In install: $(DEB_DESTDIR)"
cp -Rv etc/ usr/ debian/eev/
%%%
mv -iv debian/control debian/control.orig
cat > debian/control <<'%%%'
Source: eev
Section: editors
Priority: extra
Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
Build-Depends: cdbs, debhelper (>= 7)
Standards-Version: 3.7.3
Homepage: http://angg.twu.net/
Package: eev
Architecture: all
Depends: emacs
Description: <insert up to 60 chars description>
<insert long description, indented with spaces>
%%%
dpkg-buildpackage -us -uc -b -rfakeroot |& tee odb
#*
# (find-fline "~/usrc/eev/eev-0.1/")
# (find-fline "~/usrc/eev/eev-0.1/odb")
# (find-fline "~/usrc/eev/eev-0.1/debian/")
# (find-fline "~/usrc/eev/eev-0.1/debian/control")
# (find-sh "cd ~/usrc/eev/eev-0.1/debian/eev/ && find")
# (find-fline "~/usrc/eev/eev-0.1/debian/dirs")
# (find-fline "~/usrc/eev/eev_0.1_i386.deb")
# (find-sh "ar t ~/usrc/eev/eev_0.1_i386.deb")
# (find-sh "ar p ~/usrc/eev/eev_0.1_i386.deb control.tar.gz | tar -tvzf -")
# (find-sh "ar p ~/usrc/eev/eev_0.1_i386.deb data.tar.gz | tar -tvzf -")
# (find-sh "ar p ~/usrc/eev/eev_0.1_i386.deb debian-binary")
# (find-fline "~/usrc/eev/eev_0.1_all.deb")
# (find-sh "ar t ~/usrc/eev/eev_0.1_all.deb")
# (find-sh "ar p ~/usrc/eev/eev_0.1_all.deb control.tar.gz | tar -tvzf -")
# (find-sh "ar p ~/usrc/eev/eev_0.1_all.deb data.tar.gz | tar -tvzf -")
# (find-sh "ar p ~/usrc/eev/eev_0.1_all.deb debian-binary")
# (find-man "1 ar")
# (find-maintgtext "5.4. dirs")
# cat > debian/dirs <<'%%%'
# /usr/share/emacs/site-lisp/eev
# etc/emacs/site-start.d
# %%%
#####
#
# Building a Debian package for eev with dh-make (attempt 2)
# 2009aug16 / 2009nov25
#
#####
# «dh-make-2» (to ".dh-make-2")
# (find-angg ".emacs" "eevbuild")
# (find-dhmake-links "eev" "eevbuild" "20110612")
# (find-eev "debian/README.Debian" nil "How the .deb is built")
# (find-eevsh "ls *.el")
# (find-eev "debian/")
# (find-eev "debian/emacs-eev")
# (find-eev "debian/90eev.el")
# (find-eev "debian/Makefile")
# (find-eev "debian/rules")
# (find-eev "debian/control.sh")
# (find-eev "debian/README.Debian")
# (find-maintgtext "5.1. README.Debian")
# (find-es "lenny" "apt-ftparchive")
# (find-angg ".emacs" "date")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
#*
rm -Rv ~/usrc/eev/
mkdir ~/usrc/eev/
mkdir ~/usrc/eev/eev-0.1.20110612/
ln -s eev-0.1.20110612 ~/usrc/eev/eev-0.1
cd ~/usrc/eev/eev-0.1.20110612/
# Copy the files from (find-eev "debian/")
# to their correct positions in the build dir of the deb package.
# Create the directories,
mkdir -p etc/emacs/site-start.d/
mkdir -p usr/share/emacs/site-lisp/eev/
mkdir -p usr/bin/
mkdir -p usr/share/eev/
# Copy the files.
cp -v ~/eev-current/debian/Makefile .
cp -v ~/eev-current/debian/emacs-eev usr/bin/
cp -v ~/eev-current/eev-rctool usr/bin/
cp -v ~/eev-current/debian/90eev.el etc/emacs/site-start.d/
cp -av ~/eev-current/eev*.el usr/share/emacs/site-lisp/eev/
cp -v ~/eev-current/debian/eev_16.xpm usr/share/eev/
cp -v ~/eev-current/debian/eev_32.xpm usr/share/eev/
# (find-udw3m "cdbs/cdbs-doc.html" "DEB_DESTDIR")
# (find-udw3m "cdbs/cdbs-doc.html" "build/myprog::")
# (find-udw3m "cdbs/cdbs-doc.html" "install/foo::")
# (find-man "1 dpkg-architecture" "linux-any")
# (find-maintgtext "")
# (find-maintgtext "4.4. `rules' file")
# (find-man "8 dh_make")
echo | \
DEBFULLNAME="Eduardo Ochs" \
dh_make --email eduardoochs@gmail.com \
--copyright=gpl \
--cdbs \
--native
rm -v debian/README.Debian
rm -v debian/*.EX
rm -v debian/*.ex
mv -iv debian/control debian/control.orig
# (find-eevbuilddfile "")
# (find-eevbuilddfile "rules")
~/eev-current/debian/control.sh > debian/control
cp -v ~/eev-current/debian/README.Debian debian/README.Debian
cat ~/eev-current/debian/rules >> debian/rules
cp -v ~/eev-current/debian/eev.menu debian/eev.menu
cp -v ~/eev-current/debian/eev.desktop debian/eev.desktop
# (find-eev "debian/control.sh")
# (find-eev "debian/README.Debian")
# (find-eev "debian/rules")
# (find-eevbuildfile "")
# (find-eevbuilddfile "")
# (find-eevbuilddfile "control")
# (find-man "1 dpkg-buildpackage")
# dpkg-buildpackage -us -uc -rfakeroot |& tee odb
dpkg-buildpackage -us -uc -b -rfakeroot |& tee odb
# (find-eevbuildfile "odb")
# «eev-deb-unpacked» (to ".eev-deb-unpacked")
rm -Rv ~/usrc/eev/eev-unpacked/
mkdir ~/usrc/eev/eev-unpacked/
mkdir ~/usrc/eev/eev-unpacked/DEBIAN/
cd ~/usrc/eev/
ar p eev_*_all.deb control.tar.gz | tar -C eev-unpacked/DEBIAN/ -xvzf -
ar p eev_*_all.deb data.tar.gz | tar -C eev-unpacked/ -xvzf -
# (find-eevbuildufile "")
# (find-eevbuildufile "DEBIAN/")
# (find-eevbuildufile "DEBIAN/control")
# «inspect-the-DEBIAN-dir» (to ".inspect-the-DEBIAN-dir")
# (find-eevbuildddsh "find * | sort")
# (find-eevbuildush "find * | sort")
cd ~/usrc/eev/
sudo dpkg -i eev*.deb
sudo dselect update
# (find-status "eev")
# (find-vldifile "eev.list")
# (find-udfile "eev/")
# (find-eev "debian/README.Debian")
# (find-angg "debian/README")
#*
# «apt-ftparchive» (to ".apt-ftparchive")
# (find-es "lenny" "apt-ftparchive")
# (find-man "1 apt-ftparchive")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/usrc/eev/
mkdir -p dists/./main/binary-i386/
mkdir -p dists/./main/binary-amd64/
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
find * | sort
# «eev-repository.tar» (to ".eev-repository.tar")
# (find-sh "cd ~/usrc/eev/; find eev_* dists")
# (find-sh "cd ~/usrc/eev/; find eev_* dists -type f")
# eev_0.1_all.deb
# eev_0.1_i386.changes
# dists/main/binary-i386/Packages.gz
# dists/main/binary-i386/Packages
# (find-twusfile "debian/dists/main/binary-i386/")
# (find-twusfile "debian/dists/main/binary-i386/Packages")
# (find-twusfile "debian/dists/main/binary-amd64/Packages")
#
# Make a tarball of the repository:
cd ~/usrc/eev/
tar -cvf eev-repository.tar eev_*_all.deb dists eev-unpacked/
# «upload-the-deb» (to ".upload-the-deb")
# Copy it to twu and unpack it there:
# (find-fline "~/usrc/eev/")
# (find-fline "~/usrc/eev/eev-repository.tar")
# (find-twufile "tmp/")
# (find-twusfile "debian/")
# (find-twusfile "debian/eev-repository.tar")
# (ee-cp "~/usrc/eev/eev-repository.tar" (ee-twufile "tmp/eev-repository.tar") 'over)
# (find-es "page" "makepagefromtar-at-twu")
* (fvwm-sloppy-focus)
* (eebgTWU)
* (fvwm-click-to-focus)
zsh
cd ~/slow_html/debian/
rm -Rv ~/slow_html/debian/eev-unpacked/
laf
tar -xvf ~/tmp/eev-repository.tar
laf
laf dists/
find dists/main/ | sort
find eev-unpacked/ | sort
#
cd; tar -xvf edrx.tar; rezshrc
{makepagefromtar; makepageindexhtmls} |& tee ~/ompft
# «sources.list» (to ".sources.list")
# Patch the /etc/apt/sources.list file (by hand):
# (find-fline "/etc/apt/sources.list")
# (find-man "5 sources.list")
# (find-es "eev" "sources.list")
# deb file:/home/edrx/usrc/eev . main
# deb http://angg.twu.net/debian . main
#
#
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# Install the eev deb in the clean way:
sudo apt-get update
sudo dselect update
# (find-available "eev")
aptrm eev
y
apti eev
y
# «dpkg-i» (to ".dpkg-i")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# The dirty way:
cd ~/usrc/eev/
sudo dpkg -i *.deb
# (find-sh "sudo dselect update")
# (find-available "eev")
# (find-status "eev")
# (find-vldifile "eev.list")
# (find-udfile "eev/")
# Test: log as aleph, run emacs-eev, type M-h M-e.
# (find-man "1 ssh" "-X" "Enables X11 forwarding.")
# (eev "ssh -X aleph@localhost xterm")
# To do: fix math glyphs,
# http://angg.twu.net/debian/
# http://angg.twu.net/debian/README
# .dsc package.
#####
#
# What the debian package should do
# 2009aug03
#
#####
# «what-the-deb» (to ".what-the-deb")
# (find-man "1 readlink")
# (find-node "(coreutils)")
# (find-node "(coreutils)readlink invocation")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
w emacs
laf /usr/bin/emacs
laf /etc/alternatives/emacs
laf /usr/bin/emacs22-x
laf /usr/bin/emacs22
# (find-angg ".zshrc" "ae")
cat > usr/bin/emacs-eev <<'%%%'
#!/bin/sh
exec emacs -fg bisque -bg black $*
%%%
# (find-enode "Action Arguments" "`--funcall=FUNCTION'")
# Mode: add "eev"
# (find-eevfile "eev.el" "define-minor-mode eev-mode")
# (find-elnode "Index" "* define-minor-mode:")
# (find-elnode "Defining Minor Modes" "`:lighter LIGHTER'")
Two packages: emacs-eev and emacs-eev-puro
emacs-eev should be minimal (sort of)
emacs-eev-puro should depend on maxima and such stuff
Icon pointing to /usr/bin/emacs-eev:
# (find-angg "elisp/myxpm.el")
# (find-eevfile "eev-icon.png")
#####
#
# Backticking the definition of eev-mode
# 2009aug18
#
#####
# «backtick-eev-mode» (to ".backtick-eev-mode")
# (find-es "emacs" "define-minor-mode")
# To be done. Big mess at the moment.
# (find-elnode "Defining Minor Modes")
# (find-elnode "Defining Minor Modes" "hungry-mode")
# (find-evardescr 'minor-mode-list)
# (find-eapropos "hung")
# (find-eapropos "hung")
# (find-eapropos "mode-line")
# (find-eapropos "mode-line-modes")
# (find-evardescr 'mode-line-modes)
# (find-evardescr 'minor-mode-alist)
# (find-evardescr 'minor-mode-alist "hungry-mode")
# (find-efunction 'hungry-mode)
# (find-efunctionpp 'hungry-mode)
(setq hungry-mode-lighter " Hungry")
(setq hungry-mode-lighter " Hung")
(setq hungry-mode-lighter nil)
(define-minor-mode hungry-mode
:init-value 0
:lighter hungry-mode-lighter
:group 'hunger)
(hungry-mode 1)
(hungry-mode 0)
# (find-eevfile "eev.el" "define-minor-mode eev-mode")
# (find-eevfile "debian/90eev.el")
#####
#
# Adding documentation to functions generated by code-c-d and friends
# 2010jul30
#
#####
# «code-c-d-docs» (to ".code-c-d-docs")
# (find-efunction 'find-code-c-d-new)
# (find-efunction 'code-c-d)
Just a vague idea at the moment...
#####
#
# Old stuff removed from the README.Debian
# 2010sep28
#
#####
# «README.Debian» (to ".README.Debian")
# (find-eev "debian/README.Debian")
# «.exploring-the-deb» (to "exploring-the-deb")
# «.what-the-deb-does» (to "what-the-deb-does")
# «.how-the-deb-is-built» (to "how-the-deb-is-built")
# «.upstream» (to "upstream")
# «.repository» (to "repository")
# «exploring-the-deb» (to ".exploring-the-deb")
# «what-the-deb-does» (to ".what-the-deb-does")
# «how-the-deb-is-built» (to ".how-the-deb-is-built")
Exploring the .deb (without installing it)
==========================================
This package is so trivial at this moment that it would be pointless -
and misleading - to create a source debian package for it. The best
way to inspect the .deb, then, is to unpack it directly:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv ~/usrc/eev-deb/
mkdir ~/usrc/eev-deb/
cd ~/usrc/eev-deb/
cp -v ~/usrc/eev/eev_0.1_all.deb .
ar t eev_0.1_all.deb
ar p eev_0.1_all.deb debian-binary
ar p eev_0.1_all.deb control.tar.gz | tar -tvzf -
ar p eev_0.1_all.deb data.tar.gz | tar -tvzf -
mkdir DEBIAN/
ar p eev_0.1_all.deb control.tar.gz | tar -C DEBIAN/ -xvzf -
ar p eev_0.1_all.deb data.tar.gz | tar -xvzf -
#
# (find-sh "cd ~/usrc/eev-deb/ && find | sort")
# (find-fline "~/usrc/eev-deb/")
What the .deb does
==================
See:
In short: nothing! 8-)
Well, not exactly, but the .deb is incredibly non-invasive: the
"find-sh ... find | sort" above reports these files:
There are no installation scripts - no eev.{pre,post}{inst,rm} files in:
(find-fline "/var/lib/dpkg/info/" "eev")
and the only thing that runs automatically in some sense is this file,
(find-eev "debian/90eev.el")
/etc/emacs/site-start.d/90eev.el
that only contains one definition, for `eev-activate-initial' (see below).
If you start Emacs with
(find-eev "debian/emacs-eev")
/usr/bin/emacs-eev
rather than with "emacs", the "--funcall=eev-activate-initial"
argument in the emacs-eev script runs the `eev-activate-initial'
function in 90eev.el, which is:
(defun eev-activate-initial ()
(interactive)
(add-to-list 'load-path "/usr/share/emacs/site-lisp/eev")
(setq eev-lighter " eev")
(require 'eev-all) ; (find-eev "eev-all.el")
(eev-mode 1))
it is that function that adds the /usr/share/emacs/site-lisp/eev/
directory to the load-path, loads the eev modules and turns on
eev-mode. So: if you invoke Emacs using the `emacs-eev' script you get
an Emacs with eev loaded - from /usr/share/emacs/site-lisp/eev/ - and
turned on; if you invoke the standard `emacs' there are no changes at
all - not even in the load-path!
(find-debemacspoltext)
How the .deb is built
=====================
Currently, by this script:
(find-es "eev" "dh-make-2")
# «upstream» (to ".upstream")
Upstream
========
The correct way to obtain the *most current* eev source tree is to
fetch this tarball:
http://angg.twu.net/edrx.tgz
It contains the sources that are used to generate the pages at
<http://angg.twu.net/>. That tarball is updated about twice a week.
The "official" eev-current tarball, at
http://angg.twu.net/eev-current.tar.gz
is updated less often.
The .deb package is very alpha-ish now, and it is changing very often.
# «repository» (to ".repository")
The repository
==============
It should be possible to install the .deb in your machine with apt by
adding this line to your /etc/apt/sources.list file,
deb http://angg.twu.net/debian . main
and then doing the usual "apt-get update; apt-get install eev"
sequence.
The repository is generated with these commands:
(find-es "eev" "eev-repository.tar")
actually they generate a tarball that you can install anywhere - e.g.,
on a local server (this is what I plan to do for the local undergrad
lab at my university). See:
(find-es "eev" "sources.list")
(find-fline "/etc/apt/sources.list")
#####
#
# vnc2swf
# 2010nov14
#
#####
# «vnc2swf» (to ".vnc2swf")
# (find-es "vnc" "vnc2swf")
# (find-eev "anim/")
# (find-eev "examples/anim.e" "compile-vnc2swf")
#####
#
# byzanz
# 2010nov14
#
#####
# «byzanz» (to ".byzanz")
# (find-eev "examples/anim.e" "movie1_A0")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
apti byzanz
# (find-status "byzanz")
# (find-vldifile "byzanz.list")
# (find-udfile "byzanz/")
# (find-man "1 byzanz-record")
# (find-man "1 byzanz-record" "--display=DISPLAY")
# (find-man "1 byzanz-record" " byzanz ")
# (find-man "1 byzanz-playback")
# (find-sh "byzanz-record --help")
# (find-sh "byzanz-record --help-all")
#####
#
# isend
# 2016apr19
#
#####
# «isend» (to ".isend")
# (find-es "emacs" "isend")
# (find-epackage 'isend-mode)
(code-c-d "isend" "~/.emacs.d/elpa/isend-mode-20190201.832/")
# (find-isendfile "")
# https://github.com/ffevotte/isend-mode.el
# https://github.com/ffevotte/isend-mode.el.git
# (find-git-links "https://github.com/ffevotte/isend-mode.el.git" "isendmode")
# (code-c-d "isendmode" "~/usrc/isend-mode.el/")
# (find-isendmodefile "")
(add-to-list 'load-path "~/usrc/isend-mode.el/")
(require 'isend-mode)
(require 'isend)
;; (find-efunctiondescr 'isend-mode)
# http://lists.gnu.org/archive/html/emacs-orgmode/2016-04/msg00495.html Xor3
# http://lists.gnu.org/archive/html/emacs-orgmode/2016-04/msg00498.html Edrx
# Kill the running vncserver
vncserver -kill :2
killall -9 Xrealvnc
rm -fv /tmp/.X2-lock
rm -fv /tmp/.X11-unix/X2
rm -Rv ~/.vnc/ ;# goodbye, old vnc password, goodbye
vncserver -geometry 600x400 -depth 16 :2
password
password
export DISPLAY=:0.0
my_vnc2swf -nostatus /tmp/channels.swf :2
password
#####
#
# eev2.tgz
# 2012nov03
#
#####
# «eev2.tgz» (to ".eev2.tgz")
# (find-angg ".zshrc" "eev2-files")
# (find-angg ".zshrc" "eev2-files" "eev2-test ()")
# (find-zsh "eev2-test")
# (find-eev "Makefile" "tarball" "VERSION")
# (find-eevsh "grep ^.require eev2-all.el")
# (find-eevsh "grep ^.require eev2-all.el | awk '{print $2}'")
# (find-eevsh "grep ^.require eev2-all.el | awk '{print substr($2, 2, length($2)-2)}'")
# (find-eevsh "grep ^.require eev2-all.el | awk '{print substr($2, 2, length($2)-2) \".el\"}'")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/eev-current/
(TZ=GMT date; date) > VERSION
A=( eepitch.el eev-wrap.el eev-flash.el eev-eval.el eev-multiwindow.el
eev-mode.el eev-blinks.el eev-plinks.el eev-elinks.el
eev-tlinks.el eev-code.el eev-env.el eev-brxxx.el eev-pdflike.el
eev-audiovideo.el eev-anchors.el eev-intro.el eev-edit.el
eejump.el eev-prepared.el eev-bounded.el eev-channels.el eev-rcirc.el )
tar -cvzf /tmp/eev2.tgz VERSION eev-readme.el eev2-all.el $A
laf /tmp/eev2.tgz
# Test:
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/eev/
mkdir /tmp/eev/
cd /tmp/eev/
tar -xvzf ../eev2.tgz
FvwmCommand "CursorMove +0 +100" &&
emacs -Q -fn 6x13 -fg bisque -bg black eev-readme.el
#####
#
# eev2 videos: 1.sh
# 2012nov03
#
#####
# «eev2-video-1.sh» (to ".eev2-video-1.sh")
# (find-angg "eev-videos/1.sh")
* (find-sh0 "~/eev-videos/1.sh down xterm 80x30+0+0 ffmpeg 530x550+0+0")
# (find-fline "/tmp/" "out.mp4")
# (find-sh0 "killall ffmpeg")
# (find-sh0 "killall -9 ffmpeg")
* (find-mplayer0 "/tmp/out.mp4")
# (find-zsh "eev2-build-tgz")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
Scp -v /tmp/eev2.tgz edrx@angg.twu.net:slow_html/eev-current/
Scp -v /tmp/eev2.tgz edrx@angg.twu.net:public_html/eev-current/
* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)
cd ~/eev-videos/
Scp -v 2* edrx@angg.twu.net:slow_html/eev-videos/
rm -Rv /tmp/eev/
mkdir /tmp/eev/
cd /tmp/eev/
wget http://angg.twu.net/eev-current/eev2.tgz && tar -xvzf eev2.tgz
# tar -C /tmp/eev/ -xvzf /tmp/eev2.tgz
emacs -Q -fn 6x13 -fg bisque -bg black eev-readme.el
# (find-fline "/tmp/eev/")
# (find-fline "/tmp/eev/eev-readme.el")
# (find-fline "/tmp/eev2-current.tar.gz")
# (find-eev "eev-readme.el")
# (find-eev-intro "\nInstalling eev\n")
# (find-efunction 'find-eev-intro "\nInstalling eev\n")
# (find-eevgrep "grep -nH -e ee-format *.el")
# (find-eevgrep "grep -nH -e find-function-read *.el")
# (find-eevgrep "grep -nH -e ee-buffer-name *.el")
# (find-eevgrep "grep -nH -e Info-goto-node *.el")
# (find-efunctiondescr 'Info-goto-node)
# (find-efunction 'Info-goto-node)
# (find-efunctiondescr 'info)
# (find-efunction 'info)
ee-buffer-name
(ee-no-properties (format-mode-line mode-line-format))
# (find-angg ".zshrc" "emacs-default")
cd /tmp/
cat > eev2-load.el <<'%%%'
(progn
(menu-bar-mode 0)
(tool-bar-mode 0)
(scroll-bar-mode -1)
(add-to-list 'load-path "~/eev-current/")
(require 'eev2-all)
(eev-mode 1)
)
%%%
emacs-default-X -geometry 80x37+10+10 -Q eev2-load.el
#####
#
# eev2: pack, unpack, test
# 2012nov08
#
#####
# (find-angg ".zshrc" "eev2-files")
# «eev2-build-tgz» (to ".eev2-build-tgz")
# «eev2-test-unpack» (to ".eev2-test-unpack")
# «eev2-test» (to ".eev2-test")
# (find-eev "eev-readme.el")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -v /tmp/eev2.tgz
eev2-build-tgz
laf /tmp/eev2.tgz
eev2-test
# (eek "M-h M-k C-x r l ;; bookmark-bmenu-list")
#####
#
# eev2: htmlize intros
# 2012nov03
#
#####
# «eev2-hmtlize-intros» (to ".eev2-hmtlize-intros")
# (find-angg "eev-intros/README")
# (load "~/eev-intros/README")
# file:///home/edrx/TH/L/eev-intros/
# file:///home/edrx/TH/L/eev-intros/find-eev-intro.html
# http://angg.twu.net/eev-intros/
# http://angg.twu.net/eev-intros/find-eev-intro.html
#####
#
# eev2: scripts to add a new intro
# 2012nov03
#
#####
# «eev2-add-new-intro» (to ".eev2-add-new-intro")
# (find-eev "eev-intro.el")
# (find-eev "eev-intro.el" ".find-eev-intro")
# (find-eev "eev-intro.el" "find-eev-intro" "0. (find-eev-intro)")
# (find-angg "eev-intros/README")
# (find-blogme3 "angglisp.lua" "find_xxx_intros")
# (find-blogme3file "anggmake.lua" "eev-intros/find-eev-intro")
# (load "~/eev-intros/README")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
makeL
# file:///home/edrx/TH/L/eev-intros/
# file:///home/edrx/TH/L/eev-intros/find-eev-intro.html
#####
#
# eev2: scripts to add a new file
# 2012nov03
#
#####
# «eev2-add-new-file» (to ".eev2-add-new-file")
#####
#
# eev2: upload
# 2012nov08
#
#####
# «eev2-upload» (to ".eev2-upload")
# «eev2-video-2.sh» (to ".eev2-video-2.sh")
# (find-angg ".zshrc" "eev2-files")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
eev2-build-tgz
~/eev-videos/2.sh record
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
eev2-build-tgz
eev2-upload -v
rm -v /tmp/eev2.tgz
~/eev-videos/2.sh record
# (find-angg "eev-videos/2.sh")
# http://www.emacswiki.org/emacs/EmacsForDebian
#####
#
# Video 3: eepitch
#
#####
# «eev2-video3-eepitch» (to ".eev2-video3-eepitch")
# (defun eejump-9 () (find-screencast-links "108c 37c"))
# (find-eev-video-links "3pt-eepitch-preliminar")
# (find-eev "eepitch.el")
(defun eep2 (s1 s2)
(eval s1) (eepitch-kill)
(eval s2) (eepitch-kill)
(find-wset "13o2_o_o"
`(ee-here ',s1)
`(ee-here ',s2)))
A short video about eepitch
===========================
Eduardo Ochs, 2012nov18
http://angg.twu.net/#eev
* (eep2 '(eepitch-shell) '(eepitch-lua51))
* (eepitch-lua51)
readfile = function (fname)
local f = assert(io.open(fname, "r"))
local bigstr = f:read("*a")
f:close()
return bigstr
end
* (eepitch-shell)
echo Hello... > /tmp/o
* (eepitch-lua51)
print(readfile("/tmp/o"))
* (eepitch-shell)
echo ...bye >> /tmp/o
* (eepitch-lua51)
print(readfile("/tmp/o"))
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cat > /tmp/o <<'%%%'
Hello
hello
hello
%%%
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-lua51)
* (eepitch-kill)
*
#####
#
# eev2: announcements
# 2012nov12
#
#####
# «eev2-announcements» (to ".eev2-announcements")
# http://lists.gnu.org/archive/html/eev/2012-11/msg00000.html
# http://www.emacswiki.org/EevMode
# http://angg.twu.net/#eev
# http://angg.twu.net/eev-videos/README.html
# http://www.youtube.com/watch?v=_B_4vhsmRRI Marco Baringer
# rfm: ok
# #emacs: ok
#####
#
# Move all keybindings to eev-mode
# 2014mar25
#
#####
# «move-to-eev-mode» (to ".move-to-eev-mode")
# http://article.gmane.org/gmane.emacs.eev.devel/148
# http://lists.gnu.org/archive/html/eev/2014-03/index.html
#####
#
# video: eev-quick-0
# 2016oct08
#
#####
# «video-eev-quick-0» (to ".video-eev-quick-0")
# (find-angg ".emacs" "size")
# http://angg.twu.net/eev-videos/video-eev-quick-0.mp4
# (find-twusfile "eev-videos/")
# (find-angg "eev-videos/")
# Use this to reset aleph's home:
# (find-adduser-links "aleph" "aleph")
** Shrink this emacs window,
** start the recording,
** open an xterm covering the emacs window,
** and when the xterm finishes stop the recording.
**
* (set-frame-size nil 70 20)
{
avconv -f x11grab -s xga -i :1.0 -y /tmp/out.mp4 &
sudo -u aleph -i xterm -geometry +0+0
killall avconv
}
* (set-frame-size nil 80 35)
** Test the video
** (find-video "/tmp/out.mp4")
** (find-video "~/eev-videos/video-eev-quick-0.mp4")
** (find-fline "~/eev-videos/" "video-eev-quick-0.mp4")
#####
#
# video: eev-quick-1
# 2016oct08
#
#####
# «video-eev-quick-1» (to ".video-eev-quick-1")
# (find-twusfile "eev-videos/")
# (find-angg "eev-videos/")
# Use this to reset aleph's home:
# (find-adduser-links "aleph" "aleph")
** Use this to create "~aleph/es"
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd
sudo -u aleph -i
cat > ~/es <<'%%%'
#!/bin/sh
cd ~/eev/ &&
emacs \
-Q -D -fg bisque -bg black -fn fixed \
-T emacs_bare -geometry 167x49+0+0 \
-l eev-readme.el --eval="(find-eev-quick-intro)"
%%%
chmod 755 ~/es
# ~/es
exit
** Shrink this emacs window,
** start the recording,
** open an xterm covering the emacs window,
** and when the xterm finishes stop the recording.
**
* (set-frame-size nil 70 20)
{
avconv -f x11grab -s xga -i :1.0 -y /tmp/out.mp4 &
# sudo -u aleph -i xterm -geometry +0+0
sudo -u aleph -i ~aleph/es
killall avconv
}
** Test the video
** (find-video "/tmp/out.mp4")
** (find-video "~/eev-videos/video-eev-quick-0.mp4")
#####
#
# video: eev-ipython-1
# 2016oct08
#
#####
# «video-sympy-1» (to ".video-sympy-1")
* (defun end0 () (message (find-sh0 "killall avconv")))
* (defun end () (interactive) (end0) (find-es "eev" "video-sympy-1-end"))
*
* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)
* (size 167 59)
avconv -f x11grab -s xga -i :1.0 -y /tmp/out.mp4 &
* (find-wset "1_" '(find-es "sympy" "tutorial"))
** «video-sympy-1-end» (to ".video-sympy-1-end")
* (eek "C-x 1")
* (size 80 35)
* ;; Test the video
* (find-googlechrome "file:///tmp/out.mp4")
* (size 210 61)
** (find-video "~/eev-videos/video-eev-quick-0.mp4")
** (find-video "/tmp/out.mp4")
* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)
cd /tmp/
Scp-np -v out.mp4 edrx@angg.twu.net:/home/edrx/public_html/eev-videos/
# http://angg.twu.net/eev-videos/out.mp4
#####
#
# video-three-keys-pt-1
# 2019aug10
#
#####
# «video-three-keys-pt-1» (to ".video-three-keys-pt-1")
# (find-TH "index" "eev")
# (find-TH "index" "eev" "some screencasts")
# (find-TH "index" "eev" "some screencasts" "three-keys-1-pt")
# http://angg.twu.net/eev-videos/three-keys-1-pt.mp4
# http://www.youtube.com/watch?v=GUuCpmLItTs
# https://www.facebook.com/eduardo.ochs/posts/10220135271041709
# https://drive.google.com/drive/folders/1xKobEd6YLq31besdSrfSbPwX66QyC3di
# http://angg.twu.net/eev-videos/
# (find-twusfile "eev-videos/")
# (find-fline "~/eev-videos/")
# (find-fline "~/eev-videos/" "three-keys-1-pt")
# (find-eev "eev-intro.el" "find-three-main-keys-intro")
# (find-three-main-keys-intro)
(defun big () (interactive) (set-frame-font "Monospace 22"))
(defun med () (interactive) (set-frame-font "Monospace 9"))
(big)
AINDA NÃO COMEÇOU!
(find-three-main-keys-intro)
https://youtu.be/GUuCpmLItTs
http://www.youtube.com/watch?v=GUuCpmLItTs
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/eev-videos/
Scp-np -v three-keys-1-pt.mp4 \
edrx@angg.twu.net:/home/edrx/slow_html/eev-videos/
# http://angg.twu.net/eev-videos/three-keys-1-pt.mp4
#####
#
# video-three-keys-2
# 2019aug14
#
#####
# «video-three-keys-2» (to ".video-three-keys-2")
(defun big () (interactive) (set-frame-font "Monospace 22"))
(defun big () (interactive) (set-frame-font "Monospace 20"))
(defun med () (interactive) (set-frame-font "Monospace 9"))
(defun yk () (interactive) (find-sh0 "yaxg stop") (eepitch-shell))
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
yaxg stop
laf *.webm
rm -v *.webm
yaxg
* (eek "C-x 1")
** (find-sh0 "yaxg stop")
*
*
** AINDA NÃO COMEÇOU!
*
* (setq scroll-conservatively 0)
* (setq scroll-conservatively 1)
* (eek "C-x 1")
* (big)
* (find-three-main-keys-intro)
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/eev-videos/
Scp-np -v three-keys-2.mp4 \
edrx@angg.twu.net:/home/edrx/slow_html/eev-videos/
# http://angg.twu.net/eev-videos/three-keys-2.mp4
#####
#
# video-three-keys-index
# 2019aug15
#
#####
# «video-three-keys-index» (to ".video-three-keys-index")
# (find-fline "~/eev-videos/")
# (find-code-audiovideo-links "~/eev-videos/three-keys-1-pt.mp4" "eevtk1")
# (find-code-audiovideo-links "~/eev-videos/three-keys-2.mp4" "eevtk2")
;; (find-video "~/eev-videos/three-keys-1-pt.mp4")
(code-video "eevtk1video" "~/eev-videos/three-keys-1-pt.mp4")
;; (find-eevtk1video)
;; (find-eevtk1video "1:34" "Três teclas")
;; (find-video "~/eev-videos/three-keys-2.mp4")
(code-video "eevtk2video" "~/eev-videos/three-keys-2.mp4")
;; (find-eevtk2video)
;; (find-eevtk2video "9:46" "Emacs calls the cursor the point")
;; (find-eevtk2video "9:49" "the sexp before point")
;; (find-eevtk2video "10:03" "C-x C-e")
# (eev-avadj-mode)
# (eev-avadj-mode 0)
#####
#
# Carmen Astrid
# 2014aug10
#
#####
# «carmen-1» (to ".carmen-1")
{
rm -Rv ~/eev/
mkdir ~/eev/
cd ~/eev/
rm -v eev2.tgz
wget http://angg.twu.net/eev-current/eev2.tgz
tar -xvzf eev2.tgz
}
{
{
echo '#!/bin/sh'
echo 'cd ~/eev/ && emacs -l ./eev-readme.el --eval="(find-eval-intro)"'
} > ~/e
chmod 755 ~/e
}
# (find-man "wget")
# (find-man "rm")
# (find-man "mkdir")
# (find-man "tar")
# (find-man "tar" "-x, --extract")
# (find-man "tar" "-v, --verbose")
# (find-man "tar" "-z, --gzip, --gunzip")
# (find-man "tar" "-f, --file ARCHIVE")
(Re)generate: (find-eval-intro)
#####
#
# Low-level tests to see if eegchannel is working
# 2019mar10
#
#####
# «eegchannel-test» (to ".eegchannel-test")
# (find-eev "eegchannel")
# (find-eev "eegchannel" "proc pidfile")
# (find-eev "eegchannel-test" "proc pidfile")
# (find-channels-intro "2.2. Test eegchannel")
#####
#
# eexterm-test
# 2019mar10
#
#####
# «eexterm-test» (to ".eexterm-test")
# (find-eev "eev-channels.el" "eexterm")
# (find-eev "eev-channels.el" "eexterm" "Tests:")
* (eexterm "A")
echo hello
exit
* (eexterm "A" "ssh edrx@127.0.0.1")
* (eexterm "A" "ssh edrx@127.0.0.1" "-geometry +512+0")
edrx
exit
#####
#
# eev as an Emacs package (in ELPA or so)
# 2014oct11
#
#####
# «eev-emacs-package» (to ".eev-emacs-package")
# (find-es "emacs" "packages")
# (find-angg ".emacs" "eev-package")
;; (find-elnode "Packaging")
;; (find-elnode "Packaging Basics")
;; (find-elnode "Packaging Basics" "Long description")
;; (find-elnode "Multi-file Packages")
;; (find-elnode "Package Archives")
;; (find-elnode "Package Archives" "package-x")
;; (find-elnode "Library Headers")
;; (find-elnode "Library Headers" "Finder")
;; (find-enode "Packages")
;; (find-enode "Package Installation")
;; (find-es "emacs" "packages")
;; (find-sh "locate package-x")
;; (find-efile "emacs-lisp/package-x.el")
;; (find-ecvsfile "test/automated/package-x-test.el")
;; (find-ecvsfile "Makefile" "check:")
;; (find-epackage 'magit)
;; (find-epackage 'magit "Invoking the magit-status function")
;; (find-magitfile "magit.el" "Invoking the magit-status function")
#####
#
# eev-pkg.el-fields
# 2019mar13
#
#####
# «eev-pkg.el-fields» (to ".eev-pkg.el-fields")
# (find-epackage 'isend-mode)
# (find-isendmodefile "isend-mode-pkg.el")
# (find-elpafile "isend-mode-readme.txt")
# (find-pdftoolsfile "pdf-tools-pkg.el")
# (find-elpafile "pdf-tools-readme.txt")
# (find-eevfile "eev-pkg.el")
# (find-epackage 'add-hooks)
# (find-elnode "Packaging")
# (find-elnode "Packaging Basics" "Name")
# (find-elnode "Packaging Basics" "Version")
# (find-elnode "Packaging Basics" "Brief description")
# (find-elnode "Packaging Basics" "Long description")
# (find-elnode "Packaging Basics" "Dependencies")
# (find-elnode "Packaging Basics" "package-initialize")
# (find-elnode "Simple Packages" "Keywords" "optional")
# (find-elnode "Multi-file Packages" "README")
# (find-elnode "Multi-file Packages" "(file-name-directory load-file-name)")
# Long description / readme:
# (find-escripts-intro "Eev's central idea")
#####
#
# eev-pkg-repo
# 2019mar13
#
#####
# «eev-pkg-repo» (to ".eev-pkg-repo")
# (find-elnode "Package Archives" "package-archives")
#####
#
# eev-pkg: build
# 2014oct11 / 2019mar13
#
#####
# «eev-pkg-build» (to ".eev-pkg-build")
# (find-es "emacs" "package-dummy")
# (find-es "emacs" "package-dummy" "package-install-file")
# (find-eev "eev-pkg.el")
# (find-sh "date +%Y%m%d")
# (setenv "DATE" "20190401")
# (code-c-d "eevpkg" (format "/tmp/eev-%s/" (getenv "DATE")))
# (setq ee-eevpkgtar (format "/tmp/eev-%s.tar" (getenv "DATE")))
# (code-c-d "elpaeev" (format "~/.emacs.d/elpa/eev-%s/" (getenv "DATE")))
# (find-eevpkgfile "")
# (find-elpaeevfile "")
# (find-fline ee-eevpkgtar)
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
my-git-list-files /tmp/eev-g/
my-git-list-files /tmp/eev-g/ | grep '.el$' | tee /tmp/.files
echo README >> /tmp/.files
# (find-eev "README-pkg")
# (find-es "eev" "eev-pkg.el-fields")
rm -Rv /tmp/eev-2019*
mkdir /tmp/eev-$DATE/
cd /tmp/eev-$DATE/
# (to "eev-pkg.el")
# (find-elnode "Multi-file Packages" "README")
cd ~/eev-current/
cp -v $(cat /tmp/.files) /tmp/eev-$DATE/
# cp -v README-pkg /tmp/eev-$DATE/eev-readme.txt
# cp -v README-pkg /tmp/eev-$DATE/README
cd /tmp/eev-$DATE/
cd /tmp/
tar -cvf /tmp/eev-$DATE.tar eev-$DATE/*
rm -Rv ~/.emacs.d/elpa/eev*
# (package-install-file ee-eevpkgtar)
# (find-elpafile "")
# (find-elpaeevfile "")
# (find-efunction 'package-install-file)
cd /tmp/
Scp-np /tmp/eev-$DATE.tar $TWUP/eev-current/elpa/
Scp-np /tmp/eev-$DATE.tar $TWUS/eev-current/elpa/
# (find-twusfile "eev-current/elpa/")
# (find-twupfile "eev-current/elpa/")
# http://angg.twu.net/eev-current/elpa/
* (eepitch-shell2)
* (eepitch-kill)
* (eepitch-shell2)
~/EXPECT/autopasswd ssh edrx@angg.twu.net
cd ~/public_html/ && makepageindexhtmls
# Old (2014):
eev2-build-tgz
echo $DATE
rm -Rv ~/usrc/eev-*
mkdir ~/usrc/eev-$DATE/
cd ~/usrc/eev-$DATE/
tar -C ~/usrc/eev-$DATE/ -xvzf /tmp/eev2.tgz
cp -v ~/eev-current/eev-pkg.el ~/usrc/eev-$DATE/
cp -v eev2-all.el eev.el
** Fix this by hand:
* (find-eevpkgfile "eev.el" "(provide '")
cd ~/usrc/
tar -cvf /tmp/eev-$DATE.tar eev-$DATE/*.el
laf /tmp/eev-$DATE.tar
Scp-np -v /tmp/eev-$DATE.tar $TWUS/packages-el/
Scp-np -v /tmp/eev-$DATE.tar $TWUP/packages-el/
* (eepitch-Twu)
* (eepitch-kill)
* (eepitch-Twu)
zsh
rm -v ~/public_html/packages-el/index.html
makepageindexhtmls
# http://angg.twu.net/packages-el/
# (find-angg ".zshrc" "makepagefromtar")
Scp -v eev-20141011.tar \
edrx@angg.twu.net:/home/edrx/slow_html/
#####
#
# eev-pkg-readme
# 2019mar14
#
#####
# «eev-pkg-readme» (to ".eev-pkg-readme")
# http://elpa.gnu.org/packages/auctex-12.1.2.tar
# (find-fline "$S/http/elpa.gnu.org/packages/auctex-12.1.2.tar")
# (find-fline "$S/http/elpa.gnu.org/packages/auctex-12.1.2.tar" "auctex-12.1.2/README")
<edrx> anyone here maintains an ELPA package? If I'm reading the
documentation correctly then the long description of the
package that I'm building should be put at
/tmp/eev-20190313/README before I run tar -cvf
/tmp/eev-20190313.tar eev-20190313/*, but when I do this and
run
<edrx> (package-install-file "/tmp/eev-20190313.tar") then this
does not generate a file ~/.emacs.d/elpa/eev-readme.txt...
# (find-elpafile "")
# (find-elpafile "" "isend-mode")
# (find-elpafile "isend-mode-readme.txt")
# (find-epackage 'isend-mode)
# (find-epackage 'eev)
# (find-eev "README")
#####
#
# First tests on the eev package (before announcing it on emacs-devel)
# 2019mar14
#
#####
# «eev-pkg-test-0» (to ".eev-pkg-test-0")
#####
#
# eev-pkg-submit-to-ELPA
# 2019mar14
#
#####
# «eev-pkg-submit-to-ELPA» (to ".eev-pkg-submit-to-ELPA")
# http://git.savannah.gnu.org/cgit/emacs/elpa.git/plain/README
#####
#
# elpa.git
# 2019apr09
#
#####
# «elpa.git» (to ".elpa.git")
# http://git.savannah.gnu.org/cgit/emacs/elpa.git/
# http://git.savannah.gnu.org/cgit/emacs/elpa.git/commit/?h=externals/eev
# http://git.savannah.gnu.org/cgit/emacs/elpa.git/log/?h=externals/eev
# http://git.savannah.gnu.org/cgit/emacs/elpa.git/snapshot/elpa-externals/eev.tar.gz
# https://mail.google.com/mail/ca/u/0/#search/elpa.git/QgrcJHsBpWZnWNtbdGZtDPlljGRHJsdBTZv
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# (find-fline "/tmp/eev-e/")
cd /tmp/
wget -nc http://git.savannah.gnu.org/cgit/emacs/elpa.git/snapshot/elpa-externals/eev.tar.gz
rm -Rv /tmp/eev-e
mkdir /tmp/eev-e/
cd /tmp/eev-e/
tar --strip-components 2 -xvzf ../eev.tar.gz
rm -Rfv /tmp/eev-g
mkdir /tmp/eev-g/
cd /tmp/eev-g/ && git clone https://github.com/edrx/eev.git .
cd /tmp/eev-g/
git checkout UTF-8
'ls' /tmp/eev-e/ | my-cmp-tkdiff /tmp/eev-e/ /tmp/eev-g/
'ls' /tmp/eev-e/ | my-cmp-tkdiff /tmp/eev-e/ "~/eev-current/"
(find-tkdiff "/tmp/eev-e/ChangeLog" "~/eev-current/ChangeLog")
(find-tkdiff "/tmp/eev-e/VERSION" "~/eev-current/VERSION")
(find-tkdiff "/tmp/eev-e/eev-anchors.el" "~/eev-current/eev-anchors.el")
(find-tkdiff "/tmp/eev-e/eev-intro.el" "~/eev-current/eev-intro.el")
(find-tkdiff "/tmp/eev-e/eev-tlinks.el" "~/eev-current/eev-tlinks.el")
(find-tkdiff "/tmp/eev-e/eev.el" "~/eev-current/eev.el")
(find-fline "~/eev-current/eev-anchors.el")
(find-fline "~/eev-current/eev-intro.el")
(find-fline "~/eev-current/eev-tlinks.el")
(find-fline "~/eev-current/eev.el")
(find-fline "~/eev-current/eev-blinks.el")
(find-fline "~/eev-current/eev-code.el")
(find-fline "~/eev-current/eev-env.el")
(find-fline "~/eev-current/eev-eval.el")
(find-fline "~/eev-current/eev-mode.el")
(find-fline "~/eev-current/eev-plinks.el")
(find-fline "~/eev-current/eev-prepared.el")
(find-fline "~/eev-current/eev-template0.el")
(find-fline "~/eev-current/eev-tlinks.el")
(find-tkdiff> "/tmp/eev-e/eejump.el" "~/eev-current/eejump.el")
(find-tkdiff> "/tmp/eev-e/eev-audiovideo.el" "~/eev-current/eev-audiovideo.el")
(find-tkdiff> "/tmp/eev-e/eev-beginner.el" "~/eev-current/eev-beginner.el")
(find-tkdiff> "/tmp/eev-e/eev-blinks.el" "~/eev-current/eev-blinks.el")
(find-tkdiff> "/tmp/eev-e/eev-brxxx.el" "~/eev-current/eev-brxxx.el")
(find-tkdiff> "/tmp/eev-e/eev-channels.el" "~/eev-current/eev-channels.el")
(find-tkdiff> "/tmp/eev-e/eev-code.el" "~/eev-current/eev-code.el")
(find-tkdiff> "/tmp/eev-e/eev-codings.el" "~/eev-current/eev-codings.el")
(find-tkdiff> "/tmp/eev-e/eev-edit.el" "~/eev-current/eev-edit.el")
(find-tkdiff> "/tmp/eev-e/eev-elinks.el" "~/eev-current/eev-elinks.el")
(find-tkdiff> "/tmp/eev-e/eev-env.el" "~/eev-current/eev-env.el")
(find-tkdiff> "/tmp/eev-e/eev-eval.el" "~/eev-current/eev-eval.el")
(find-tkdiff> "/tmp/eev-e/eev-flash.el" "~/eev-current/eev-flash.el")
(find-tkdiff> "/tmp/eev-e/eev-load.el" "~/eev-current/eev-load.el")
(find-tkdiff> "/tmp/eev-e/eev-mode.el" "~/eev-current/eev-mode.el")
(find-tkdiff> "/tmp/eev-e/eev-multiwindow.el" "~/eev-current/eev-multiwindow.el")
(find-tkdiff> "/tmp/eev-e/eev-pdflike.el" "~/eev-current/eev-pdflike.el")
(find-tkdiff> "/tmp/eev-e/eev-plinks.el" "~/eev-current/eev-plinks.el")
(find-tkdiff> "/tmp/eev-e/eev-prepared.el" "~/eev-current/eev-prepared.el")
(find-tkdiff> "/tmp/eev-e/eev-rcirc.el" "~/eev-current/eev-rcirc.el")
(find-tkdiff> "/tmp/eev-e/eev-readme.el" "~/eev-current/eev-readme.el")
(find-tkdiff> "/tmp/eev-e/eev-template0.el" "~/eev-current/eev-template0.el")
(find-tkdiff> "/tmp/eev-e/eev2-all.el" "~/eev-current/eev2-all.el")
eejump.el, eev-anchors.el, eev-audiovideo.el, eev-beginner.el, eev-blinks.el, eev-brxxx.el, eev-channels.el, eev-code.el, eev-codings.el, eev-edit.el, eev-elinks.el, eev-env.el, eev-eval.el, eev-flash.el, eev-intro.el, eev-load.el, eev-mode.el, eev-multiwindow.el, eev-pdflike.el, eev-plinks.el, eev-prepared.el, eev-rcirc.el, eev-readme.el, eev-template0.el, eev-tlinks.el, eev.el, eev2-all.el
#####
#
# eek-pkg-announcement
# 2019mar15
#
#####
# «eek-pkg-announcement» (to ".eek-pkg-announcement")
# https://mail.google.com/mail/ca/u/0/#sent/QgrcJHshbMQhlqMWtLSdBzQzdbnhBGwxVnb
# http://lists.gnu.org/archive/html/emacs-devel/2019-03/msg00433.html
[ELPA] New package: eev
Hi list,
I would like to submit a package to ELPA. It is called "eev". Let me
copy its README here:
--snip--snip--
Eev's central idea is that you can keep "executable logs" of what you
do, in a format that is reasonably readable and that is easy to "play
back" later, step by step and in any order. We call these executable
logs "e-scripts". These "steps" are mainly of two kinds:
1) elisp hyperlinks, and
2) lines sent to shell-like programs.
To run the tutorial: install this package, then type `M-x
eev-beginner'. This will load all the main modules, activate the
eev-mode keybindings, and open this tutorial,
http://angg.twu.net/eev-intros/find-eev-quick-intro.html
(find-eev-quick-intro)
in a sandboxed buffer. For a list of the other sandboxed tutorials,
run:
(find-eev-intro)
For a non-technical description of what e-scripts are, see:
http://angg.twu.net/escripts.html
The home page of eev is:
http://angg.twu.net/#eev
--snip--snip--
The current version of its ELPA-ish package is here:
http://angg.twu.net/eev-current/elpa/
http://angg.twu.net/eev-current/elpa/eev-20190314.tar
The home page points to other, more mature, ways to install it: a .tgz
that users can install by copying and pasting a script to a shell, and
its git repository.
Feedback VERY welcome.
Thanks in advance!
Eduardo Ochs
http://angg.twu.net/#eev
====================================
Hi Stefan!
Wow, that was quick!!!
1) About the README: I am trying to learn how to use modern tools to
record screencasts to create a single video with the main features
that will last less than two minutes. Does that help? Note that
this page
http://angg.twu.net/escripts.html
explains the motivation in a non-technical way, but I still need a
way to show the "play back" in action to people who only have two
or three minutes to spend... any problems if I spend a few weeks
more, or a month, to produce that short video?
2) Authorship: I am the author of everything but there is a module -
eepitch.el - that is based on the ideas of a 57-line prototype that
a user called Rubikitch (he never told me his real name, even
though I asked) sent to the eev mailing list in 2006. I just added
links to the discussion in the mailing list to the comments in
eepitch.el - let me copy them here:
;; NOTE 2: eepitch is based on code that Rubikitch sent to the eev
;; mailing list in 2006, but I rewrote his code completely several
;; times since then. See:
;;
;; http://lists.gnu.org/archive/html/eev/2006-01/msg00000.html
;; http://lists.gnu.org/archive/html/eev/2006-02/msg00000.html
;; http://lists.gnu.org/archive/html/eev/2006-02/msg00001.html
3) About eev-beginner.el. I never found a good way to set up the
autoloads in eev until a few days ago - and what I got then was a
*first* way to set up autoloads that was good enough to begin with,
i.e., until I could discuss that with senior emacsers. Here's how
it works.
When you install eev from ELPA there is only a single autoload -
for `eev-beginner', that loads all main modules and opens the
tutorial.
When you've grasped the main ideas and you want to install eev in a
non-beginner way what you do is to run this, possibly from your
.emacs:
(require 'eev-load)
This loads all the main modules but does not turn on eev-mode and
does not open the tutorial.
4) About the Emacs version. I *guess* that eev would run on Emacs 22
either unmodified or with at most two very small changes, but it
would take me a while to install an Emacs 22 here. As a temporary
solution I've changed the 4th argument to `define-package' in
eev-pkg.el from nil to:
'((emacs "24.3"))
5) About byte-compilation. There isn't any code in eev that takes more
that 1/100 seconds to run, and there are some points in the
tutorials in which I encourage people to look at the source code of
the functions in two ways: with [the eev variant of] find-function
and with `find-efunctionpp', whose docstring is:
"Visit a temporary buffer containing the pretty-printed Lisp code
for SYMBOL."
Roughly,
(find-efunctionpp 'foo)
puts the result of
(pp-to-string (symbol-function 'foo))
into a temporary buffer and switches it to emacs-lisp-mode to
fontify the code. If we don't byte-compile the modules of eev then
beginners will have a reasonable corpus of functions for which
`find-efunctionpp' shows something readable, which is good to help
them understand the innards of Emacs.
6) About git. I prefer to keep using my own repository, at least for
the next few months. I know less git that I should, and by the way
- important caveat! - all the new developments are being pushed to
the "UTF-8" branch of the git repository, but the "master" there
still points to an obsolete branch and I don't know how to fix
that... =(
Thanks for the feedback!!! I will upload a new version - including an
updated tarball - in a few minutes.
Cheers!
E.
#####
#
# eev pkg signing
# 2014oct11
#
#####
# «eev-pkg-signing» (to ".eev-pkg-signing")
gpg --sign --detach -- archive-contents
gpg --sign --detach -- eev-0.1.tar
# (find-epackage 'eev)
# (find-epackages)
# (package-install-file "/tmp/eev-20141011.tar")
# (find-efunction 'package-install-file)
# (find-epackages)
# (find-fline "~/.emacs.d/elpa/")
# (find-fline "~/.emacs.d/elpa/" "eev")
# (find-angg ".emacs" "eev-package")
# (find-eevpkgfile "")
# (find-eevpkgfile "eev-autoloads.el")
# (find-fline "~/.emacs.d/elpa/")
# (find-fline "~/.emacs.d/elpa/eev-20141011/")
#####
#
# eev in ELPA
# 2019apr08
#
#####
# «eev-in-elpa» (to ".eev-in-elpa")
# (to "eev-pkg-submit-to-ELPA")
# (find-es "emacs" "elpa")
# http://elpa.gnu.org/packages/eev.html
# http://elpa.gnu.org/packages/eev-20190401.tar
# http://elpa.gnu.org/packages/eev-20190410.tar
#####
#
# Producing a .tar or the current version (for Windows)
# 2019apr27
#
#####
# «eev-tar-windows» (to ".eev-tar-windows")
# (find-es "emacs" "package-install-file")
# (find-eev2-links)
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# (find-man "cut")
cat ~/eev-current/eev.el | grep Version: | cut '-d ' -f 3 |& tee /tmp/ov
DATE=$(cat /tmp/ov)
FNAME=eev-$DATE
echo $FNAME
echo /tmp/$FNAME.tar
rm -Rfv /tmp/$FNAME.tar
rm -Rfv /tmp/$FNAME
mkdir /tmp/$FNAME
cd ~/eev-current/
cp -iv $(cd /tmp/eev-g/ && git ls-files) /tmp/$FNAME/
cd /tmp/
tar -cvf /tmp/$FNAME.tar $FNAME/*
tar -tvf /tmp/$FNAME.tar
laf /tmp/$FNAME.tar
# (package-install-file "/tmp/eev-20190425.tar")
# (find-fline "$S/http/elpa.gnu.org/packages/eev-20190410.tar")
# (find-fline "/tmp/eev-20190425.tar")
cp -v $S/http/elpa.gnu.org/packages/eev-20190410.tar /tmp/
# (find-fline "/tmp/eev-20190410.tar")
# (package-install-file "/tmp/eev-20190410.tar")
laf /tmp/eev2.tgz
#####
#
# Changing the "master" to UTF-8 using push
# 2019jun14
#
#####
# «push-master» (to ".push-master")
# (find-fline "/tmp/" " eev-")
# /tmp/eev-g(edrx:li)# git checkout UTF-8
# Branch UTF-8 set up to track remote branch UTF-8 from origin.
# Switched to a new branch 'UTF-8'
# /tmp/eev-g(edrx:li)#
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/eev-a
mkdir /tmp/eev-a/
cd /tmp/eev-a/ && git clone https://github.com/edrx/eev.git .
cd /tmp/eev-a/
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/eev-b
cp -av /tmp/eev-a/ /tmp/eev-b
rm -Rfv /tmp/eev-c
mkdir /tmp/eev-c/
cd /tmp/eev-c/ && git clone /tmp/eev-b .
cd /tmp/eev-c/
# (find-gitk "/tmp/eev-c/")
git checkout UTF-8
# (find-gitk "/tmp/eev-c/")
git branch --list -a
git for-each-ref
git for-each-ref | sort
# (find-fline "/tmp/eev-c/")
# (find-fline "/tmp/eev-c/.git/refs/heads/")
# (find-fline "/tmp/eev-c/.git/refs/heads/" "master")
# (find-es "git" "HEAD")
# (find-es "git" "HEAD")
#####
#
# git-merge-elpa
# 2019jun25
#
#####
# «git-merge-elpa» (to ".git-merge-elpa")
# (find-eev2-links)
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rfv /tmp/eev-g
mkdir /tmp/eev-g/
cd /tmp/eev-g/ && git clone https://github.com/edrx/eev.git .
cd /tmp/eev-g/
git remote add elpa http://git.sv.gnu.org/r/emacs/elpa.git
git fetch elpa
git merge elpa/externals/eev
git branch --list -a
git for-each-ref
git for-each-ref | sort
git checkout hyperbole
git checkout remotes/elpa/externals/eev
git checkout remotes/elpa/externals/hyperbole
# (find-man "1 git-remote")
# (find-man "1 git-fetch")
# (find-gitk "/tmp/eev-g/")
# (find-fline "/tmp/eev-g/")
# Local Variables:
# coding: raw-text-unix
# modes: (fundamental-mode emacs-lisp-mode)
# ee-delimiter-hash: "\n#*\n"
# ee-delimiter-percent: "\n%*\n"
# ee-anchor-format: "«%s»"
# End: