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

Rework denote--only-note-p

Browse source 
A file is a Denote note if it starts with an id and ends with a
supported extension.
This commit is contained in:
Jean-Philippe Gagné Guay 2022-07-07 22:39:38 -04:00
parent 9dbfd371ff
commit 3f51ba3b79
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
denote.el
View file

@ -242,6 +242,9 @@ are described in the doc string of `format-time-string'."
(defconst denote--keywords-regexp "__\\([0-9A-Za-z_-]*\\)"
"Regular expression to match keywords.")
(defconst denote--extension-regexp "\\.\\(org\\|md\\|txt\\)"
"Regular expression to match supported Denote extensions.")
(defconst denote--file-title-regexp
(concat denote--id-regexp "\\(--\\)\\(.*\\)\\(__\\)")
"Regular expression to match file names from `denote'.")
@ -250,10 +253,6 @@ are described in the doc string of `format-time-string'."
(concat denote--file-title-regexp "\\([0-9A-Za-z_-]*\\)\\(\\.?.*\\)")
"Regular expression to match the entire file name'.")
(defconst denote--file-only-note-regexp
(concat denote--file-regexp "\\.\\(org\\|md\\|txt\\)")
"Regular expression to match the entire file name of a note file.")
(defconst denote--punctuation-regexp "[][{}!@#$%^&*()_=+'\"?,.\|;:~`‘’“”/]*"
"Regular expression of punctionation that should be removed.
We consider those characters illigal for our purposes.")
@ -321,10 +320,13 @@ trailing hyphen."
(defun denote--only-note-p (file)
"Make sure FILE is an actual Denote note.
FILE is relative to the variable `denote-directory'."
(and (not (file-directory-p file))
(file-regular-p file)
(string-match-p denote--file-only-note-regexp file)
(not (string-match-p "[#~]\\'" file))))
(let ((file-name (file-name-nondirectory file)))
(and (not (file-directory-p file))
(file-regular-p file)
(string-match-p (concat "\\`" denote--id-regexp
".*" denote--extension-regexp "\\'")
file-name)
(not (string-match-p "[#~]\\'" file)))))
(defun denote--file-name-relative-to-denote-directory (file)
"Return file name of FILE relative to the variable `denote-directory'.