branch: externals/eev
commit 870ceb0c8296f573ec5058d1448070290796ab21
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added `find-newbrowser-links'.
---
ChangeLog | 6 ++++
VERSION | 4 +--
eev-compose-hash.el | 95 ++++++++++++++++++++++++++++++++++++++++++++++++-----
eev-pdflike.el | 2 +-
eev-tlinks.el | 74 +++++++++++++++++++++++++++++++++++++++--
eev.el | 2 +-
6 files changed, 168 insertions(+), 15 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 2ea91c3..2a2513c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-07-09 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-tlinks.el (find-newbrowser-links): new function.
+ (find-git-links): added "-" to the list of characters that are
+ deleted to form the "{c}" argument to `code-c-d'.
+
2021-06-18 Eduardo Ochs <eduardoo...@gmail.com>
* eev-tla.el (find-pdf-txt, find-pdf-txt-links)
diff --git a/VERSION b/VERSION
index c3339bd..f627458 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jun 18 04:22:33 GMT 2021
-Fri Jun 18 01:22:33 -03 2021
+Sat Jul 10 03:05:56 GMT 2021
+Sat Jul 10 00:05:56 -03 2021
diff --git a/eev-compose-hash.el b/eev-compose-hash.el
index aaca6c4..00581a9 100644
--- a/eev-compose-hash.el
+++ b/eev-compose-hash.el
@@ -44,7 +44,23 @@
;;
;; Greek letters: (find-einsert '((900 1000)))
;; Some mathematical characters: (find-einsert '((8592 9000)))
-;;
+;; Some mathematical alphabets:
+
+' (find-einsert '("Bold: " (119808 119859) "\n"
+ "Italic: " (119860 119911) "\n"
+ "Bold italic: " (119912 119963) "\n"
+ "Script: " (119964 120015) "\n"
+ "Bold script: " (120016 120067) "\n"
+ "Fraktur: " (120068 120119) "\n"
+ "Double-struck: " (120120 120171) "\n"
+ "Bold Fraktur: " (120172 120223) "\n"
+ "Sans-serif: " (120224 120275) "\n"
+ "Sans-serif bold: " (120276 120327) "\n"
+ "Sans-serif italic: " (120328 120379) "\n"
+ "Sans-serif bold italic: " (120380 120431) "\n"
+ "Monospace: " (120432 120483) "\n"
+ "\n" (120484 120831)))
+
;; See:
;;
;; (find-equailfile "latin-ltx.el")
@@ -275,13 +291,15 @@ instead of inserting."
(set-face-foreground face fg)
(set-face-background face bg))
-(ee-composes-set-face 'ee-composes-face-Greek "orange" "gray20")
-(ee-composes-set-face 'ee-composes-face-greek "coral" "gray20")
-(ee-composes-set-face 'ee-composes-face-logical "SteelBlue1" "gray20")
-(ee-composes-set-face 'ee-composes-face-math "RoyalBlue2" "gray20")
-(ee-composes-set-face 'ee-composes-face-linear "PaleVioletRed" "gray20")
-(ee-composes-set-face 'ee-composes-face-graphic "red" "gray20")
-(ee-composes-set-face 'ee-composes-face-font "gold" "DarkOrange4")
+(ee-composes-set-face 'ee-composes-face-Greek "orange" "gray20")
+(ee-composes-set-face 'ee-composes-face-greek "coral" "gray20")
+(ee-composes-set-face 'ee-composes-face-logical "SteelBlue1" "gray20")
+(ee-composes-set-face 'ee-composes-face-math "RoyalBlue2" "gray20")
+(ee-composes-set-face 'ee-composes-face-linear "PaleVioletRed" "gray20")
+(ee-composes-set-face 'ee-composes-face-script "PaleVioletRed" "gray20")
+(ee-composes-set-face 'ee-composes-face-graphic "red" "gray20")
+(ee-composes-set-face 'ee-composes-face-category "red" "gray20")
+(ee-composes-set-face 'ee-composes-face-font "gold" "DarkOrange4")
(ee-composes-set-face 'ee-composes-face-yellow-on-red "yellow" "red")
@@ -427,6 +445,7 @@ instead of inserting."
∪ cu \\cup
∫ In \\int
∼ ~1 \\sim
+ ∼ 1~ \\sim
≃ -~ \\simeq
≅ =~ \\cong
≈ ~~ \\approx
@@ -477,6 +496,65 @@ instead of inserting."
𝐫 rm \\mathrm
𝐬 sf \\mathsf
𝐭 tx \\text
+
+ face: ee-composes-face-script
+ 𝓐 sA \\mathcal{A}
+ 𝓑 sB \\mathcal{B}
+ 𝓒 sC \\mathcal{C}
+ 𝓓 sD \\mathcal{D}
+ 𝓔 sE \\mathcal{E}
+ 𝓕 sF \\mathcal{F}
+ 𝓖 sG \\mathcal{G}
+ 𝓗 sH \\mathcal{H}
+ 𝓘 sI \\mathcal{I}
+ 𝓙 sJ \\mathcal{J}
+ 𝓚 sK \\mathcal{K}
+ 𝓛 sL \\mathcal{L}
+ 𝓜 sM \\mathcal{M}
+ 𝓝 sN \\mathcal{N}
+ 𝓞 sO \\mathcal{O}
+ 𝓟 sP \\mathcal{P}
+ 𝓠 sQ \\mathcal{Q}
+ 𝓡 sR \\mathcal{R}
+ 𝓢 sS \\mathcal{S}
+ 𝓣 sT \\mathcal{T}
+ 𝓤 sU \\mathcal{U}
+ 𝓥 sV \\mathcal{V}
+ 𝓦 sW \\mathcal{W}
+ 𝓧 sX \\mathcal{X}
+ 𝓨 sY \\mathcal{Y}
+ 𝓩 sZ \\mathcal{Z}
+
+ ;; Categories
+ face: ee-composes-face-category
+ 𝐀 cA \\catA
+ 𝐁 cB \\catB
+ 𝐂 cC \\catC
+ 𝐃 cD \\catD
+ 𝐄 cE \\catE
+ 𝐅 cF \\catF
+ 𝐆 cG \\catG
+ 𝐇 cH \\catH
+ 𝐈 cI \\catI
+ 𝐉 cJ \\catJ
+ 𝐊 cK \\catK
+ 𝐋 cL \\catL
+ 𝐌 cM \\catM
+ 𝐍 cN \\catN
+ 𝐎 cO \\catO
+ 𝐏 cP \\catP
+ 𝐐 cQ \\catQ
+ 𝐑 cR \\catR
+ 𝐒 cS \\catS
+ 𝐓 cT \\catT
+ 𝐔 cU \\catU
+ 𝐕 cV \\catV
+ 𝐖 cW \\catW
+ 𝐗 cX \\catX
+ 𝐘 cY \\catY
+ 𝐙 cZ \\catZ
+
+
")
@@ -487,6 +565,7 @@ instead of inserting."
;; (ee-composes-do ee-composes-bigstr-otheriso)
;; (ee-composes-do ee-composes-bigstr-math)
;; (find-estring (ee-composes-to-string))
+;; (find-estring (ee-composes-to-catcodes))
;; (define-key eev-mode-map (kbd "M-,") 'ee-compose-pair)
diff --git a/eev-pdflike.el b/eev-pdflike.el
index 1bd7e56..0eec121 100644
--- a/eev-pdflike.el
+++ b/eev-pdflike.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20210608
+;; Version: 20210618
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
diff --git a/eev-tlinks.el b/eev-tlinks.el
index e55b7e8..867726d 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20210516
+;; Version: 20210709
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -89,6 +89,7 @@
;; «.find-emacs-tangents-links» (to "find-emacs-tangents-links")
;; «.find-eeit-links» (to "find-eeit-links")
;; «.find-texlive-links» (to "find-texlive-links")
+;; «.find-newbrowser-links» (to "find-newbrowser-links")
(require 'eev-env)
@@ -1184,12 +1185,12 @@ echo '{url}' >> ~/.psne.log
(setq ee-git-dir "~/usrc/") ;; Used by find-git-links
(defun find-git-links (&optional url c &rest pos-spec-list)
-"Visit a temporary buffer containing hyperlinks for foo."
+"Visit a temporary buffer containing a script for downloading a git repo."
(interactive)
(let (gitstem dir)
(setq url (or url (ee-git-url-at-point) "{url}"))
(setq gitstem (or gitstem (ee-git-url-stem url)))
- (setq c (or c (replace-regexp-in-string "\\." "" gitstem)))
+ (setq c (or c (replace-regexp-in-string "[-.]" "" gitstem)))
(setq dir (format "%s%s/" ee-git-dir gitstem))
(apply 'find-elinks
`((find-git-links ,url ,c)
@@ -2238,6 +2239,73 @@ sudo ./install-tl -select-repository
+;;; _
+;;; _ __ _____ _| |__ _ __ _____ _____ ___ _ __
+;;; | '_ \ / _ \ \ /\ / / '_ \| '__/ _ \ \ /\ / / __|/ _ \ '__|
+;;; | | | | __/\ V V /| |_) | | | (_) \ V V /\__ \ __/ |
+;;; |_| |_|\___| \_/\_/ |_.__/|_| \___/ \_/\_/ |___/\___|_|
+;;;
+;; «find-newbrowser-links» (to ".find-newbrowser-links")
+;; Skel: (find-find-links-links-new "newbrowser" "browser binary b" "")
+;; Test: (find-newbrowser-links "googlechrome" "google-chrome" "g")
+;;
+(defun find-newbrowser-links (&optional browser binary b &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for newbrowser."
+ (interactive)
+ (setq browser (or browser "{browser}"))
+ (setq binary (or binary "{binary}"))
+ (setq b (or b "{b}"))
+ (apply
+ 'find-elinks-elisp
+ `((find-newbrowser-links ,browser ,binary ,b ,@pos-spec-list)
+ ;; Convention: the first sexp always regenerates the buffer.
+ (find-efunction 'find-newbrowser-links)
+ ""
+ ,(ee-template0 "\
+;; This block defines `find-{browser}', `br{b}', `br{b}l', and `br{b}d'.
+;; See: (find-eev-quick-intro \"3.1. Non-elisp hyperlinks\")
+;; (find-brxxx-intro \"3. The `d' variants\")
+;; (find-brxxx-intro \"5. `code-brurl'\")
+;; (find-eev \"eev-brxxx.el\" \"code-brxxxs\")
+;;
+(defun find-{browser} (url) (find-bgprocess `(\"{binary}\" ,url)))
+;;
+;; (find-code-brurl 'find-{browser} :remote 'br{b} :local 'br{b}l :dired
'br{b}d)
+ (code-brurl 'find-{browser} :remote 'br{b} :local 'br{b}l :dired
'br{b}d)
+
+
+
+;; This block defines `find-{browser}-page'.
+;; See: (find-eev \"eev-pdflike.el\" \"find-googlechrome-page\")
+;;
+(defun ee-find-{browser}-page (fname &optional page)
+ `(\"{binary}\" ,(ee-fname-page-to-url fname page)))
+;;
+;; (find-code-pdfbackend \"{browser}-page\")
+ (code-pdfbackend \"{browser}-page\")
+
+
+
+;; Run the `defalias' below if you want to make
+;; `find-pdf-page' use `find-{browser}-page'.
+;; See: (find-eev \"eev-pdflike.el\" \"change-default-viewer\")
+;;
+(defalias 'find-pdf-page 'find-{browser}-page)
+
+
+
+;; Tests:
+;; (find-{browser} \"http://angg.twu.net/#eev\";)
+;; (find-{browser}-page \"~/Coetzee99.pdf\")
+;; (find-{browser}-page \"~/Coetzee99.pdf\" 3)
+;; (find-pdf-page \"~/Coetzee99.pdf\" 3)
+")
+ )
+ pos-spec-list))
+
+
+
+
(provide 'eev-tlinks)
diff --git a/eev.el b/eev.el
index 144f2da..d2fcff8 100644
--- a/eev.el
+++ b/eev.el
@@ -6,7 +6,7 @@
;; Package-Requires: ((emacs "24.4"))
;; Keywords: lisp e-scripts
;; URL: http://angg.twu.net/#eev
-;; Version: 20210618
+;; Version: 20210710
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
