[elpa] externals/denote 5b0eee109d 2/7: Add user option 'denote-sluggify-signature-in-frontmatter'

[ELPA Syncer]

branch: externals/denote
commit 5b0eee109da5b5c1f7083c937dc3674f34eef8b6
Author: Hanwen Guo <g...@hanwen.io>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Add user option 'denote-sluggify-signature-in-frontmatter'
    
    This user option controls whether signature should be sluggified or keep the
    user input as-is in frontmatter (not filename), as some users may prefer.
---
 denote.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 8497dce0fa..d2868f2a2c 100644
--- a/denote.el
+++ b/denote.el
@@ -496,6 +496,17 @@ and/or when the user invokes the command `denote-date'."
   :package-version '(denote . "0.6.0")
   :type 'boolean)
 
+(defcustom denote-sluggify-signature-in-frontmatter t
+  "Control whether signature should be sluggified in frontmatter.
+
+When non-nil, the signature in frontmatter would be sluggified.
+Otherwise, the signature in frontmatter keeps the same as user input.
+
+The default value is t."
+  :group 'denote
+  :package-version '(denote . "4.1.0")
+  :type 'boolean)
+
 (defcustom denote-org-store-link-to-heading nil
   "Determine whether `org-store-link' links to the current Org heading.
 
@@ -2283,7 +2294,10 @@ is a list of strings.  FILETYPE is one of the values of 
variable
          (date-string (denote--format-front-matter-date date filetype))
          (keywords-string (if keywords-value-function (funcall 
keywords-value-function (denote-sluggify-keywords keywords)) ""))
          (id-string (if id-value-function (funcall id-value-function id) ""))
-         (signature-string (if signature-value-function (funcall 
signature-value-function (denote-sluggify-signature signature)) ""))
+         (signature-string (if signature-value-function (funcall 
signature-value-function
+                                                                 (if 
denote-sluggify-signature-in-frontmatter
+                                                                     
(denote-sluggify-signature signature)
+                                                                   signature)) 
""))
          (new-front-matter (if fm (format fm title-string date-string 
keywords-string id-string signature-string) "")))
     ;; Remove lines with empty values if the corresponding component
     ;; is not in `denote-front-matter-components-present-even-if-empty-value'.