[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev d2fda91 1/2: Added more text to `(find-eepitch-bull
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/eev d2fda91 1/2: Added more text to `(find-eepitch-bullet-links)'. |
|
Date: |
Sat, 25 Sep 2021 18:57:15 -0400 (EDT) |
branch: externals/eev
commit d2fda915c310e97ec54c08ae16f7b01fa1b47ee5
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Added more text to `(find-eepitch-bullet-links)'.
---
ChangeLog | 32 +++++++
VERSION | 4 +-
eev-audiovideo.el | 16 ++--
eev-intro.el | 52 ++++++-----
eev-pdflike.el | 272 ++++++++++++++++++++++++++++--------------------------
eev-template0.el | 15 +--
eev-testblocks.el | 29 +++++-
eev-tlinks.el | 27 +++++-
8 files changed, 275 insertions(+), 172 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index cbcb460..1b918b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,35 @@
+2021-09-24 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-pdflike.el (ee-find-firefox-page): new function. It is an
+ internal functionused by `find-firefox-page', that is defined by
+ `(code-pdfbackend "firefox-page")'. Also, now on Window$ systems
+ `find-pdf-page' now uses `find-firefox-page' by default.
+
+2021-09-22 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-intro.el (find-psne-intro): updated the URL to the PDF of
+ J.M. Coetzee's "The Lives of Animals".
+
+ * eev-audiovideo.el (ee-time-to-youtube-time): added an optional
+ argument `c'.
+
+2021-09-20 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-intro.el (find-windows-beginner-intro): give links for
+ installing Emacs27 instead of Emacs26.
+
+2021-09-19 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-testblocks.el (ee-insert-test-c-mode): new function.
+
+2021-09-17 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-testblocks.el (ee-insert-test-lisp-mode): new function.
+
+2021-09-15 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-tlinks.el (find-eepitch-bullet-links): added more text.
+
2021-09-13 Eduardo Ochs <eduardoochs@gmail.com>
* eepitch.el (eepitch-regexp, eepitch-comment-regexp): make red
diff --git a/VERSION b/VERSION
index 2dc4cb4..e982cd0 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon Sep 13 18:48:58 GMT 2021
-Mon Sep 13 15:48:58 -03 2021
+Sat Sep 25 22:31:31 GMT 2021
+Sat Sep 25 19:31:31 -03 2021
diff --git a/eev-audiovideo.el b/eev-audiovideo.el
index 84352ba..a859631 100644
--- a/eev-audiovideo.el
+++ b/eev-audiovideo.el
@@ -233,20 +233,24 @@
;; (ee-time-to-youtube-time "123")
;; (ee-time-to-youtube-time "1:23")
;; (ee-time-to-youtube-time "1:23:43")
+;; (ee-time-to-youtube-time "1:23:43" "&")
+;; (ee-time-to-youtube-time "" "&")
;;
-(defun ee-time-to-youtube-time (str)
+(defun ee-time-to-youtube-time (str &optional c)
"Convert strings like \"1:23\" to strings like \"#t=1m23s\".
Supports the input formats \"ss\", \"mm:ss\", and \"hh:mm:ss\".
-If the input does not match any of these formats, return nil."
+If the input does not match any of these formats, return nil.
+When C is non nil then use it as the prefix character. The
+default is \"#\", but in some situations we need \"&\" instead."
+ (setq c (or c "#"))
(save-match-data
(cond ((string-match "^\\([0-9]+\\)$" str)
- (format "#t=%ss" (match-string 1 str)))
+ (format "%st=%ss" c (match-string 1 str)))
((string-match "^\\([0-9]+\\):\\([0-9][0-9]\\)$" str)
- (format "#t=%sm%ss" (match-string 1 str) (match-string 2 str)))
+ (format "%st=%sm%ss" c (match-string 1 str) (match-string 2 str)))
((string-match "^\\([0-9]+\\):\\([0-9][0-9]\\):\\([0-9][0-9]\\)$"
str)
- (format "#t=%sh%sm%ss" (match-string 1 str) (match-string 2 str)
+ (format "%st=%sh%sm%ss" c (match-string 1 str) (match-string 2 str)
(match-string 2 str))))))
-
diff --git a/eev-intro.el b/eev-intro.el
index c59dc16..5b055af 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -989,6 +989,13 @@ character 15 corresponds to control-O, whose default
representation on screen would be \"^O\". You can enter a
literal ^O in a buffer by typing `C-q C-o'.
+It is possible to make other characters play the role of the red
+star, but to make that work you need to know a bit of Lisp. See:
+
+ (find-eepitch-bullet-links)
+ (find-eev \"eev-tlinks.el\" \"find-eepitch-bullet-links\")
+
+
@@ -1629,7 +1636,7 @@ executing the eepitch block below with <f8>s,
(eepitch-kill)
(eepitch-shell)
cd
- wget -nc https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+ wget -nc
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
then these sexps will be hyperlinks to a page of a PDF, and to
some string in it...
@@ -6509,7 +6516,7 @@ examples. If you run this e-script
(eepitch-kill)
(eepitch-shell)
cd
- wget -nc https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+ wget -nc
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
you will download a local copy of J.M. Coetzee's \"The Lives of
Animals\" into your home directory. To check that the PDF has been
@@ -6522,12 +6529,12 @@ downloaded, use:
Eev also implements another way, called \"psne\", to download
local copies of files from the internet.\"Psne-ing\" a URL like
- https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+ https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
downloads it to a local file with a name like:
- $S/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
- ~/snarf/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+
$S/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
+
~/snarf/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
that is _much_ longer that just \"~/Coetzee99.pdf\"; this has the
advantage of preserving more information about the URL from which
@@ -7104,8 +7111,8 @@ If we download a local copy of a PDF, like we did here,
(find-pdf-like-intro \"2. Preparation\")
- https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
- -> $S/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
+ ->
$S/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
then it makes sense to have a `brxxx'-function, called `brpdfl',
that we can run on the \"https://\"; URL above, and that will open
@@ -7368,8 +7375,8 @@ file from the internet... here we will discuss the second
way, in
which the conversion from URL to a local file name works like
this:
- https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
- -> $S/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
+ ->
$S/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
@@ -7533,8 +7540,8 @@ The details on how to create these \"brxxx functions\"
are here:
======================
Converting a \"non-psne URL\" to a \"psne URL\" by hand, like this,
- https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
- -> $S/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+
https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
+ ->
$S/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
is error-prone and boring.
@@ -7551,8 +7558,8 @@ because most people prefer to use the key `M-s' for their
other
things. Then try it by putting the cursor here and typing `M-s' four
times. Watch the four psne-nesses below flip.
- https://tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
- $S/https/tannerlectures.utah.edu/_documents/a-to-z/c/Coetzee99.pdf
+ https://tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
+ $S/https/tannerlectures.utah.edu/_resources/documents/a-to-z/c/Coetzee99.pdf
http://www.gnu.org/software/emacs/emacs-paper.html
$S/http/www.gnu.org/software/emacs/emacs-paper.html
@@ -12253,24 +12260,23 @@ that after discovering that many Windows programmers
don't know how to
use terminals I spent more than one week trying to figure out how to
proceed.
-Version of these instructions: 2020feb20.
+Version of these instructions: 2021sep20.
1. Download and install Emacs
=============================
-Download one of the .zips below:
-http://gnu.c3sl.ufpr.br/ftp/emacs/windows/emacs-26/
-http://gnu.c3sl.ufpr.br/ftp/emacs/windows/emacs-26/README
-http://gnu.c3sl.ufpr.br/ftp/emacs/windows/emacs-26/emacs-26.3-i686.zip (32
bits)
-http://gnu.c3sl.ufpr.br/ftp/emacs/windows/emacs-26/emacs-26.3-x86_64.zip (64
bits)
+Read the README below and then install Emacs using either the
+link to the .exe or the link to the .zip:
-then unpack the .zip and create a desktop icon or shortcut to
-<emacsdir>/bin/runemacs.exe.
+https://ftp.gnu.org/gnu/emacs/windows/emacs-27/
+https://ftp.gnu.org/gnu/emacs/windows/emacs-27/README-windows-binaries
+https://ftp.gnu.org/gnu/emacs/windows/emacs-27/emacs-27.2-x86_64-installer.exe
+https://ftp.gnu.org/gnu/emacs/windows/emacs-27/emacs-27.2-x86_64.zip
-The official instructions are here (but you don't need them):
-https://www.gnu.org/software/emacs/download.html#windows
+You may need to create a desktop icon or shortcut to
+<emacsdir>/bin/runemacs.exe.
Note: don't use Emacs25 on Windows - it can't access the package repository!
The details are here:
https://emacs.stackexchange.com/questions/233/how-to-proceed-on-package-el-signature-check-failure/52823#52823
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 0eec121..9c5bf7d 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210618
+;; Version: 20210925
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -186,6 +186,7 @@
;; «.find-mupdfpage» (to "find-mupdfpage")
;; «.find-gv-page» (to "find-gv-page")
;; «.find-djvutxt-text» (to "find-djvutxt-text")
+;; «.find-firefox-page» (to "find-firefox-page")
;; «.find-googlechrome-page» (to "find-googlechrome-page")
;;
;; «.aliases» (to "aliases")
@@ -401,106 +402,106 @@ newline are spurious - and replaces them by \"(ff)\"."
-;;; ___ _ _ _
-;;; / _ \| |__ ___ ___ | | ___| |_ ___
-;;; | | | | '_ \/ __|/ _ \| |/ _ \ __/ _ \
-;;; | |_| | |_) \__ \ (_) | | __/ || __/
-;;; \___/|_.__/|___/\___/|_|\___|\__\___|
-;;;
-;; «code-xxxpdf-family» (to ".code-xxxpdf-family")
-;; See: (find-eevfile "eev-pdflike.el" "1. DEFINING VIEWERS")
-;; Test: (find-code-xxxpdf-family "XPDFPAGE")
-;;
-(defun code-xxxpdf-family (xxxpdf)
- (eval (ee-read (ee-code-xxxpdf-family xxxpdf))))
-(defun find-code-xxxpdf-family (xxxpdf)
- (find-estring-elisp (ee-code-xxxpdf-family xxxpdf)))
-(defun ee-code-xxxpdf-family (xxxpdf)
- (ee-template0 "\
-;; (find-code-xxxpdf-family {(ee-pp0 xxxpdf)})
-;; (code-xxxpdf-family {(ee-pp0 xxxpdf)})
-;;
-;; To understand the code that a call to
-;; (code-{xxxpdf} \"C\" \"FNAME\")
-;; would execute, run:
-;; (find-code-{xxxpdf} \"C\" \"FNAME\")
-
-\(defun find-{xxxpdf} (fname &optional page &rest rest)
- (find-bgprocess (ee-find-{xxxpdf} fname page)))
-
-\(defun code-{xxxpdf} (c fname &rest rest)
- (eval (ee-read (apply 'ee-code-{xxxpdf} c fname rest))))
-\(defun find-code-{xxxpdf} (c fname &rest rest)
- (find-estring-elisp (apply 'ee-code-{xxxpdf} c fname rest)))
-\(defun ee-code-{xxxpdf} (c fname &rest rest)
- (ee-template0 \"\\
-\(setq ee-pdflike-last 'find-{<}c{>}page)
-\(defun find-{<}c{>}page (&optional page &rest rest)
- (setq ee-pdflike-last 'find-{<}c{>}page)
- (find-{xxxpdf} {<}(ee-pp0 fname){>} page))
-\"))
-"))
-
-;; «code-xxxpdftext-family» (to ".code-xxxpdftext-family")
-;; See: (find-eevfile "eev-pdflike.el" "1. DEFINING VIEWERS")
-;; Test: (find-code-xxxpdftext-family "PDFTOTEXT")
-;;
-(defun code-xxxpdftext-family (xxxpdf)
- (eval (ee-read (ee-code-xxxpdftext-family xxxpdf))))
-(defun find-code-xxxpdftext-family (xxxpdf)
- (find-estring-elisp (ee-code-xxxpdftext-family xxxpdf)))
-(defun ee-code-xxxpdftext-family (xxxpdf)
- (ee-template0 "\
-;; (find-code-xxxpdftext-family {(ee-pp0 xxxpdf)})
-;; (code-xxxpdftext-family {(ee-pp0 xxxpdf)})
-;;
-;; To understand the code that a call to
-;; (code-{xxxpdf} \"C\" \"FNAME\")
-;; would execute, run:
-;; (find-code-{xxxpdf} \"C\" \"FNAME\")
-
-\(defun find-{xxxpdf} (fname &optional page &rest rest)
- (apply 'find-sh-page (ee-find-{xxxpdf} fname) page rest))
-
-\(defun code-{xxxpdf} (c fname &rest rest)
- (eval (ee-read (apply 'ee-code-{xxxpdf} c fname rest))))
-\(defun find-code-{xxxpdf} (c fname &rest rest)
- (find-estring-elisp (apply 'ee-code-{xxxpdf} c fname rest)))
-\(defun ee-code-{xxxpdf} (c fname &optional offset)
- (setq offset (or offset 0))
- (ee-template0 \"\\
-\(setq ee-page-c {<}(ee-pp0 c){>})
-\(setq ee-page-fname {<}(ee-pp0 fname){>})
-\(setq ee-page-offset {<}(ee-pp0 offset){>})
-\(defun find-{<}c{>}text (&optional page &rest rest)
- (setq ee-page-c {<}(ee-pp0 c){>})
- (setq ee-page-fname {<}(ee-pp0 fname){>})
- (setq ee-page-offset {<}(ee-pp0 offset){>})
- (apply 'find-{xxxpdf} {<}(ee-pp0 fname){>} page rest))
-\"))
-"))
-
-;; «code-xxxpdf-alias» (to ".code-xxxpdf-alias")
-;; See: (find-eevfile "eev-pdflike.el" "2. ALIASES")
-;; Test: (find-code-xxxpdf-alias "PDF-PAGE" "XPDF-PAGE")
-;;
-(defun code-xxxpdf-alias (xxxpdfnew xxxpdfold)
- (eval (ee-read (ee-code-xxxpdf-alias xxxpdfnew xxxpdfold))))
-(defun find-code-xxxpdf-alias (xxxpdfnew xxxpdfold)
- (find-estring-elisp (ee-code-xxxpdf-alias xxxpdfnew xxxpdfold)))
-(defun ee-code-xxxpdf-alias (xxxpdfnew xxxpdfold)
- (ee-template0 "\
-;; (find-code-xxxpdf-alias \"{xxxpdfnew}\" \"{xxxpdfold}\")
-;; (find-code-xxxpdf-alias \"xxxpdfnew\" \"xxxpdfold\")
-;; (find-code-xxxpdf-alias \"pdf-page\" \"xpdf-page\")
-;; (find-code-xxxpdf-alias \"pdfpage\" \"xpdf-page\")
-;;
-\(defalias 'ee-find-{xxxpdfnew} 'ee-find-{xxxpdfold})
-\(defalias 'find-{xxxpdfnew} 'find-{xxxpdfold})
-\(defalias 'ee-code-{xxxpdfnew} 'ee-code-{xxxpdfold})
-\(defalias 'code-{xxxpdfnew} 'code-{xxxpdfold})
-\(defalias 'find-code-{xxxpdfnew} 'find-code-{xxxpdfold})
-"))
+;; ;;; ___ _ _ _
+;; ;;; / _ \| |__ ___ ___ | | ___| |_ ___
+;; ;;; | | | | '_ \/ __|/ _ \| |/ _ \ __/ _ \
+;; ;;; | |_| | |_) \__ \ (_) | | __/ || __/
+;; ;;; \___/|_.__/|___/\___/|_|\___|\__\___|
+;; ;;;
+;; ;; «code-xxxpdf-family» (to ".code-xxxpdf-family")
+;; ;; See: (find-eevfile "eev-pdflike.el" "1. DEFINING VIEWERS")
+;; ;; Test: (find-code-xxxpdf-family "XPDFPAGE")
+;;
+;; (defun code-xxxpdf-family (xxxpdf)
+;; (eval (ee-read (ee-code-xxxpdf-family xxxpdf))))
+;; (defun find-code-xxxpdf-family (xxxpdf)
+;; (find-estring-elisp (ee-code-xxxpdf-family xxxpdf)))
+;; (defun ee-code-xxxpdf-family (xxxpdf)
+;; (ee-template0 "\
+;; ;; (find-code-xxxpdf-family {(ee-pp0 xxxpdf)})
+;; ;; (code-xxxpdf-family {(ee-pp0 xxxpdf)})
+;; ;;
+;; ;; To understand the code that a call to
+;; ;; (code-{xxxpdf} \"C\" \"FNAME\")
+;; ;; would execute, run:
+;; ;; (find-code-{xxxpdf} \"C\" \"FNAME\")
+;;
+;; \(defun find-{xxxpdf} (fname &optional page &rest rest)
+;; (find-bgprocess (ee-find-{xxxpdf} fname page)))
+;;
+;; \(defun code-{xxxpdf} (c fname &rest rest)
+;; (eval (ee-read (apply 'ee-code-{xxxpdf} c fname rest))))
+;; \(defun find-code-{xxxpdf} (c fname &rest rest)
+;; (find-estring-elisp (apply 'ee-code-{xxxpdf} c fname rest)))
+;; \(defun ee-code-{xxxpdf} (c fname &rest rest)
+;; (ee-template0 \"\\
+;; \(setq ee-pdflike-last 'find-{<}c{>}page)
+;; \(defun find-{<}c{>}page (&optional page &rest rest)
+;; (setq ee-pdflike-last 'find-{<}c{>}page)
+;; (find-{xxxpdf} {<}(ee-pp0 fname){>} page))
+;; \"))
+;; "))
+;;
+;; ;; «code-xxxpdftext-family» (to ".code-xxxpdftext-family")
+;; ;; See: (find-eevfile "eev-pdflike.el" "1. DEFINING VIEWERS")
+;; ;; Test: (find-code-xxxpdftext-family "PDFTOTEXT")
+;; ;;
+;; (defun code-xxxpdftext-family (xxxpdf)
+;; (eval (ee-read (ee-code-xxxpdftext-family xxxpdf))))
+;; (defun find-code-xxxpdftext-family (xxxpdf)
+;; (find-estring-elisp (ee-code-xxxpdftext-family xxxpdf)))
+;; (defun ee-code-xxxpdftext-family (xxxpdf)
+;; (ee-template0 "\
+;; ;; (find-code-xxxpdftext-family {(ee-pp0 xxxpdf)})
+;; ;; (code-xxxpdftext-family {(ee-pp0 xxxpdf)})
+;; ;;
+;; ;; To understand the code that a call to
+;; ;; (code-{xxxpdf} \"C\" \"FNAME\")
+;; ;; would execute, run:
+;; ;; (find-code-{xxxpdf} \"C\" \"FNAME\")
+;;
+;; \(defun find-{xxxpdf} (fname &optional page &rest rest)
+;; (apply 'find-sh-page (ee-find-{xxxpdf} fname) page rest))
+;;
+;; \(defun code-{xxxpdf} (c fname &rest rest)
+;; (eval (ee-read (apply 'ee-code-{xxxpdf} c fname rest))))
+;; \(defun find-code-{xxxpdf} (c fname &rest rest)
+;; (find-estring-elisp (apply 'ee-code-{xxxpdf} c fname rest)))
+;; \(defun ee-code-{xxxpdf} (c fname &optional offset)
+;; (setq offset (or offset 0))
+;; (ee-template0 \"\\
+;; \(setq ee-page-c {<}(ee-pp0 c){>})
+;; \(setq ee-page-fname {<}(ee-pp0 fname){>})
+;; \(setq ee-page-offset {<}(ee-pp0 offset){>})
+;; \(defun find-{<}c{>}text (&optional page &rest rest)
+;; (setq ee-page-c {<}(ee-pp0 c){>})
+;; (setq ee-page-fname {<}(ee-pp0 fname){>})
+;; (setq ee-page-offset {<}(ee-pp0 offset){>})
+;; (apply 'find-{xxxpdf} {<}(ee-pp0 fname){>} page rest))
+;; \"))
+;; "))
+;;
+;; ;; «code-xxxpdf-alias» (to ".code-xxxpdf-alias")
+;; ;; See: (find-eevfile "eev-pdflike.el" "2. ALIASES")
+;; ;; Test: (find-code-xxxpdf-alias "PDF-PAGE" "XPDF-PAGE")
+;; ;;
+;; (defun code-xxxpdf-alias (xxxpdfnew xxxpdfold)
+;; (eval (ee-read (ee-code-xxxpdf-alias xxxpdfnew xxxpdfold))))
+;; (defun find-code-xxxpdf-alias (xxxpdfnew xxxpdfold)
+;; (find-estring-elisp (ee-code-xxxpdf-alias xxxpdfnew xxxpdfold)))
+;; (defun ee-code-xxxpdf-alias (xxxpdfnew xxxpdfold)
+;; (ee-template0 "\
+;; ;; (find-code-xxxpdf-alias \"{xxxpdfnew}\" \"{xxxpdfold}\")
+;; ;; (find-code-xxxpdf-alias \"xxxpdfnew\" \"xxxpdfold\")
+;; ;; (find-code-xxxpdf-alias \"pdf-page\" \"xpdf-page\")
+;; ;; (find-code-xxxpdf-alias \"pdfpage\" \"xpdf-page\")
+;; ;;
+;; \(defalias 'ee-find-{xxxpdfnew} 'ee-find-{xxxpdfold})
+;; \(defalias 'find-{xxxpdfnew} 'find-{xxxpdfold})
+;; \(defalias 'ee-code-{xxxpdfnew} 'ee-code-{xxxpdfold})
+;; \(defalias 'code-{xxxpdfnew} 'code-{xxxpdfold})
+;; \(defalias 'find-code-{xxxpdfnew} 'find-code-{xxxpdfold})
+;; "))
@@ -519,27 +520,13 @@ newline are spurious - and replaces them by \"(ff)\"."
;; (find-code-pdfbackend "pdf-page")
(code-pdfbackend "pdf-page")
-;; Make all functions in the `find-pdf-page' family use
-;; `find-xpdf-page' by default, in way that makes this default easy to
-;; change. This defalias will OVERRIDE the `find-pdf-page' defined by
-;; the `code-pdfbackend' above.
+;; The defalias below makes all functions in the `find-pdf-page'
+;; family use `find-xpdf-page' by default. Running this defalias will
+;; OVERRIDE the `find-pdf-page' defined by the `code-pdfbackend'
+;; above.
;;
(defalias 'find-pdf-page 'find-xpdf-page)
-;; A VERY TECHNICAL DETAIL: apparently it would be cleaner to do
-;; something like this,
-;;
-;; (defalias 'ee-find-pdf-page 'ee-find-xpdf-page)
-;;
-;; instead of:
-;;
-;; (defalias 'find-pdf-page 'find-xpdf-page)
-;;
-;; but if we changed the `ee-find-pdf-page' instead of `find-pdf-page'
-;; then it would be much more difficult to change the default to
-;; `find-pdftools-page', and then later change it back to, say,
-;; `find-xpdf-page'...
-
;;; ____ __ _ _ _
@@ -576,6 +563,19 @@ newline are spurious - and replaces them by \"(ff)\"."
;; (find-efunctionpp 'find-pdftools-page)
;; (find-efunctionpp 'find-texworkspdf-page)
;; (find-efunctionpp 'find-googlechrome-page)
+;;
+;; A VERY TECHNICAL DETAIL: apparently it would be cleaner to do
+;; something like this,
+;;
+;; (defalias 'ee-find-pdf-page 'ee-find-xpdf-page)
+;;
+;; instead of:
+;;
+;; (defalias 'find-pdf-page 'find-xpdf-page)
+;;
+;; but this wouldn't work for some atypical backends, like
+;; `find-pdftools-page'... (TODO: explain this!)
+
;;; ____ __ _ _ __ ___
@@ -587,10 +587,11 @@ newline are spurious - and replaces them by \"(ff)\"."
;; «find-pdf-page-windows» (to ".find-pdf-page-windows")
;; (find-elnode "System Environment" "windows-nt")
;; (find-evardescr 'system-type)
-;; (to "find-texworkspdf-page")
+;; (to "change-default-viewer")
+;; (to "find-firefox-page")
;;
(if (eq system-type 'windows-nt)
- (defalias 'find-pdf-page 'find-texworkspdf-page)
+ (defalias 'find-pdf-page 'find-firefox-page)
)
@@ -930,18 +931,19 @@ may want to put here code that cleans up that page
information.")
-;;; ____ _
-;;; / ___| |__ _ __ ___ _ __ ___ ___
-;;; | | | '_ \| '__/ _ \| '_ ` _ \ / _ \
-;;; | |___| | | | | | (_) | | | | | | __/
-;;; \____|_| |_|_| \___/|_| |_| |_|\___|
-;;;
+
+;;; ____
+;;; | __ ) _ __ _____ _____ ___ _ __ ___
+;;; | _ \| '__/ _ \ \ /\ / / __|/ _ \ '__/ __|
+;;; | |_) | | | (_) \ V V /\__ \ __/ | \__ \
+;;; |____/|_| \___/ \_/\_/ |___/\___|_| |___/
+;;;
+;; «find-firefox-page» (to ".find-firefox-page")
;; «find-googlechrome-page» (to ".find-googlechrome-page")
+;;
;; Some browsers can open a PDF file "/tmp/foo.pdf" at page 42 if we
;; add a "#page=42" to its URL - i.e., if we ask them to open the URL
-;; "file:///tmp/foo.pdf#page=42". I added this code in 2020oct16 and
-;; only tested it on Google Chrome but it should work on several other
-;; browsers too, with the obvious trivial changes.
+;; "file:///tmp/foo.pdf#page=42"...
;; See: (find-efunction 'ee-fname-to-url)
;; Tests: (ee-fname-page-to-url "~/Coetzee99.pdf")
@@ -954,12 +956,20 @@ If the argument PAGE is non-nil append a \"#page=nnn\" to
the result."
(expand-file-name (ee-expand fname))
(if page (format "#page=%s" page) "")))
+(defun ee-find-firefox-page (fname &optional page)
+ `("firefox" ,(ee-fname-page-to-url fname page)))
+
(defun ee-find-googlechrome-page (fname &optional page)
`("google-chrome" ,(ee-fname-page-to-url fname page)))
-;; Tests: (find-googlechrome-page "~/Coetzee99.pdf")
+;; Tests: (find-firefox-page "~/Coetzee99.pdf")
+;; (find-firefox-page "~/Coetzee99.pdf" 3)
+;; (find-googlechrome-page "~/Coetzee99.pdf")
;; (find-googlechrome-page "~/Coetzee99.pdf" 3)
;;
+;; (find-code-pdfbackend "firefox-page")
+ (code-pdfbackend "firefox-page")
+;;
;; (find-code-pdfbackend "googlechrome-page")
(code-pdfbackend "googlechrome-page")
diff --git a/eev-template0.el b/eev-template0.el
index 77b8a7a..fc70dd2 100644
--- a/eev-template0.el
+++ b/eev-template0.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210509
+;; Version: 20210925
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-template0.el>
@@ -83,11 +83,14 @@
;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-06/msg00085.html
;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-06/msg00095.html
;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-06/msg00096.html
-
-
-
-;; Some links to places where the documentation mentions uses of
-;; `ee-template0':
+;;
+;; Here is a tutorial on lexical-versus-dynamic binding:
+;;
+;; (find-lexical-intro)
+;;
+;; And here are some links to places where the documentation of eev
+;; mentions uses of `ee-template0':
+;;
;; (find-eevgrep "grep --color -nH -e ee-template0 *.el")
;; (find-eev-quick-intro "7.5. `find-latex-links'")
;; (find-eev-quick-intro "8.4. Creating e-script blocks" "`M-B'")
diff --git a/eev-testblocks.el b/eev-testblocks.el
index 0c9926e..d8bef47 100644
--- a/eev-testblocks.el
+++ b/eev-testblocks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210909
+;; Version: 20210917
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-testblocks.el>
@@ -77,6 +77,21 @@
;; «examples» (to ".examples")
;; See: (find-eepitch-intro "3.1. `find-eeit-links'")
+(defun ee-insert-test-c-mode ()
+ (interactive)
+ (let* ((fnamec (buffer-name))
+ (fname (replace-regexp-in-string ".c$" "" fnamec)))
+ (insert (ee-template0 "\
+/*
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+gcc -o {fname} {fnamec}
+./{fname}
+
+*/
+"))))
+
(defun ee-insert-test-haskell-mode ()
(interactive)
(insert (format "
@@ -113,6 +128,18 @@ include(\"%s\")
=#
" (buffer-name))))
+(defun ee-insert-test-lisp-mode ()
+ (interactive)
+ (insert (format "
+#|
+ (eepitch-sbcl)
+ (eepitch-kill)
+ (eepitch-sbcl)
+(load \"%s\")
+
+|#
+" (buffer-name))))
+
(defun ee-insert-test-lua-mode ()
(interactive)
(insert (format "
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 11a17f4..eac63fe 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210913
+;; Version: 20210915
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -2415,8 +2415,13 @@ This function is used by `ee-0x0-upload-region'."
;; ""
,(ee-template0 "\
;; The code below was based on:
-;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-05/msg01080.html
-;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-05/msg01079.html
+;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-05/msg01080.html
+;; https://lists.gnu.org/archive/html/help-gnu-emacs/2021-05/msg01079.html
+;; Note that the default regexes for eepitch accept both the red
+;; stars and the bullets - chars 15 and 8226 respectively...
+;; See: (find-eev \"eepitch.el\" \"eepitch\" \"eepitch-regexp\")
+;; (find-eev-quick-intro \"6.3. Creating eepitch blocks: `M-T'\")
+;; And try: (insert \"\\n;; \" 15 8226)
@@ -2452,6 +2457,22 @@ This function is used by `ee-0x0-upload-region'."
(newli (format fmt li li)))
(insert newli))
(ee-next-line 1))
+
+
+
+;; To make eepitch blocks use the red bullets by default,
+;; add this block to your ~/.emacs. Note that this will make
+;; bullets appear in red in other places too, like in info manuals -
+;; for example here: (find-enode \"Using Region\")
+;; See: (find-eepitch-bullet-links)
+;;
+\(eepitch-set-glyph0 ?• ?• 'eepitch-star-face)
+\(defun eewrap-eepitch () (interactive)
+ (let* ((fmt \"• (eepitch-%s)\\n• (eepitch-kill)\\n• (eepitch-%s)\")
+ (li (ee-this-line-extract))
+ (newli (format fmt li li)))
+ (insert newli))
+ (ee-next-line 1))
")
)
pos-spec-list))