emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-15 17:56:19 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make denote-link--prepare-backlinks accept files-matching-regexp parameter

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-05-11 10:32:45 +03:00
parent 0bc53a4bce
commit b8d1ae3e68
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
denote.el
View file

@ -4015,9 +4015,12 @@ matching identifiers."
(unless denote-backlinks-show-context
(font-lock-add-keywords nil denote-faces-file-name-keywords t)))
(defun denote-link--prepare-backlinks (query &optional buffer-name display-buffer-action)
(defun denote-link--prepare-backlinks (query &optional files-matching-regexp buffer-name display-buffer-action)
"Create backlinks' buffer called BUFFER-NAME for the current file matching QUERY.
With optional FILES-MATCHING-REGEXP, limit the list of files
accordingly (per `denote-directory-files').
Optional DISPLAY-BUFFER-ACTION is a `display-buffer' action and
concomitant alist, such as `denote-link-backlinks-display-buffer-action'."
(let* ((inhibit-read-only t)
@ -4028,7 +4031,10 @@ concomitant alist, such as `denote-link-backlinks-display-buffer-action'."
;; automatically 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 nil :omit-current :text-only))))
(xref-alist (xref--analyze
(xref-matches-in-files
query
(denote-directory-files files-matching-regexp :omit-current :text-only))))
(dir (denote-directory)))
(unless xref-alist
(error "No backlinks for query `%s'" query))
@ -4083,7 +4089,7 @@ Place the buffer below the current window or wherever the user option
(interactive)
(if-let ((file buffer-file-name))
(when-let ((id (denote-retrieve-filename-identifier-with-error file)))
(denote-link--prepare-backlinks id (denote--backlinks-get-buffer-name file id)))
(denote-link--prepare-backlinks id nil (denote--backlinks-get-buffer-name file id)))
(user-error "Buffer `%s' is not associated with a file" (current-buffer))))
(define-obsolete-function-alias