[elpa] externals/nano-modeline 4e5be76d98 17/26: Message compose mode with buttons

[ELPA Syncer]

branch: externals/nano-modeline
commit 4e5be76d981b614d42b40d6c89f3e3683a43b415
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Message compose mode with buttons
---
 nano-modeline.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/nano-modeline.el b/nano-modeline.el
index 229c7ea5e2..d2612a794d 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -761,6 +761,20 @@ made DEFAULT."
            '((nano-modeline-mu4e-message-date)
              (nano-modeline-window-dedicated))))
 
+(defun nano-modeline-mu4e-compose-mode ()
+  "Nano line for mu4e compose mode"
+
+  (let ((buttons '(("download:bootstrap" . save-buffer)
+                   ("paperclip:bootstrap" . mml-attach-file)
+                   ("lock:bootstrap" . mml-secure-message-encrypt)
+                   ("check:bootstrap" . mml-secure-message-sign)
+                   ("send:bootstrap" . message-send-and-exit))))
+    (funcall nano-modeline-position
+             `((nano-modeline-buffer-status "DRAFT") " "
+               (nano-modeline-buffer-name "Message"))
+             `((nano-modeline-buttons ,buttons t) " "
+               (nano-modeline-window-dedicated)))))
+
 (defun nano-modeline-elfeed-entry-mode ()
   "Nano line for elfeed entry mode"