branch: externals/denote-menu
commit dca339b9041805b9eb8b9a91f3a8e89682df1a05
Author: Mohamed Suliman <sulim...@tcd.ie>
Commit: Mohamed Suliman <sulim...@tcd.ie>
give denote-menu buffers better names
Now denote-menu buffers follow the format of "*Denote*
<denote-directory>".
---
denote-menu.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/denote-menu.el b/denote-menu.el
index 8c9ddbad84..b3f13e7f85 100644
--- a/denote-menu.el
+++ b/denote-menu.el
@@ -93,15 +93,16 @@ denote file corresponding to the button."
"Display list of Denote files in variable `denote-directory'."
(interactive)
;; kill any existing *Denote* buffer
- (when (get-buffer "*Denote*")
- (kill-buffer "*Denote*"))
- (let ((buffer (get-buffer-create "*Denote*")))
- (with-current-buffer buffer
- (setq buffer-file-coding-system 'utf-8)
- (setq denote-menu-current-regex denote-menu-initial-regex)
- (denote-menu-mode))
+ (let ((denote-menu-buffer-name (format "*Denote %s*" denote-directory)))
+ (when (get-buffer denote-menu-buffer-name)
+ (kill-buffer "*Denote*"))
+ (let ((buffer (get-buffer-create denote-menu-buffer-name)))
+ (with-current-buffer buffer
+ (setq buffer-file-coding-system 'utf-8)
+ (setq denote-menu-current-regex denote-menu-initial-regex)
+ (denote-menu-mode))
- (pop-to-buffer-same-window buffer)))
+ (pop-to-buffer-same-window buffer))))
(defalias 'list-denotes 'denote-menu-list-notes
"Alias of `denote-menu-list-notes' command.")
