branch: externals/denote
commit 5228b1bb17140a961ce12b49ab4d15a32ef6474b
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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)))))
