[elpa] externals/eev 636a3224bd: Added support for irc.libera.chat to find-here-links.

[ELPA Syncer]

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