emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/eev 870ceb0: Added `find-newbrowser-links'.


From: ELPA Syncer
Subject: [elpa] externals/eev 870ceb0: Added `find-newbrowser-links'.
Date: Fri, 9 Jul 2021 23:57:08 -0400 (EDT)

branch: externals/eev
commit 870ceb0c8296f573ec5058d1448070290796ab21
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@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  <eduardoochs@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  <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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 <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]