[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 29b6ec1aad 5/5: Add desluggify in denote--retrie
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 29b6ec1aad 5/5: Add desluggify in denote--retrieve-filename-title |
Date: |
Mon, 15 Aug 2022 06:57:29 -0400 (EDT) |
branch: externals/denote
commit 29b6ec1aadaac23b703c02e17f5cd9f110953790
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add desluggify in denote--retrieve-filename-title
Builds on commit fe348c5.
This is based on the idea of Peter Prevos from commit 0ac3680. Peter
sent the code on the GitHub mirror, as pull request 93:
<https://github.com/protesilaos/denote/pull/93>.
---
denote.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/denote.el b/denote.el
index a54b313e22..cb21a48f00 100644
--- a/denote.el
+++ b/denote.el
@@ -799,10 +799,10 @@ contain the newline."
"Extract title from FILE name, else return `file-name-base'"
(if (and (file-exists-p file)
(denote--file-has-identifier-p file))
- (let ((file-title (progn
- (string-match denote--title-regexp file)
- (match-string 1 file))))
- (capitalize (replace-regexp-in-string "-" " " file-title)))
+ (denote--desluggify
+ (progn
+ (string-match denote--title-regexp file)
+ (match-string 1 file)))
(file-name-base file)))
(defun denote--retrieve-title-value (file file-type)