[elpa] externals/denote e11a468873 28/32: Merge pull request #225 from jeanphilippegg/file-name-rules

[ELPA Syncer]

branch: externals/denote
commit e11a468873d015ffe6360441b027df7fd4749992
Merge: cfd8961ac4 6a1e7a11d1
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #225 from jeanphilippegg/file-name-rules
    
    Enforce other rules in the file name
---
 denote.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index e8b140ade2..71a8fbf306 100644
--- a/denote.el
+++ b/denote.el
@@ -718,6 +718,14 @@ leading and trailing hyphen."
     "-\\{2,\\}" "-"
     (replace-regexp-in-string "_\\|\s+" "-" str))))
 
+(defun denote--remove-dot-characters (str)
+  "Remove the dot character from STR."
+  (replace-regexp-in-string "\\." "" str))
+
+(defun denote--trim-right-token-characters (str)
+  "Remove =, - and _ from the end of STR."
+  (string-trim-right str "=-_"))
+
 (defun denote--replace-consecutive-token-characters (str)
   "Replace consecutive characters with a single one in STR.
 Spaces, underscores and equal signs are replaced with a single
@@ -747,7 +755,9 @@ used as the keywords separator in file names."
                            (funcall (or slug-function 
#'denote-sluggify-keyword) str)))
                          ((eq component 'signature)
                           (funcall (or slug-function 
#'denote-sluggify-signature) str)))))
-    (denote--replace-consecutive-token-characters str-slug)))
+    (denote--trim-right-token-characters
+     (denote--replace-consecutive-token-characters
+      (denote--remove-dot-characters str-slug)))))
 
 (make-obsolete
  'denote-letter-case