[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eev 91c127a5f2: Added `ee-kla0'; several other small ch
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/eev 91c127a5f2: Added `ee-kla0'; several other small changes. |
|
Date: |
Fri, 21 Apr 2023 23:58:08 -0400 (EDT) |
branch: externals/eev
commit 91c127a5f212ec0bd070059a745b09e0f38848e8
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>
Added `ee-kla0'; several other small changes.
---
ChangeLog | 17 +++++++++++++++++
VERSION | 4 ++--
eev-blinks.el | 21 +++++++++++++++++++--
eev-elinks.el | 34 +++++++++++++++++++---------------
eev-hydras.el | 13 +++++++------
eev-intro.el | 1 +
eev-kla.el | 19 +++++++++++++++++--
eev-tla.el | 13 +++++++++++--
eev-tlinks.el | 46 +++++++++++++++++++++++++++++++++++++++++++---
eev-videolinks.el | 2 +-
10 files changed, 137 insertions(+), 33 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index ca57c7b4b3..1d9c7c7217 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,20 @@
+2023-04-21 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-blinks.el (ee-find-eww-preprocess-url): new function.
+ (find-eww): use `ee-find-eww-preprocess-url'.
+
+2023-02-14 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-tla.el (ee-code-tla): small changes.
+
+2023-01-28 Eduardo Ochs <eduardoochs@gmail.com>
+
+ * eev-elinks.el (find-emajormode-links): fixed a bug.
+
+ * eev-kla.el (ee-kl-sexp-kla0, eekla0): new functions.
+
+ * eev-tlinks.el (find-emacsclient-links): new function.
+
2023-01-27 Eduardo Ochs <eduardoochs@gmail.com>
* eev-intro.el: changed angg.twu.net to anggtwu.net.
diff --git a/VERSION b/VERSION
index b9e7a44a66..c2a7d29380 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Jan 27 07:27:47 GMT 2023
-Fri Jan 27 04:27:47 -03 2023
+Sat Apr 22 03:22:59 GMT 2023
+Sat Apr 22 00:22:59 -03 2023
diff --git a/eev-blinks.el b/eev-blinks.el
index a5742ad411..6eb39da262 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -21,7 +21,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20230127
+;; Version: 20230421
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-blinks.el>
@@ -1242,7 +1242,7 @@ this function saves the POS-SPEC-LIST in the variable
`ee-find-eww-search' processes these two variables."
(setq ee-find-eww-search-for pos-spec-list)
(setq ee-find-eww-search-yes t)
- (eww (replace-regexp-in-string "^/" "file:///" (ee-expand url))))
+ (eww (ee-find-eww-preprocess-url url)))
(defun ee-find-eww-search ()
"This function is run after eww finishes rendering a page.
@@ -1255,6 +1255,23 @@ false. These variables are set by `find-eww'."
(add-hook 'eww-after-render-hook 'ee-find-eww-search)
+;; Tests: (ee-find-eww-preprocess-url "/")
+;; (ee-find-eww-preprocess-url "/foo")
+;; (ee-find-eww-preprocess-url "C:/Users/")
+;; (ee-find-eww-preprocess-url "C:\\Users\\")
+;; See: (find-efunction 'ee-fname-to-url)
+;; (find-psne-intro "find-eww")
+;;
+(defun ee-find-eww-preprocess-url (url)
+ "An internal function used by `find-eww'."
+ (setq url (ee-expand url))
+ (setq url (replace-regexp-in-string "\\\\" "/" url))
+ (if (string-match "^/" url)
+ (concat "file://" url)
+ (if (string-match "^[A-Za-z]:/" url) ; experimental, for Windows
+ (concat "file:///" url)
+ url)))
+
;; (code-c-d "eww" (ee-elfile "net/") "eww" :gz)
;; (find-ewwfile "" "eww.el")
;; (find-ewwfile "eww.el")
diff --git a/eev-elinks.el b/eev-elinks.el
index 999b5fa325..f2d20b1dc8 100644
--- a/eev-elinks.el
+++ b/eev-elinks.el
@@ -1524,21 +1524,25 @@ Convert PKG - a symbol - to a package-desc structure
(or to nil)."
"Visit a temporary buffer containing hyperlinks about the major mode."
(interactive (list major-mode))
(setq mode (or mode "{mode}"))
- (apply
- 'find-elinks
- `((find-emajormode-links ,mode ,@pos-spec-list)
- ;; Convention: the first sexp always regenerates the buffer.
- (find-efunction 'find-emajormode-links)
- ""
- (find-efunction-links ',mode)
- (find-efunctiondescr ',mode)
- (find-efunction ',mode)
- (find-hvariable ,(concat mode "-map"))
- ""
- (find-estring (documentation ',mode))
- (find-estring (documentation ',mode t))
- )
- pos-spec-list))
+ (if (symbolp mode) (setq mode (symbol-name mode)))
+ (let ((ee-buffer-name (or ee-buffer-name "*find-emajormode-links*")))
+ (apply
+ 'find-elinks
+ `((find-emajormode-links ,mode ,@pos-spec-list)
+ ;; Convention: the first sexp always regenerates the buffer.
+ (find-efunction 'find-emajormode-links)
+ ""
+ ,(ee-template0 "\
+# (find-efunction-links '{mode})
+# (find-efunctiondescr '{mode})
+# (find-efunction '{mode})
+# (find-hvariable '{mode}-map)
+#
+# (find-estring (documentation '{mode}))
+# (find-estring (documentation '{mode} t))
+")
+ )
+ pos-spec-list)))
diff --git a/eev-hydras.el b/eev-hydras.el
index 33338dd302..449fe07f6c 100644
--- a/eev-hydras.el
+++ b/eev-hydras.el
@@ -128,12 +128,13 @@ Use `_,_'s and `_._'s between the `_i_' and the `_0_' to
adjust the `(to ...)'.\
("q" nil)
;;
;; Reindent:
- ("<down>" (eek "<down>"))
- ("<up>" (eek "<up>"))
- ("<right>" (eek "<right>"))
- ("<left>" (eek "<left>"))
- ("SPC" (eek "SPC"))
- ("DEL" (eek "DEL"))
+ ("<down>" (eek "<down>"))
+ ("<up>" (eek "<up>"))
+ ("<right>" (eek "<right>"))
+ ("<left>" (eek "<left>"))
+ ("<delete>" (eek "<delete>"))
+ ("SPC" (eek "SPC"))
+ ("DEL" (eek "DEL"))
("," (ee-edit-index-replace "\t(to " "(to "))
("." (ee-edit-index-replace "(to " "\t(to "))
;;
diff --git a/eev-intro.el b/eev-intro.el
index 4fdebebdf7..b1ababf2fa 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -14950,6 +14950,7 @@ have run the `defalias'es below:
;; From: (find-kla-intro \"2. Aliases\")
(defalias 'kla 'eekla)
+ (defalias 'kla0 'eekla0)
(defalias 'klas 'eeklas)
(defalias 'klf 'eeklf)
(defalias 'klfs 'eeklfs)
diff --git a/eev-kla.el b/eev-kla.el
index 4a8bce0545..1c746abbcf 100644
--- a/eev-kla.el
+++ b/eev-kla.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20230127
+;; Version: 20230128
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-kla.el>
@@ -340,6 +340,14 @@ If (ee-kl-lrcds FNAME) doesn't return any matching
`lrcd's, return nil."
(ee-kl-shorterfname :fname fname :c c :r r)
anchor))
+(cl-defun ee-kl-sexp-kla0 (&key fname c r anchor)
+ "<K>ill <l>ink to <a>nchor, without the anchor - make sexp."
+ (setq fname (or fname (ee-kl-fname))
+ c (or c (ee-kl-c :fname fname))
+ r (or r (ee-kl-r :fname fname)))
+ (list (ee-kl-find-c :fname fname :c c)
+ (ee-kl-shorterfname :fname fname :c c :r r)))
+
(cl-defun ee-kl-sexp-klas (&key fname c r anchor region)
"<K>ill <l>ink to <a>nchor and <s>tring - make sexp."
(setq fname (or fname (ee-kl-fname))
@@ -428,6 +436,12 @@ Put in the kill ring a link to the preceding anchor."
(interactive)
(ee-kl-kill (ee-kl-sexp-kla)))
+(defun eekla0 ()
+ "<K>ill <L>ink to <A>nchor, without the anchor.
+Put in the kill ring a shortened link to the file."
+ (interactive)
+ (ee-kl-kill (ee-kl-sexp-kla0)))
+
(defun eeklas ()
"<K>ill <L>ink to <A>nchor and <S>tring.
Put in the kill ring a link to the preceding anchor."
@@ -543,9 +557,10 @@ When not at BOL, move to the beginning of the next line."
;;; /_/ \_\_|_|\__,_|___/\___||___/
;;;
;; «aliases» (to ".aliases")
-;; See: (find-kla-intro "3. Aliases")
+;; See: (find-kla-intro "4. Aliases")
;; I use these aliases:
;; (defalias 'kla 'eekla)
+;; (defalias 'kla0 'eekla0)
;; (defalias 'klas 'eeklas)
;; (defalias 'klf 'eeklf)
;; (defalias 'klfs 'eeklfs)
diff --git a/eev-tla.el b/eev-tla.el
index 8cbdd9ba33..4951d5c178 100644
--- a/eev-tla.el
+++ b/eev-tla.el
@@ -1,6 +1,6 @@
;;; eev-tla.el --- eev links based on TLAs, i.e., three-letter acronyms. -*-
lexical-binding: nil; -*-
-;; Copyright (C) 2021 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2023 Free Software Foundation, Inc.
;;
;; This file is part of GNU eev.
;;
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version: 20210618
+;; Version: 20230214
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-tla.el>
@@ -220,9 +220,15 @@
(ee-template0 "\
;; (find-code-tla \"{tla}\" \"{fname}\")
;; (code-tla \"{tla}\" \"{fname}\")
+;; (find-eev \"eev-tla.el\" \"code-tla\")
+;; See: (find-eev \"eev-tla.el\" \"hash-table\")
+;; (find-ehashtable ee-tla-table)
+;; (find-ehashtable ee-tla-table \"{fname}\")
(ee-tla-set '{tla} \"{fname}\")
+;; Tests: ({tla})
+;; ({tla}a \"index\")
(defun {tla} (&rest pos-spec-list)
(interactive)
(apply 'find-fline \"{fname}\" pos-spec-list))
@@ -231,6 +237,9 @@
")
(if haspdf
(ee-template0 "
+;; Tests: (ee-tla-tex-to-pdf \"{fname}\")
+;; ({tla}p 1)
+;; ({tla}t 1)
(defun {tla}p (&optional page &rest rest)
(interactive)
(find-pdf-page \"{fnamepdf}\" page))
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 1179384f6f..37f7e852d1 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: 20230127
+;; Version: 20230128
;; Keywords: e-scripts
;;
;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -151,6 +151,7 @@
;; «.find-rstdoc-links» (to "find-rstdoc-links")
;; «.find-mpv-links» (to "find-mpv-links")
;; «.find-try-sly-links» (to "find-try-sly-links")
+;; «.find-emacsclient-links» (to "find-emacsclient-links")
(require 'eev-env)
@@ -3222,9 +3223,9 @@ This function is used by `ee-0x0-upload-region'."
;; (find-eev \"eev-videolinks.el\" \"{c}\")
;; (find-1stclassvideo-links \"{c}\")
;;
-;; Index: (find-1stclassvideoindex \"{c}\")
+;; Index: (find-1stclassvideoindex \"{c}\")
;; http://anggtwu.net/.emacs.videos.html#{c}
-;; (find-angg \".emacs.videos\" \"{c}\")
+;; (find-angg \".emacs.videos\" \"{c}\")
;; (find-angg-es-links)
{dlsubs}\
@@ -4091,6 +4092,45 @@ load(\"startsly\");
+;; «find-emacsclient-links» (to ".find-emacsclient-links")
+;; Skel: (find-find-links-links-new "emacsclient" "" "")
+;; Test: (find-emacsclient-links)
+;;
+(defun find-emacsclient-links (&rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for emacsclient."
+ (interactive)
+ (apply
+ 'find-elinks
+ `((find-emacsclient-links ,@pos-spec-list)
+ ;; Convention: the first sexp always regenerates the buffer.
+ (find-efunction 'find-emacsclient-links)
+ ""
+ (find-enode "Emacs Server")
+ (find-enode "Invoking emacsclient")
+ (find-enode "emacsclient Options" "--eval")
+ (find-pdf-like-intro "7. Shorter hyperlinks to PDF files")
+ (find-pdf-like-intro "code-pdf-page")
+ ""
+ ,(ee-template0 "\
+ (require 'server)
+ (server-stop)
+ (server-start)
+ (list-processes)
+
+ (eepitch-shell)
+ (eepitch-kill)
+ (eepitch-shell)
+# (find-livesofanimalspage 3)
+emacsclient --eval '(+ 1 2)'
+emacsclient --eval '(find-livesofanimalspage 3)'
+
+")
+ )
+ pos-spec-list))
+
+
+
+
(provide 'eev-tlinks)
diff --git a/eev-videolinks.el b/eev-videolinks.el
index 8891ad10a9..dae990583d 100644
--- a/eev-videolinks.el
+++ b/eev-videolinks.el
@@ -1044,7 +1044,7 @@ For more info on this particular video, run:
;; Play: (find-2022eevwconfigvideo "0:00")
;; Index: (find-1stclassvideoindex "2022eevwconfig")
("2022eevwconfig"
- :title "Eev-config.el: a way without \"magic\" to configure eev on M$
Windows"
+ :title "Eev-wconfig.el: a way without \"magic\" to configure eev on M$
Windows"
:mp4 "http://anggtwu.net/eev-videos/2022-eev-wconfig.mp4";
:yt "http://www.youtube.com/watch?v=Rm29XSdGCXw";
:page "http://anggtwu.net/eev-wconfig.html";
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/eev 91c127a5f2: Added `ee-kla0'; several other small changes.,
ELPA Syncer <=