mirror of https://github.com/djcb/mu.git
mu4e-search: allow updating keymap for minor mode
This commit is contained in:
parent
a696902c34
commit
a02ef7bb07
|
@ -583,14 +583,8 @@ query before submitting it."
|
||||||
(mu4e-warn "No query for %s" chosen))))
|
(mu4e-warn "No query for %s" chosen))))
|
||||||
(mu4e-search-bookmark query edit)))
|
(mu4e-search-bookmark query edit)))
|
||||||
|
|
||||||
(define-minor-mode mu4e-search-minor-mode
|
(defvar mu4e-search-minor-mode-map
|
||||||
"Mode for searching for messages."
|
(let ((map (make-sparse-keymap)))
|
||||||
:global nil
|
|
||||||
:init-value nil ;; disabled by default
|
|
||||||
:group 'mu4e
|
|
||||||
:lighter ""
|
|
||||||
:keymap
|
|
||||||
(let ((map (make-sparse-keymap)))
|
|
||||||
(define-key map "s" #'mu4e-search)
|
(define-key map "s" #'mu4e-search)
|
||||||
(define-key map "S" #'mu4e-search-edit)
|
(define-key map "S" #'mu4e-search-edit)
|
||||||
(define-key map "/" #'mu4e-search-narrow)
|
(define-key map "/" #'mu4e-search-narrow)
|
||||||
|
@ -608,7 +602,16 @@ query before submitting it."
|
||||||
(define-key map "c" #'mu4e-search-query)
|
(define-key map "c" #'mu4e-search-query)
|
||||||
|
|
||||||
(define-key map "j" #'mu4e-search-maildir)
|
(define-key map "j" #'mu4e-search-maildir)
|
||||||
map))
|
map)
|
||||||
|
"Keymap for mu4e-search-minor-mode.")
|
||||||
|
|
||||||
|
(define-minor-mode mu4e-search-minor-mode
|
||||||
|
"Mode for searching for messages."
|
||||||
|
:global nil
|
||||||
|
:init-value nil ;; disabled by default
|
||||||
|
:group 'mu4e
|
||||||
|
:lighter ""
|
||||||
|
:keymap mu4e-search-minor-mode-map)
|
||||||
|
|
||||||
(defvar mu4e--search-menu-items
|
(defvar mu4e--search-menu-items
|
||||||
'("--"
|
'("--"
|
||||||
|
|
Loading…
Reference in New Issue