branch: externals/denote commit 8a353820670f4cb16290f15785448e83021093bf Author: Protesilaos Stavrou <i...@protesilaos.com> Commit: Protesilaos Stavrou <i...@protesilaos.com>
Rename internal variable for clarity --- denote-dired.el | 2 +- denote-link.el | 2 +- denote.el | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/denote-dired.el b/denote-dired.el index fa104d5547..8559510e39 100644 --- a/denote-dired.el +++ b/denote-dired.el @@ -152,7 +152,7 @@ renaming attachments that the user adds to their notes." :group 'denote-dired) (defconst denote-dired-font-lock-keywords - `((,denote--keyword-regexp + `((,denote--file-regexp (1 'denote-dired-dired-field-date) (2 'denote-dired-dired-field-time) (3 'denote-dired-dired-field-delimiter) diff --git a/denote-link.el b/denote-link.el index 85f8d13fa1..2d3d95fc69 100644 --- a/denote-link.el +++ b/denote-link.el @@ -193,7 +193,7 @@ PROOF-OF-CONCEPT." (point))) (save-excursion (goto-char (point-min)) - (while (re-search-forward (format "%s" denote--keyword-regexp) (point-max) t) + (while (re-search-forward (format "%s" denote--file-regexp) (point-max) t) (make-button (match-beginning 0) (match-end 0) :type 'denote-link-find-file))) (denote-dired-mode 1))) diff --git a/denote.el b/denote.el index 19c8fe33ff..a5d5822bd0 100644 --- a/denote.el +++ b/denote.el @@ -169,7 +169,7 @@ is suspended: we use whatever the user wants." (concat denote--id-regexp "\\(--\\)\\(.*\\)\\(__\\)") "Regular expression to match file names from `denote'.") -(defconst denote--keyword-regexp +(defconst denote--file-regexp (concat denote--file-title-regexp "\\([0-9A-Za-z_-]*\\)\\(\\.?.*\\)") "Regular expression to match `denote-keywords'.") @@ -268,7 +268,7 @@ With optional N, search in the Nth line from point." "Produce list of keywords in `denote--directory-files'." (delq nil (mapcar (lambda (x) - (denote--extract denote--keyword-regexp x 6)) + (denote--extract denote--file-regexp x 6)) (denote--directory-files)))) (defun denote--inferred-keywords ()