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

Define commands to create direct links to files whose contents match a query

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-03-29 09:17:51 +02:00
parent 54480f9f86
commit ba081010fa
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 36 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
denote.el
View file

@ -5552,6 +5552,42 @@ inserts links with just the identifier."
(defalias 'denote-link-insert-links-matching-regexp 'denote-add-links
"Alias for `denote-add-links' command.")
;;;;; Link to file with matching contents
;;;###autoload
(defun denote-link-to-file-with-contents (query &optional id-only)
"Link to a file whose contents match QUERY.
This is similar to `denote-link', except that the file prompt is limited
to files matching QUERY. Optional ID-ONLY has the same meaning as in
`denote-link'."
(interactive
(list (denote-query-link-prompt nil "Files whose contents include QUERY")))
(if-let* ((files (denote-retrieve-files-xref-query query))
;; NOTE 2025-03-29: Maybe we should have a named prompt
;; for this case, but I think we do not need it right now.
(file (completing-read
(format "Select FILE with contents `%s': "
(propertize query 'face 'denote-faces-prompt-current-name))
(denote--completion-table 'file files)
nil t nil 'denote-file-history)))
(denote-link file
(denote-filetype-heuristics buffer-file-name)
(denote-get-link-description file)
id-only)
(user-error "No files include the query `%s' in their contents" query)))
;;;###autoload
(defun denote-link-to-all-files-with-contents (query &optional id-only)
"Link to all files whose contents match QUERY.
This is similar to `denote-add-links', except it searches inside file
contents, not file names. Optional ID-ONLY has the same meaning as in
`denote-link' and `denote-add-links'."
(interactive
(list (denote-query-link-prompt nil "Files whose contents include QUERY")))
(if-let* ((files (denote-retrieve-files-xref-query query)))
(denote-link--insert-links files (denote-filetype-heuristics buffer-file-name) id-only)
(user-error "No files include the query `%s' in their contents" query)))
;;;;; Links from Dired marks
;; NOTE 2022-07-21: I don't think we need a history for this one.