emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Abstract denote--retrieve-xref-alist from backlinks' buffer preparation into its own function

Browse source 
This way it can more easily be used elsewhere.
This commit is contained in:
Protesilaos Stavrou 2025-03-17 06:58:52 +02:00
parent 0dcd487b40
commit 773de77a01
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
denote.el
View file

@ -2515,6 +2515,18 @@ See `denote--retrieve-locations-in-xrefs'."
(denote--retrieve-group-in-xrefs identifier))
#'string-collate-lessp))
(defun denote-retrieve-xref-alist (query &optional files-matching-regexp)
"Return xref alist of files with location of matches for QUERY.
With optional FILES-MATCHING-REGEXP, limit the list of files
accordingly (per `denote-directory-files').
At all times limit the search to text files."
(let ((xref-file-name-display 'abs))
(xref--analyze
(xref-matches-in-files
query
(denote-directory-files files-matching-regexp :omit-current :text-only)))))
;;;; New note
;;;;; Common helpers for new notes
@ -5363,10 +5375,7 @@ non-nil value."
;; in relative form, but eventually notes may not be all
;; under a common directory (or project).
(xref-file-name-display 'abs)
(xref-alist (xref--analyze
(xref-matches-in-files
query
(denote-directory-files files-matching-regexp :omit-current :text-only))))
(xref-alist (denote-retrieve-xref-alist query files-matching-regexp))
(dir (denote-directory)))
(unless xref-alist
(error "No backlinks for query `%s'" query))