[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.