emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Add a menu entry for electric-quote-local-mode

This commit is contained in:
Christophe Troestler 2017-01-06 02:11:34 +01:00
parent 9cb0772993
commit a9cbead5af
1 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
mu4e/mu4e-compose.el
View File

@ -437,16 +437,27 @@ buffers; lets remap its faces so it uses the ones for mu4e."
'(left-curly-arrow right-curly-arrow))
(visual-line-mode t))
(when (lookup-key message-mode-map [menu-bar text])
(define-key-after
(lookup-key message-mode-map [menu-bar text])
[mu4e-hard-newlines]
'(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines
:button (:toggle . use-hard-newlines)
:help "Toggle format=flowed"
:visible (eq major-mode 'mu4e-compose-mode)
:enable mu4e-compose-format-flowed)
'sep))
(let ((keymap (lookup-key message-mode-map [menu-bar text])))
(when keymap
(define-key-after
keymap
[mu4e-hard-newlines]
'(menu-item "Format=flowed" mu4e-toggle-use-hard-newlines
:button (:toggle . use-hard-newlines)
:help "Toggle format=flowed"
:visible (eq major-mode 'mu4e-compose-mode)
:enable mu4e-compose-format-flowed)
'sep)
(define-key-after
keymap
[mu4e-electric-quote-mode]
'(menu-item "Electric quote" electric-quote-local-mode
:button (:toggle . electric-quote-mode)
:help "Toggle Electric quote mode"
:visible (eq major-mode 'mu4e-compose-mode)
:enable (functionp 'electric-quote-local-mode))
'mu4e-hard-newlines)))
(when (lookup-key mml-mode-map [menu-bar Attachments])
(define-key-after