[elpa] externals/denote 823b3b8ba5 3/3: Merge pull request #130 from EFLS/main

[ELPA Syncer]

branch: externals/denote
commit 823b3b8ba5cf5577839b7ed3d293d85714a79967
Merge: 34b4a31f39 491f81b68b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #130 from EFLS/main
    
    Minor updates for dblock
---
 denote-org-dblock.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/denote-org-dblock.el b/denote-org-dblock.el
index a55cdd783c..c8f595e05e 100644
--- a/denote-org-dblock.el
+++ b/denote-org-dblock.el
@@ -55,7 +55,9 @@
 ;;
 ;; With point at the #+BEGIN: line, pressing 'C-c C-c' will replace the
 ;; contents of the block with links to notes matching the search
-;; ':regexp'. See also the denote manual on 'denote-link-add-links'.
+;; ':regexp'. The regular expression can be either a regexp string or
+;; a sexp form (the latter is translated via rx).
+;; See also the denote manual on 'denote-link-add-links'.
 ;;
 ;; Inserting a block can be done via the Org-mode entry point
 ;; 'org-dynamic-block-insert-dblock' and selecting 'denote-links' from
@@ -64,7 +66,8 @@
 ;;
 ;; Org Dynamic blocks of the denote-links type can have the follwoing
 ;; arguments (in any order):
-;;  1. :regexp "string" -- the search input (required)
+;;  1. :regexp input    -- the search input (required), either as a
+;;                         regexp string or a sexp (in rx notation)
 ;;  2. :missing-only t  -- to only include missing links
 ;;  3. :reverse t       -- reverse sort order (or don't, when nil)
 ;;  4. :block-name "n"  -- to include a name for later processing
@@ -124,8 +127,8 @@ Used by `org-dblock-update' with PARAMS provided by the 
dynamic block."
 ;; Similarly, we can create a 'denote-backlinks' block that inserts
 ;; links to notes that link to the current note.
 
-;; Note that this block type doesn't take any additional parameters
-;; (such as ':missing-only').
+;; This block type takes the following parameters:
+;;  1. :reverse t       -- reverse sort order (or don't, when nil)
 
 ;;;###autoload
 (defun denote-org-dblock-insert-backlinks ()
@@ -136,11 +139,12 @@ Used by `org-dblock-update' with PARAMS provided by the 
dynamic block."
 
 (org-dynamic-block-define "denote-backlinks" 
'denote-org-dblock-insert-backlinks)
 
-(defun org-dblock-write:denote-backlinks (_params)
+(defun org-dblock-write:denote-backlinks (params)
   "Function to update `denote-backlinks' Org Dynamic blocks.
 Used by `org-dblock-update' with PARAMS provided by the dynamic block."
   (when-let* ((file (buffer-file-name))
               (id (denote-retrieve-filename-identifier file))
+              (denote-link-add-links-sort (plist-get params :reverse))
               (files (delete file (denote--retrieve-files-in-xrefs id))))
     (insert (denote-link--prepare-links files file nil))
     (join-line))) ;; remove trailing empty line