[elpa] externals/denote 5228b1bb17 231/355: Sort 'denote-link-add-links' contents

[ELPA Syncer]

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

    Sort 'denote-link-add-links' contents
---
 denote-link.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/denote-link.el b/denote-link.el
index 3bbf807136..bdb4263d92 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -268,6 +268,11 @@ default, it will show up below the current window."
 (defvar denote-link--prepare-links-format "- %s\n"
   "Format specifiers for `denote-link-add-links'.")
 
+;; NOTE 2022-06-16: There is no need to overwhelm the user with options,
+;; though I expect someone to want to change the sort order.
+(defvar denote-link-add-links-sort nil
+  "Add REVERSE to `sort-lines' of `denote-link-add-links' when t.")
+
 (defun denote-link--prepare-links (files ext)
   "Prepare links to FILES using format of EXT."
   (setq denote-link--links-to-files
@@ -277,6 +282,7 @@ default, it will show up below the current window."
                    (format denote-link--prepare-links-format
                            (denote-link--format-link f ext))))
                 files)
+          (sort-lines denote-link-add-links-sort (point-min) (point-max))
           (let ((min (point-min))
                 (max (point-max)))
             (buffer-substring-no-properties min max)))))