alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e: improve mu4e-action-view-in-browser

Browse Source
This commit is contained in:
djcb
2012-08-30 12:54:26 +03:00
parent adc23614a1
commit 90290a132c
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
mu4e/mu4e-actions.el
View File

@ -75,21 +75,24 @@ view."
(defun mu4e-action-view-in-browser (msg) (defun mu4e-action-view-in-browser (msg)
"View the body of the message in a web browser. You can influence "View the body of the message in a web browser. You can influence
the browser to use with the variable `browse-url-generic-program'." the browser to use with the variable `browse-url-generic-program'."
(let ((html (mu4e-msg-field msg :body-html)) (let* ((html (mu4e-msg-field msg :body-htm ))
(txt (mu4e-msg-field msg :body-txt))
(tmpfile (format "%s/%d.html" temporary-file-directory (random)))) (tmpfile (format "%s/%d.html" temporary-file-directory (random))))
(unless html (mu4e-error "No html part for this message")) (unless (or html txt)
(with-temp-file tmpfile (mu4e-error "No body part for this message"))
(insert html) (with-temp-buffer
(save-buffer) ;; this is simplistic -- but note that it's only an example
(url-view-url (concat "file:///" tmpfile))))) (insert (or html (concat "<pre>" txt "</pre>")))
(when (write-file tmpfile)
(url-view-url (concat "file:///" tmpfile))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst mu4e-text2speech-command "festival --tts" (defconst mu4e-text2speech-command "festival --tts"
"Program that speaks out text it receives on standard-input.") "Program that speaks out text it receives on standard-input.")
(defun mu4e-action-message-to-speech (msg) (defun mu4e-action-message-to-speech (msg)
"Pronounce the message text using `mu4e-text2speech-command'." "Pronounce the message text using `mu4e-text2speech-command'."