[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline 892a815cc9 21/26: Added view as html butt
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-modeline 892a815cc9 21/26: Added view as html button for mu4e |
Date: |
Fri, 2 Jun 2023 03:59:08 -0400 (EDT) |
branch: externals/nano-modeline
commit 892a815cc991b08a6fa17b743ccd10c449fa10b6
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Added view as html button for mu4e
---
nano-modeline.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index fd2518b0bc..1abfd53724 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -550,14 +550,19 @@ needs to be active and tooltip delay needs to be set to 0"
(name (if context (mu4e-context-name context) "NONE")))
(upcase name)))
-(defun nano-mu4e-message-from ()
+(defun nano-modeline-mu4e-message-from ()
"Mu4e current message sender"
(with-current-buffer "*mu4e-headers*"
(let ((msg (mu4e-message-at-point)))
(mu4e~headers-contact-str (mu4e-message-field msg :from)))))
-
+(defun nano-modeline-mu4e-view-in-xwidget ()
+ (interactive)
+ (with-current-buffer "*mu4e-headers*"
+ (let ((msg (mu4e-message-at-point)))
+ (mu4e-action-view-in-xwidget msg))))
+
(defun nano-modeline-mu4e-context-next ()
"Switch to next mu4e context"
@@ -800,20 +805,20 @@ needs to be active and tooltip delay needs to be set to 0"
`((nano-modeline-buttons ,buttons t) " "
(nano-modeline-window-dedicated)))))
-(defun nano-mu4e-message-mode ()
+(defun nano-modeline-mu4e-message-mode ()
"Nano line for mu4e message mode with several buttons for most
common action"
(let ((buttons '(("archive:bootstrap" . (mu4e-view-mark-for-refile .
"Archive message"))
("trash:bootstrap" . (mu4e-view-mark-for-trash . "Delete
message"))
- ("envelope-at:bootstrap". (mu4e-compose-new . "Compose new
message"))
+ ("file-richtext:bootstrap".
(nano-modeline-mu4e-view-in-xwidget . "View message as HTML"))
("folder:bootstrap". (mu4e-headers-mark-for-move . "Move
message"))
("tag:bootstrap". (mu4e-headers-mark-for-tag . "Tag
message"))
("reply:bootstrap". (mu4e-compose-reply . "Reply to
message"))
("forward:bootstrap". (mu4e-compose-forward . "Forward
message")))))
(funcall nano-modeline-position
`((nano-modeline-buffer-status "FROM") " "
- (nano-modeline-buffer-name ,(nano-mu4e-message-from)))
+ (nano-modeline-buffer-name ,(nano-modeline-mu4e-message-from)))
`((nano-modeline-buttons ,buttons t) " "
(nano-modeline-window-dedicated)))))
- [elpa] externals/nano-modeline 4e5be76d98 17/26: Message compose mode with buttons, (continued)
- [elpa] externals/nano-modeline 4e5be76d98 17/26: Message compose mode with buttons, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline e3a04505ff 05/26: Optional symbols, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 8304ce072f 06/26: Simplification of faces, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 67ad139060 15/26: Org capture mode with buttons, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 1fc418a2f5 19/26: Added buttons to all mu4e modes, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 3773403dbe 20/26: Added help message for buttons, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline cba074e55c 23/26: Tagged version 1.0, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 8a609b63c3 24/26: Removed old screenshots, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 60f1862b08 25/26: Typos, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline aba353af56 11/26: Added elpher mode, ELPA Syncer, 2023/06/02
- [elpa] externals/nano-modeline 892a815cc9 21/26: Added view as html button for mu4e,
ELPA Syncer <=