[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote 3f770c67d4 1/3: Make denote-directory stand out
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote 3f770c67d4 1/3: Make denote-directory stand out more in denote-file-prompt |
Date: |
Wed, 18 Sep 2024 09:57:50 -0400 (EDT) |
branch: externals/denote
commit 3f770c67d4b833076df9533fd789d461d544f003
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Make denote-directory stand out more in denote-file-prompt
---
denote.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/denote.el b/denote.el
index 8f15fd543a..03e063136d 100644
--- a/denote.el
+++ b/denote.el
@@ -1275,7 +1275,9 @@ With optional NO-REQUIRE-MATCH, accept the given input
as-is.
Return the absolute path to the matching file."
(let* ((relative-files (mapcar
#'denote-get-file-name-relative-to-denote-directory
(denote-directory-files files-matching-regexp
:omit-current)))
- (prompt (format "%s in %s: " (or prompt-text "Select FILE")
(denote-directory)))
+ (prompt (format "%s in %s: "
+ (or prompt-text "Select FILE")
+ (propertize (denote-directory) 'face
'denote-faces-prompt-current-name)))
(input (completing-read
prompt
(denote--completion-table 'file relative-files)