branch: externals/frog-menu
commit 65966272d90ef8effcf8b9eb180a7833a4edc78c
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Add prompt face
---
frog-menu.el | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/frog-menu.el b/frog-menu.el
index caf732e..c117fc1 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -183,6 +183,10 @@ be drawn by single characters."
(((background light)) . (:background "black")))
"The face defining the border for the posframe.")
+(defface frog-menu-prompt-face
+ '((t (:inherit default)))
+ "Face used for menu promp")
+
(defface frog-menu-candidates-face
'((t (:inherit default)))
"Face used for menu candidates.")
@@ -230,7 +234,13 @@ ACTIONS."
(when formatted-strings
(insert formatted-strings)
(insert "\n\n"))
- (insert prompt "\n")
+ (add-text-properties
+ (point)
+ (progn
+ (insert prompt)
+ (point))
+ '(face frog-menu-prompt-face))
+ (insert "\n")
(insert formatted-actions)
(when formatted-strings
;; padding for avy char
