branch: externals/eev
commit 636a3224bdea40bfcb7a38f5e0f68677ab96f1e9
Author: Eduardo Ochs <eduardoo...@gmail.com>
Commit: Eduardo Ochs <eduardoo...@gmail.com>
Added support for irc.libera.chat to find-here-links.
---
ChangeLog | 5 +++++
VERSION | 4 ++--
eev-hlinks.el | 18 +++++++++++++++++-
3 files changed, 24 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 037a65f3ba..e8d17aad78 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-12-18 Eduardo Ochs <eduardoo...@gmail.com>
+
+ * eev-hlinks.el (ee-libera-bufferp, ee-find-libera-links)
+ (ee-fhl-main-program): added an `(:if (ee-libera-bufferp) ...)'.
+
2022-12-16 Eduardo Ochs <eduardoo...@gmail.com>
* eev-blinks.el (find-epackages): renamed to `find-epackages0'.
diff --git a/VERSION b/VERSION
index 98ee25a4f9..ce852891e1 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Dec 16 04:57:38 GMT 2022
-Fri Dec 16 01:57:38 -03 2022
+Mon Dec 19 02:29:52 GMT 2022
+Sun Dec 18 23:29:52 -03 2022
diff --git a/eev-hlinks.el b/eev-hlinks.el
index fa1899a937..78cfcb638a 100644
--- a/eev-hlinks.el
+++ b/eev-hlinks.el
@@ -19,7 +19,7 @@
;;
;; Author: Eduardo Ochs <eduardoo...@gmail.com>
;; Maintainer: Eduardo Ochs <eduardoo...@gmail.com>
-;; Version: 20221216
+;; Version: 20221218
;; Keywords: e-scripts
;;
;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -302,6 +302,7 @@ which kind \"here\" the current buffer is."
(:if (ee-epackage-bufferp) (ee-find-epackage-links))
;;
;; Other cases:
+ (:if (ee-libera-bufferp) (ee-find-libera-links))
(:if (ee-file-bufferp) (ee-find-file-links))
(:if t '("" "Not implemented!" "See:"
(find-efunction 'ee-find-here-links)))
@@ -598,6 +599,21 @@ a single whitespace character, and the results are
`concat'-ed."
(defun ee-find-eww-links () `((find-eww ,(plist-get eww-data :url))))
(defun ee-find-w3m-links () `((find-w3m ,w3m-current-url)))
+;; Experimental, 2022dec18
+;; See: (find-eev "eev-rcirc.el" "find-libera")
+;;
+(defun ee-libera-bufferp ()
+ (and (boundp 'rcirc-server-buffer)
+ rcirc-server-buffer
+ (equal (with-rcirc-server-buffer rcirc-server)
+ "irc.libera.chat")))
+
+(defun ee-find-libera-links ()
+ `((find-libera ,rcirc-target)
+ (find-libera-2a ,rcirc-target)
+ (find-libera-3a ,rcirc-target)
+ ,(if buffer-file-name
+ `(find-fline ,(ee-shorten-file-name buffer-file-name)))))
