emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 522896fe8c 1/2: Make renaming remove title if em


From: ELPA Syncer
Subject: [elpa] externals/denote 522896fe8c 1/2: Make renaming remove title if empty
Date: Wed, 12 Oct 2022 01:57:29 -0400 (EDT)

branch: externals/denote
commit 522896fe8c42a7109602b40ad43ce6c4782e52a3
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make renaming remove title if empty
    
    This is the same idea as with commit 63a2b21.  NEEDS THOROUGH TESTING.
---
 denote.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/denote.el b/denote.el
index 7776e12e75..b2e4500b1a 100644
--- a/denote.el
+++ b/denote.el
@@ -791,8 +791,10 @@ This can be used in `denote-file-types' to format front 
mattter."
 (defun denote-trim-whitespace (s)
   "Trim whitespace around string S.
 This can be used in `denote-file-types' to format front mattter."
-  (let ((trims "[ \t\n\r]+"))
-    (string-trim s trims trims)))
+  (if (string-blank-p s)
+      ""
+    (let ((trims "[ \t\n\r]+"))
+      (string-trim s trims trims))))
 
 (defun denote--trim-quotes (s)
   "Trim quotes around string S."
@@ -802,7 +804,9 @@ This can be used in `denote-file-types' to format front 
mattter."
 (defun denote-trim-whitespace-then-quotes (s)
   "Trim whitespace then quotes around string S.
 This can be used in `denote-file-types' to format front mattter."
-  (denote--trim-quotes (denote-trim-whitespace s)))
+  (if (string-blank-p s)
+      ""
+    (denote--trim-quotes (denote-trim-whitespace s))))
 
 (defun denote-format-keywords-for-md-front-matter (keywords)
   "Format front matter KEYWORDS for markdown file type.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]