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

Add history to denote-link-add-links command

Browse source
This commit is contained in:
Protesilaos Stavrou 2022-06-15 18:05:53 +03:00
parent e37e429844
commit b64cc491bc
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
denote-link.el
View file

@ -257,6 +257,9 @@ default, it will show up below the current window."
(max (point-max)))
(buffer-substring-no-properties min max)))))
(defvar denote-link--add-links-history nil
"Minibuffer history for `denote-link-add-links'.")
;;;###autoload
(defun denote-link-add-links (regexp)
"Insert links to all notes matching REGEXP.
@ -264,14 +267,13 @@ Use this command to reference multiple files at once.
Particularly useful for the creation of metanotes (read the
manual for more on the matter)."
(interactive
(list (read-regexp "Insert links matching REGEX: ")))
(list (read-regexp "Insert links matching REGEX: " nil 'denote-link--add-links-history)))
(let* ((default-directory (denote-directory))
(ext (denote-link--file-type-format (buffer-file-name))))
(if-let ((files (denote--directory-files-matching-regexp regexp)))
(insert (denote-link--prepare-links files ext))
(user-error "No links matching `%s'" regexp))))
;;;; Register `denote:' custom Org hyperlink
(declare-function org-link-set-parameters "ol.el" (type &rest parameters))