[elpa] externals/denote 90875d5419 233/355: Sort backlinks from oldest to newest

[ELPA Syncer]

branch: externals/denote
commit 90875d5419f27117ccd4a165dd536410e31ef541
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Sort backlinks from oldest to newest
    
    I think we do not need a user option for this, as too many options make
    it difficult to understand what is really needed to get started.  Though
    the 'denote-link-backlinks-sort' variable can be set to t to reverse the
    order.
---
 denote-link.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/denote-link.el b/denote-link.el
index bdb4263d92..8176ebd5a6 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -215,11 +215,17 @@ format is always [[denote:IDENTIFIER]]."
    buf
    `(,@denote-link-backlinks-display-buffer-action)))
 
+;; NOTE 2022-06-17: This is a `defvar' on purpose, like
+;; `denote-link-add-links'.  Read its comment.
+(defvar denote-link-backlinks-sort nil
+  "Add REVERSE to `sort-lines' of `denote-link-backlinks' when t.")
+
 (defun denote-link--prepare-backlinks (id files &optional title)
   "Create backlinks' buffer for ID including FILES.
 Use optional TITLE for a prettier heading."
   (let ((inhibit-read-only t)
-        (buf (format "*denote-backlinks to %s*" id)))
+        (buf (format "*denote-backlinks to %s*" id))
+        start)
     (with-current-buffer (get-buffer-create buf)
       (erase-buffer)
       (special-mode)
@@ -228,11 +234,13 @@ Use optional TITLE for a prettier heading."
                   (heading (format "Backlinks to %S (%s)" title id))
                   (l (length heading)))
         (insert (format "%s\n%s\n\n" heading (make-string l ?-))))
+      (setq start (point))
       (mapc (lambda (f)
               (insert (file-name-nondirectory f))
               (make-button (point-at-bol) (point-at-eol) :type 
'denote-link-find-file)
               (newline))
             files)
+      (sort-lines denote-link-backlinks-sort start (point))
       (goto-char (point-min))
       ;; NOTE 2022-06-15: Technically this is not Dired.  Maybe we
       ;; should abstract the fontification into a general purpose