;;; Code:
-(eval-when-compile
- (require 'cl-lib)
- (require 'pcase))
-
(require 'notmuch-lib)
(require 'notmuch-hello)
(error "To use notmuch-jump, %s"
"please customize shortcut keys in notmuch-saved-searches."))))
+(defface notmuch-jump-key
+ '((t :inherit minibuffer-prompt))
+ "Default face used for keys in `notmuch-jump' and related."
+ :group 'notmuch-faces)
+
(defvar notmuch-jump--action nil)
;;;###autoload
(buffer-string)))
(full-prompt
(concat table "\n\n"
- (propertize prompt 'face 'minibuffer-prompt)))
+ (propertize prompt 'face 'notmuch-jump-key)))
;; By default, the minibuffer applies the minibuffer face to
;; the entire prompt. However, we want to clearly
;; distinguish bindings (which we put in the prompt face
;; Format each action
(mapcar (pcase-lambda (`(,key ,desc))
(setq key (format-kbd-macro key))
- (concat (propertize key 'face 'minibuffer-prompt)
+ (concat (propertize key 'face 'notmuch-jump-key)
(make-string (- key-width (length key)) ? )
" " desc))
action-map)))