[elpa] externals/eev 07ac3d8c5a: Now `find-telegachat-links' supports links to messages.

[ELPA Syncer]

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

    Now `find-telegachat-links' supports links to messages.
---
 ChangeLog      |  6 ++++++
 VERSION        |  4 ++--
 eev-blinks.el  | 14 +++++++++-----
 eev-pdflike.el |  8 +++++++-
 eev-tlinks.el  | 25 ++++++++++++++++++-------
 5 files changed, 42 insertions(+), 15 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a63f3b81b8..2bcc482691 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
+2022-10-29  Eduardo Ochs  <eduardoochs@gmail.com>
+
+       * eev-tlinks.el (ee-telega-msgn): new function.
+       (ee-find-telegachat-links): use `ee-telega-msgn'.
+
 2022-10-28  Eduardo Ochs  <eduardoochs@gmail.com>
 
        * eev-blinks.el (find-eoverlayspp, ee-overlay-pp0): new functions.
+       (ee-sort-pairs): new function.
 
 2022-10-27  Eduardo Ochs  <eduardoochs@gmail.com>
 
diff --git a/VERSION b/VERSION
index 4295b2c648..37ae7a8b26 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Fri Oct 28 15:42:59 GMT 2022
-Fri Oct 28 12:42:59 -03 2022
+Sun Oct 30 03:00:09 GMT 2022
+Sun Oct 30 00:00:09 -03 2022
diff --git a/eev-blinks.el b/eev-blinks.el
index 1dfcbf2aa1..7dc01568dc 100644
--- a/eev-blinks.el
+++ b/eev-blinks.el
@@ -551,14 +551,18 @@ properties to omit."
 ;;      https://lists.gnu.org/archive/html/help-gnu-emacs/2022-10/msg00745.html
 (defun ee-string-intervals (str)
   "This is similar to `object-intervals', but uses another output format."
+  (cl-loop for (b e props) in (object-intervals str)
+          for s = (substring-no-properties str b e)
+          for pairs = (cl-loop for (x y) on props by 'cddr
+                               collect (list x y))
+          collect (cons s (ee-sort-pairs pairs))))
+
+(defun ee-sort-pairs (pairs)
+  "Sort a list of PAIRS of the the form (symbol value)."
   (let ((pair< (lambda (pair1 pair2)
                  (string< (symbol-name (car pair1))
                           (symbol-name (car pair2))))))
-    (cl-loop for (b e props) in (object-intervals str)
-             for s = (substring-no-properties str b e)
-             for pairs = (cl-loop for (x y) on props by 'cddr
-                                  collect (list x y))
-             collect (cons s (sort pairs pair<)))))
+    (sort pairs pair<)))
 
 ;; This is a stub!
 (defun ee-eregionpp-preprocess (intervals0 arg)
diff --git a/eev-pdflike.el b/eev-pdflike.el
index b269056050..cf1952d3dc 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:    20221020
+;; Version:    20221029
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-pdflike.el>
@@ -196,9 +196,15 @@
 ;; «.code-brxxxs»                      (to "code-brxxxs")
 
 
+
 (require 'eev-plinks)                  ; (find-eev "eev-plinks.el")
 (require 'eev-brxxx)                   ; (find-eev "eev-brxxx.el")
 
+;; Autoloads for external functions.
+;; See: (find-elnode "Autoload")
+(autoload 'pdf-loader-install "pdf-tools")
+
+
 
 ;;;                  _       _     _           
 ;;; __   ____ _ _ __(_) __ _| |__ | | ___  ___ 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index 69c3b4d79b..12dc554f17 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:    20221025
+;; Version:    20221029
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://angg.twu.net/eev-current/eev-tlinks.el>
@@ -3642,18 +3642,25 @@ This doesn't support pos-spec lists yet."
      )
    pos-spec-list))
 
-(defun ee-find-telegachat-links (&optional bufname)
+(defun ee-find-telegachat-links (&optional bufname msgn)
   (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))
+  (setq msgn    (or msgn (ee-telega-msgn)))
+  (let* ((chat        (with-current-buffer bufname telega-chatbuf--chat))
+         (username    (telega-chat-username chat))
+         (atusername  (if username (format "@%s" username)))
+         (atusernamen (format "%s#%s" atusername msgn))
+         (title       (plist-get chat :title))
+         (id          (plist-get chat :id))
+         (idn         (format "%s#%s" id msgn))
         )
     `((find-telegachat ,atusername)
       (find-telegachat ,atusername ,title)
+      (find-telegachat ,atusernamen)
+      (find-telegachat ,atusernamen ,title)
       (find-telegachat ,id)
       (find-telegachat ,id ,title)
+      (find-telegachat ,idn)
+      (find-telegachat ,idn ,title)
       ""
       (find-ebuffer ,bufname)
       (setq tcbuf ,bufname)
@@ -3665,6 +3672,10 @@ This doesn't support pos-spec lists yet."
       (plist-get tcchat :id)
       )))
 
+(defun ee-telega-msgn (&optional msg)
+  (setq msg (or msg (telega-msg-for-interactive)))
+  (/ (plist-get msg :id) telega-msg-id-step))
+