[elpa] externals/eev 901cb8c918: Added support for Telega.

[ELPA Syncer]

branch: externals/eev
commit 901cb8c9184b0076141ca500216161581ae69cca
Author: Eduardo Ochs <eduardoochs@gmail.com>
Commit: Eduardo Ochs <eduardoochs@gmail.com>

    Added support for Telega.
---
 ChangeLog     | 10 ++++++++++
 VERSION       |  4 ++--
 eev-hlinks.el | 52 +++++++++++++++++++++++++++-------------------------
 eev-plinks.el | 12 ++++++++++--
 eev-tlinks.el | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++++++---
 5 files changed, 104 insertions(+), 32 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 94e862d86c..c96c1413f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2022-10-23  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (find-telegachat-links)
+       (ee-find-telegachat-links): new functions.
+
+       * eev-hlinks.el (ee-telegachat-bufferp): new function.
+       (ee-fhl-main-program): added an entry for telegachat.
+
+       * eev-plinks.el (find-telegachat): new function.
+
 2022-10-21  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-videolinks.el (find-2022yttranscriptvideo): new function.
diff --git a/VERSION b/VERSION
index eb71105157..600ae116a2 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Oct 21 04:43:21 GMT 2022
-Fri Oct 21 01:43:21 -03 2022
+Sun Oct 23 11:06:18 GMT 2022
+Sun Oct 23 08:06:18 -03 2022
diff --git a/eev-hlinks.el b/eev-hlinks.el
index 3422702d05..f1f30df4fd 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:    20220903
+;; Version:    20221023
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-hlinks.el>
@@ -271,17 +271,18 @@ which kind \"here\" the current buffer is."
 (defvar ee-fhl-main-program
  '(:or
    ;; By major mode:
-   (:if (ee-info-bufferp)      (ee-find-info-links))
-   (:if (ee-man-bufferp)       (ee-find-man-links))
-   (:if (ee-grep-bufferp)      (ee-find-grep-links))
-   (:if (ee-eww-bufferp)       (ee-find-eww-links))
-   (:if (ee-w3m-bufferp)       (ee-find-w3m-links))
-   (:if (ee-dired-bufferp)     (ee-find-file-links))
-   (:if (ee-wdired-bufferp)    (ee-find-file-links))
-   (:if (ee-epackages-bufferp) (ee-find-epackages-links))
-   (:if (ee-osm-bufferp)       (ee-find-osm-links))
-   (:if (ee-helpful-bufferp)   (ee-find-helpful-links))
-   (:if (ee-nov-bufferp)       (ee-find-nov-links))
+   (:if (ee-info-bufferp)       (ee-find-info-links))
+   (:if (ee-man-bufferp)        (ee-find-man-links))
+   (:if (ee-grep-bufferp)       (ee-find-grep-links))
+   (:if (ee-eww-bufferp)        (ee-find-eww-links))
+   (:if (ee-w3m-bufferp)        (ee-find-w3m-links))
+   (:if (ee-dired-bufferp)      (ee-find-file-links))
+   (:if (ee-wdired-bufferp)     (ee-find-file-links))
+   (:if (ee-epackages-bufferp)  (ee-find-epackages-links))
+   (:if (ee-osm-bufferp)        (ee-find-osm-links))
+   (:if (ee-helpful-bufferp)    (ee-find-helpful-links))
+   (:if (ee-nov-bufferp)        (ee-find-nov-links))
+   (:if (ee-telegachat-bufferp) (ee-find-telegachat-links))
    ;;
    ;; By buffer name:
    (:if (ee-intro-bufferp)     (ee-find-intro-links))
@@ -452,19 +453,20 @@ This is the standard high-level way to call `ee-fhl-run'."
 ;; used in the `ee-fhl-main-program', defined at the top of this file.
 
 ;; By major mode
-(defun ee-grep-bufferp      () (eq major-mode 'grep-mode))
-(defun ee-man-bufferp       () (eq major-mode 'Man-mode))
-(defun ee-rcirc-bufferp     () (eq major-mode 'rcirc-mode))
-(defun ee-info-bufferp      () (eq major-mode 'Info-mode))
-(defun ee-dired-bufferp     () (eq major-mode 'dired-mode))
-(defun ee-wdired-bufferp    () (eq major-mode 'wdired-mode))
-(defun ee-eww-bufferp       () (eq major-mode 'eww-mode))
-(defun ee-w3m-bufferp       () (eq major-mode 'w3m-mode))
-;; (defun ee-custom-bufferp () (eq major-mode 'Custom-mode))
-(defun ee-epackages-bufferp () (eq major-mode 'package-menu-mode))
-(defun ee-osm-bufferp       () (eq major-mode 'osm-mode))
-(defun ee-helpful-bufferp   () (eq major-mode 'helpful-mode))
-(defun ee-nov-bufferp       () (eq major-mode 'nov-mode))
+(defun ee-grep-bufferp       () (eq major-mode 'grep-mode))
+(defun ee-man-bufferp        () (eq major-mode 'Man-mode))
+(defun ee-rcirc-bufferp      () (eq major-mode 'rcirc-mode))
+(defun ee-info-bufferp       () (eq major-mode 'Info-mode))
+(defun ee-dired-bufferp      () (eq major-mode 'dired-mode))
+(defun ee-wdired-bufferp     () (eq major-mode 'wdired-mode))
+(defun ee-eww-bufferp        () (eq major-mode 'eww-mode))
+(defun ee-w3m-bufferp        () (eq major-mode 'w3m-mode))
+;; (defun ee-custom-bufferp  () (eq major-mode 'Custom-mode))
+(defun ee-epackages-bufferp  () (eq major-mode 'package-menu-mode))
+(defun ee-osm-bufferp        () (eq major-mode 'osm-mode))
+(defun ee-helpful-bufferp    () (eq major-mode 'helpful-mode))
+(defun ee-nov-bufferp        () (eq major-mode 'nov-mode))
+(defun ee-telegachat-bufferp () (eq major-mode 'telega-chat-mode))
 
 ;; By buffer name
 (defun ee-intro-bufferp    () (ee-buffer-re "^\\*(find-\\(.*\\)-intro)\\*$"))
diff --git a/eev-plinks.el b/eev-plinks.el
index d377e3bc05..1083772752 100644
--- a/eev-plinks.el
+++ b/eev-plinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author:     Eduardo Ochs <eduardoochs@gmail.com>
 ;; Maintainer: Eduardo Ochs <eduardoochs@gmail.com>
-;; Version:    20220321
+;; Version:    20221023
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-plinks.el>
@@ -116,6 +116,7 @@
 ;; «.find-gitk»                (to "find-gitk")
 ;; «.find-tkdiff»      (to "find-tkdiff")
 ;; «.find-osm»         (to "find-osm")
+;; «.find-telegachat»  (to "find-telegachat")
 ;; «.find-firefox»     (to "find-firefox")
 ;; «.find-googlechrome»        (to "find-googlechrome")
 
@@ -465,7 +466,14 @@ viewer - installed for this to work, and Emacs 28 or 
later."
   (apply 'find-osm (mapcar 'string-to-number
                           (split-string latlonzoomstr "[^-.0-9]+"))))
 
-
+;; «find-telegachat»  (to ".find-telegachat")
+;; Tests: (find-telegachat "@emacs_telega")
+;;        (find-telegachat "@emacs_posts")
+;;        (find-telegachat "@emacs_posts" "Emacs News and Posts")
+;;
+(defun find-telegachat (name &rest rest)
+  (let ((url (format "tg:telega:%s" name)))
+    (find-dbsw-call `(telega-tme-open-tg ,url))))
 
 
 ;; «find-firefox»       (to ".find-firefox")
diff --git a/eev-tlinks.el b/eev-tlinks.el
index de0f6d9d99..61aab1d936 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:    20221020
+;; Version:    20221023
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -132,6 +132,7 @@
 ;; «.find-importlib-links»             (to "find-importlib-links")
 ;; «.find-pypi-links»                  (to "find-pypi-links")
 ;; «.find-nov-links»                   (to "find-nov-links")
+;; «.find-telegachat-links»            (to "find-telegachat-links")
 ;; «.find-eejump-links»                        (to "find-eejump-links")
 
 
@@ -3390,6 +3391,7 @@ how this works."
 ;; «find-pip3-links»  (to ".find-pip3-links")
 ;; Skel: (find-find-links-links-new "pip3" "pkg" "pkg_")
 ;; Test: (find-pip3-links "youtube-transcript-downloader")
+;; See:  http://angg.twu.net/find-yttranscript-links.html
 ;;
 (defun find-pip3-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing a script for pip3."
@@ -3434,8 +3436,7 @@ pip3 install {pkg}
 ;; Skel: (find-find-links-links-new "yttranscript" "c hash" "")
 ;; Test: (find-yttranscript-links)
 ;;       (find-yttranscript-links "acmetour" "dP1xVpMPn8M")
-;; See: https://lists.gnu.org/archive/html/eev/2022-03/msg00008.html
-;;      http://angg.twu.net/IMAGES/2022find-yttranscript-links.png
+;; See:  http://angg.twu.net/find-yttranscript-links.html
 ;;
 (defun find-yttranscript-links (&optional c hash &rest pos-spec-list)
 "Display a temporary script that downloads a transcript from youtube."
@@ -3475,6 +3476,7 @@ print(trits1)
 ;; Skel: (find-find-links-links-new "importlib" "pkg" "pkg_")
 ;; Tests: (find-importlib-links)
 ;;        (find-importlib-links "requests")
+;; See:   http://angg.twu.net/find-yttranscript-links.html
 ;;
 (defun find-importlib-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for importlib."
@@ -3517,6 +3519,7 @@ md['Home-Page']
 ;; Skel: (find-find-links-links-new "pypi" "pkg" "pkg_")
 ;; Test: (find-pypi-links)
 ;;       (find-pypi-links "requests")
+;; See:  http://angg.twu.net/find-yttranscript-links.html
 ;;
 (defun find-pypi-links (&optional pkg &rest pos-spec-list)
 "Visit a temporary buffer containing hyperlinks for pypi."
@@ -3596,6 +3599,55 @@ This doesn't support pos-spec lists yet."
   (find-fline fname))
 
 
+;;;  _       _                  
+;;; | |_ ___| | ___  __ _  __ _ 
+;;; | __/ _ \ |/ _ \/ _` |/ _` |
+;;; | ||  __/ |  __/ (_| | (_| |
+;;;  \__\___|_|\___|\__, |\__,_|
+;;;                 |___/       
+;;
+;; «find-telegachat-links»  (to ".find-telegachat-links")
+;; Skel: (find-find-links-links-new "telegachat" "bufname" "")
+;; Test: (find-telegachat-links "◀<Emacs News and Posts@emacs_posts>")
+;;
+(defun find-telegachat-links (&optional bufname &rest pos-spec-list)
+"Visit a temporary buffer containing hyperlinks for telegachat."
+  (interactive (list (buffer-name)))
+  (setq bufname (or bufname "{bufname}"))
+  (apply
+   'find-elinks
+   `((find-telegachat-links ,bufname ,@pos-spec-list)
+     ;; Convention: the first sexp always regenerates the buffer.
+     (find-efunction 'find-telegachat-links)
+     ""
+     ,@(ee-find-telegachat-links bufname)
+     )
+   pos-spec-list))
+
+(defun ee-find-telegachat-links (&optional bufname)
+  (setq bufname (or bufname (buffer-name)))
+  (let* ((chat       (with-current-buffer bufname telega-chatbuf--chat))
+         (username   (telega-chat-username chat))
+         (atusername (if username (format "@%s" username)))
+         (title      (plist-get chat :title))
+         (id         (plist-get chat :id))
+        )
+    `((find-telegachat ,atusername)
+      (find-telegachat ,atusername ,title)
+      (find-telegachat ,id)
+      (find-telegachat ,id ,title)
+      ""
+      (find-ebuffer ,bufname)
+      (setq tcbuf ,bufname)
+      (setq tcchat (with-current-buffer tcbuf telega-chatbuf--chat))
+      (telega-tme-internal-link-to tcchat)
+      (find-eppp tcchat)
+      (plist-get tcchat :chat_id)
+      (plist-get tcchat :title)
+      (plist-get tcchat :id)
+      )))
+
+
 
 
 ;; «find-eejump-links»  (to ".find-eejump-links")