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

Fix false positives in fontification regexp

Browse source 
Discussion on the GitHub mirror starts after this point:
<https://github.com/protesilaos/denote/pull/38#issuecomment-1178547317>.

Co-authored-by: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
This commit is contained in:
Protesilaos Stavrou 2022-07-08 10:06:30 +03:00
parent 29a5a2d966
commit f13fdd439c
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 14 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
denote-faces.el
View file

@ -82,20 +82,22 @@ and seconds."
"Face for file name delimiters in Dired buffers."
:group 'denote-faces)
(defvar denote-faces--file-name-regexp
(concat "\\([0-9]\\{8\\}\\)\\(T[0-9]\\{6\\}\\)"
"\\(--\\)?\\([0-9A-Za-z-]*\\)?"
"\\(__\\)?\\([0-9A-Za-z_-]*\\)?"
"\\(\\..*\\)?")
"Regexp of file names for fontification.")
(defconst denote-faces-file-name-keywords
`((,denote--id-regexp
`((,denote-faces--file-name-regexp
(1 'denote-faces-date)
(2 'denote-faces-time))
(,denote--title-regexp
(1 'denote-faces-title))
(,denote--keywords-regexp
(1 'denote-faces-keywords))
("\\..*" ; here we do not need `denote--extension-regexp'
(0 'denote-faces-extension))
("--"
(0 'denote-faces-delimiter))
("_"
(0 'denote-faces-delimiter)))
(2 'denote-faces-time)
(3 'denote-faces-delimiter nil t)
(4 'denote-faces-title nil t)
(5 'denote-faces-delimiter nil t)
(6 'denote-faces-keywords nil t)
(7 'denote-faces-extension nil t )))
"Keywords for fontification of file names.")
(defconst denote-faces-file-name-with-subdir-keywords