[elpa] externals/denote-menu dca339b904 2/2: give denote-menu buffers better names

[ELPA Syncer]

branch: externals/denote-menu
commit dca339b9041805b9eb8b9a91f3a8e89682df1a05
Author: Mohamed Suliman <sulimanm@tcd.ie>
Commit: Mohamed Suliman <sulimanm@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.")