[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote f3b09f95c2: Re-indent form
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote f3b09f95c2: Re-indent form |
Date: |
Sat, 6 Aug 2022 14:57:29 -0400 (EDT) |
branch: externals/denote
commit f3b09f95c25644294eac0943f83c24f443058bb8
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Re-indent form
---
denote.el | 36 ++++++++++++++++++------------------
1 file changed, 18 insertions(+), 18 deletions(-)
diff --git a/denote.el b/denote.el
index 36c75522b8..54ffb026ab 100644
--- a/denote.el
+++ b/denote.el
@@ -1175,24 +1175,24 @@ appropriate."
(new-title title)
(new-keywords (denote--format-front-matter-keywords
keywords (denote--filetype-heuristics file))))
- (with-current-buffer (find-file-noselect file)
- (when (y-or-n-p (format
- "Replace front matter?\n-%s\n+%s\n\n-%s\n+%s?"
- (propertize old-title 'face 'error)
- (propertize new-title 'face 'success)
- (propertize old-keywords 'face 'error)
- (propertize new-keywords 'face 'success)))
- (save-excursion
- (save-restriction
- (widen)
- (goto-char (point-min))
- (re-search-forward
denote--retrieve-title-front-matter-key-regexp nil t 1)
- (search-forward old-title nil t 1)
- (replace-match (concat "\\1" new-title) t)
- (goto-char (point-min))
- (re-search-forward
denote--retrieve-keywords-front-matter-key-regexp nil t 1)
- (search-forward old-keywords nil t 1)
- (replace-match (concat "\\1" new-keywords) t)))))))
+ (with-current-buffer (find-file-noselect file)
+ (when (y-or-n-p (format
+ "Replace front matter?\n-%s\n+%s\n\n-%s\n+%s?"
+ (propertize old-title 'face 'error)
+ (propertize new-title 'face 'success)
+ (propertize old-keywords 'face 'error)
+ (propertize new-keywords 'face 'success)))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (re-search-forward denote--retrieve-title-front-matter-key-regexp
nil t 1)
+ (search-forward old-title nil t 1)
+ (replace-match (concat "\\1" new-title) t)
+ (goto-char (point-min))
+ (re-search-forward
denote--retrieve-keywords-front-matter-key-regexp nil t 1)
+ (search-forward old-keywords nil t 1)
+ (replace-match (concat "\\1" new-keywords) t)))))))
(make-obsolete 'denote-dired-rename-expert nil "0.5.0")
(make-obsolete 'denote-dired-post-rename-functions nil "0.4.0")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/denote f3b09f95c2: Re-indent form,
ELPA Syncer <=