ENH use pandoc instead of html2text for mu4e compose hook

This commit is contained in:
Nathan Dwarshuis 2019-09-23 14:04:54 -04:00
parent 44db205168
commit 710356ec06
1 changed files with 5 additions and 2 deletions

View File

@ -3097,8 +3097,11 @@ Since mu4e is an external program, need to check that it is installed before loa
(html (and msg (plist-get msg :body-html))) (html (and msg (plist-get msg :body-html)))
;; oops, mu4e screwed up ;; oops, mu4e screwed up
(mu4e-html2text-command (mu4e-html2text-command
(if (executable-find "html2text") (if (executable-find "pandoc")
"html2text --ignore-emphasis --images-to-alt --body-width=0" ;; use printf here to insert a newline in front of pandoc's output
;; note that for some reason there needs to be a space in front
;; of the newline or else it is stripped
"printf \" \\n%s\" \"$(pandoc -f html -t plain --reference-links)\""
'mu4e-shr2text))) 'mu4e-shr2text)))
(when (and html mu4e-view-prefer-html (member compose-type '(reply forward))) (when (and html mu4e-view-prefer-html (member compose-type '(reply forward)))
;; hackity hack, since the normal mu4e-message-body-text function ;; hackity hack, since the normal mu4e-message-body-text function