[elpa] externals/denote e7de7baaa4 13/14: Merge pull request #40 from jeanphilippegg/file-name-permutations

[ELPA Syncer]

branch: externals/denote
commit e7de7baaa477d494fbcb34afdec29e86408fa595
Merge: f1e08702e5 3f2e0788a9
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #40 from jeanphilippegg/file-name-permutations
    
    Adjust fontification
---
 denote-faces.el | 20 +++++++++++++-------
 denote-link.el  |  2 +-
 2 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/denote-faces.el b/denote-faces.el
index 265d5c82c2..ad37cd1a65 100644
--- a/denote-faces.el
+++ b/denote-faces.el
@@ -86,11 +86,11 @@ and seconds."
   (concat "\\(?1:[0-9]\\{8\\}\\)\\(?2:T[0-9]\\{6\\}\\)"
           "\\(?:\\(?3:--\\)\\(?4:[0-9A-Za-z-]*\\)\\)?"
           "\\(?:\\(?5:__\\)\\(?6:[0-9A-Za-z_-]*\\)\\)?"
-          "\\(?7:\\..*\\)?")
+          "\\(?7:\\..*\\)?$")
   "Regexp of file names for fontification.")
 
 (defconst denote-faces-file-name-keywords
-  `((,denote-faces--file-name-regexp
+  `((,(concat " " denote-faces--file-name-regexp)
      (1 'denote-faces-date)
      (2 'denote-faces-time)
      (3 'denote-faces-delimiter nil t)
@@ -100,11 +100,17 @@ and seconds."
      (7 'denote-faces-extension nil t )))
   "Keywords for fontification of file names.")
 
-(defconst denote-faces-file-name-with-subdir-keywords
-  (append denote-faces-file-name-keywords
-          '(("\\(^.*/\\)?"
-             (0 'denote-faces-subdirectory))))
-  "Keywords for fontification of file names with a directory.")
+(defconst denote-faces-file-name-keywords-for-backlinks
+  `((,(concat "^\\(?8:.*/\\)?" denote-faces--file-name-regexp)
+     (8 'denote-faces-subdirectory nil t)
+     (1 'denote-faces-date)
+     (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 in the backlinks buffer.")
 
 (provide 'denote-faces)
 ;;; denote-faces.el ends here
diff --git a/denote-link.el b/denote-link.el
index 21f87f58de..2851d3cc7f 100644
--- a/denote-link.el
+++ b/denote-link.el
@@ -405,7 +405,7 @@ Use optional TITLE for a prettier heading."
             files)
       (goto-char (point-min))
       (when denote-link-fontify-backlinks
-        (font-lock-add-keywords nil 
denote-faces-file-name-with-subdir-keywords t)))
+        (font-lock-add-keywords nil 
denote-faces-file-name-keywords-for-backlinks t)))
     (denote-link--display-buffer buf)))
 
 ;;;###autoload