2020-02-11 12:20:35 +01:00
|
|
|
|
;;; org-mu4e -- support for links to mu4e messages and writing org-mode messages -*- lexical-binding: t -*-
|
2020-02-11 12:23:40 +01:00
|
|
|
|
|
2019-05-26 17:50:14 +02:00
|
|
|
|
;; Copyright (C) 2012-2019 Dirk-Jan C. Binnema
|
2012-01-06 11:31:28 +01:00
|
|
|
|
|
|
|
|
|
;; Author: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
|
|
|
|
|
;; Maintainer: Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
|
|
|
|
|
;; Keywords: outlines, hypermedia, calendar, mail
|
|
|
|
|
;; Version: 0.0
|
|
|
|
|
|
|
|
|
|
;; This file is not part of GNU Emacs.
|
2020-02-11 12:23:40 +01:00
|
|
|
|
|
2021-05-29 23:36:13 +02:00
|
|
|
|
;; mu4e is free software: you can redistribute it and/or modify
|
2012-01-06 11:31:28 +01:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2014-12-11 07:57:54 +01:00
|
|
|
|
;; the Free Software Foundation, either version 3 of 1the License, or
|
2012-01-06 11:31:28 +01:00
|
|
|
|
;; (at your option) any later version.
|
|
|
|
|
|
2021-05-29 23:36:13 +02:00
|
|
|
|
;; mu4e is distributed in the hope that it will be useful,
|
2012-01-06 11:31:28 +01:00
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2021-05-29 23:36:13 +02:00
|
|
|
|
;; along with mu4e. If not, see <http://www.gnu.org/licenses/>.
|
2012-01-06 11:31:28 +01:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
2021-03-04 21:00:41 +01:00
|
|
|
|
;; OBSOLETE, UNSUPPORTED.
|
|
|
|
|
|
2020-02-11 12:20:35 +01:00
|
|
|
|
;; Support for links to mu4e messages/queries from within org-mode,
|
|
|
|
|
;; and for writing message in org-mode, sending them as rich-text.
|
|
|
|
|
|
2020-02-11 15:10:35 +01:00
|
|
|
|
;; At least version 8.x of Org mode is required.
|
|
|
|
|
|
2012-01-06 11:31:28 +01:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
2018-08-18 07:57:18 +02:00
|
|
|
|
(require 'org)
|
2019-12-01 13:24:03 +01:00
|
|
|
|
(require 'mu4e-compose)
|
2012-01-06 11:31:28 +01:00
|
|
|
|
|
2019-05-26 17:50:14 +02:00
|
|
|
|
(declare-function mu4e-last-query "mu4e-headers")
|
|
|
|
|
(declare-function mu4e-message-at-point "mu4e-message")
|
|
|
|
|
(declare-function mu4e-view-message-with-message-id "mu4e-view")
|
|
|
|
|
(declare-function mu4e-headers-search "mu4e-headers")
|
2021-08-31 21:24:02 +02:00
|
|
|
|
(declare-function mu4e-error "mu4e-helpers")
|
2019-05-26 17:50:14 +02:00
|
|
|
|
(declare-function mu4e-message "mu4e-message")
|
|
|
|
|
(declare-function mu4e-compose-mode "mu4e-compose")
|
|
|
|
|
|
2012-05-23 16:04:26 +02:00
|
|
|
|
|
2020-02-11 15:10:35 +01:00
|
|
|
|
;;; Editing with org-mode
|
|
|
|
|
;;
|
2012-05-23 16:04:26 +02:00
|
|
|
|
;; below, some functions for the org->html conversion
|
|
|
|
|
;; based on / inspired by Eric Schulte's org-mime.el
|
|
|
|
|
;; Homepage: http://orgmode.org/worg/org-contrib/org-mime.php
|
2012-08-01 19:52:53 +02:00
|
|
|
|
;;
|
|
|
|
|
;; EXPERIMENTAL
|
2020-02-11 15:10:35 +01:00
|
|
|
|
|
2019-12-01 13:24:03 +01:00
|
|
|
|
(defvar org-export-skip-text-before-1st-heading)
|
|
|
|
|
(defvar org-export-htmlize-output-type)
|
|
|
|
|
(defvar org-export-preserve-breaks)
|
|
|
|
|
(defvar org-export-with-LaTeX-fragments)
|
|
|
|
|
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(defun org~mu4e-mime-file (ext path id)
|
2019-05-26 17:50:14 +02:00
|
|
|
|
"Create a file of type EXT at PATH with ID for an attachment."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(format (concat "<#part type=\"%s\" filename=\"%s\" "
|
2020-02-11 12:00:46 +01:00
|
|
|
|
"disposition=inline id=\"<%s>\">\n<#/part>\n")
|
|
|
|
|
ext path id))
|
2012-05-25 15:51:23 +02:00
|
|
|
|
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(defun org~mu4e-mime-multipart (plain html &optional images)
|
2019-05-26 17:50:14 +02:00
|
|
|
|
"Create a multipart/alternative with PLAIN and HTML alternatives.
|
|
|
|
|
If the html portion of the message includes IMAGES, wrap the html
|
2012-05-23 16:04:26 +02:00
|
|
|
|
and images in a multipart/related part."
|
|
|
|
|
(concat "<#multipart type=alternative><#part type=text/plain>"
|
2020-02-11 12:00:46 +01:00
|
|
|
|
plain
|
|
|
|
|
(when images "<#multipart type=related>")
|
|
|
|
|
"<#part type=text/html>"
|
|
|
|
|
html
|
|
|
|
|
images
|
|
|
|
|
(when images "<#/multipart>\n")
|
|
|
|
|
"<#/multipart>\n"))
|
2012-05-25 15:51:23 +02:00
|
|
|
|
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(defun org~mu4e-mime-replace-images (str current-file)
|
2019-05-26 17:50:14 +02:00
|
|
|
|
"Replace images in html files STR in CURRENT-FILE with cid links."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(let (html-images)
|
|
|
|
|
(cons
|
|
|
|
|
(replace-regexp-in-string ;; replace images in html
|
|
|
|
|
"src=\"\\([^\"]+\\)\""
|
|
|
|
|
(lambda (text)
|
|
|
|
|
(format
|
|
|
|
|
"src=\"cid:%s\""
|
|
|
|
|
(let* ((url (and (string-match "src=\"\\([^\"]+\\)\"" text)
|
|
|
|
|
(match-string 1 text)))
|
|
|
|
|
(path (expand-file-name
|
|
|
|
|
url (file-name-directory current-file)))
|
|
|
|
|
(ext (file-name-extension path))
|
|
|
|
|
(id (replace-regexp-in-string "[\/\\\\]" "_" path)))
|
2019-08-19 12:41:33 +02:00
|
|
|
|
(cl-pushnew (org~mu4e-mime-file
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(concat "image/" ext) path id)
|
2019-08-19 12:41:33 +02:00
|
|
|
|
html-images
|
|
|
|
|
:test 'equal)
|
2012-05-23 16:04:26 +02:00
|
|
|
|
id)))
|
|
|
|
|
str)
|
|
|
|
|
html-images)))
|
|
|
|
|
|
|
|
|
|
(defun org~mu4e-mime-convert-to-html ()
|
|
|
|
|
"Convert the current body to html."
|
2014-10-03 03:40:33 +02:00
|
|
|
|
(unless (fboundp 'org-export-string-as)
|
2019-05-26 17:50:14 +02:00
|
|
|
|
(mu4e-error "Required function 'org-export-string-as not found"))
|
2012-09-24 16:05:14 +02:00
|
|
|
|
(let* ((begin
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(search-forward mail-header-separator)))
|
|
|
|
|
(end (point-max))
|
|
|
|
|
(raw-body (buffer-substring begin end))
|
|
|
|
|
(tmp-file (make-temp-name (expand-file-name "mail"
|
|
|
|
|
temporary-file-directory)))
|
|
|
|
|
;; because we probably don't want to skip part of our mail
|
|
|
|
|
(org-export-skip-text-before-1st-heading nil)
|
|
|
|
|
;; because we probably don't want to export a huge style file
|
|
|
|
|
(org-export-htmlize-output-type 'inline-css)
|
|
|
|
|
;; makes the replies with ">"s look nicer
|
|
|
|
|
(org-export-preserve-breaks t)
|
|
|
|
|
;; dvipng for inline latex because MathJax doesn't work in mail
|
|
|
|
|
(org-export-with-LaTeX-fragments
|
|
|
|
|
(if (executable-find "dvipng") 'dvipng
|
|
|
|
|
(mu4e-message "Cannot find dvipng, ignore inline LaTeX") nil))
|
|
|
|
|
;; to hold attachments for inline html images
|
|
|
|
|
(html-and-images
|
|
|
|
|
(org~mu4e-mime-replace-images
|
|
|
|
|
(org-export-string-as raw-body 'html t)
|
|
|
|
|
tmp-file))
|
|
|
|
|
(html-images (cdr html-and-images))
|
|
|
|
|
(html (car html-and-images)))
|
|
|
|
|
(delete-region begin end)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char begin)
|
|
|
|
|
(newline)
|
|
|
|
|
(insert (org~mu4e-mime-multipart
|
|
|
|
|
raw-body html (mapconcat 'identity html-images "\n"))))))
|
2012-05-23 16:04:26 +02:00
|
|
|
|
|
|
|
|
|
;; next some functions to make the org/mu4e-compose-mode switch as smooth as
|
|
|
|
|
;; possible.
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(defun org~mu4e-mime-decorate-headers ()
|
|
|
|
|
"Make the headers visually distinctive (org-mode)."
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(let* ((eoh (when (search-forward mail-header-separator)
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(match-end 0)))
|
|
|
|
|
(olay (make-overlay (point-min) eoh)))
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(when olay
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(overlay-put olay 'face 'font-lock-comment-face)))))
|
2012-05-23 16:04:26 +02:00
|
|
|
|
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(defun org~mu4e-mime-undecorate-headers ()
|
2012-11-10 14:01:17 +01:00
|
|
|
|
"Don't make the headers visually distinctive.
|
|
|
|
|
\(well, mu4e-compose-mode will take care of that)."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(save-excursion
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(let* ((eoh (when (search-forward mail-header-separator)
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(match-end 0))))
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(remove-overlays (point-min) eoh))))
|
|
|
|
|
|
|
|
|
|
(defvar org-mu4e-convert-to-html nil
|
2019-02-18 06:22:16 +01:00
|
|
|
|
"Whether to do automatic `org-mode' => html conversion when sending messages.")
|
2012-05-23 16:04:26 +02:00
|
|
|
|
|
|
|
|
|
(defun org~mu4e-mime-convert-to-html-maybe ()
|
2012-11-10 14:01:17 +01:00
|
|
|
|
"Convert to html if `org-mu4e-convert-to-html' is non-nil.
|
|
|
|
|
This function is called when sending a message (from
|
2019-02-18 06:22:16 +01:00
|
|
|
|
`message-send-hook') and, if non-nil, sends the message as the
|
|
|
|
|
rich-text version of what is assumed to be an org mode body."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(when org-mu4e-convert-to-html
|
2012-09-24 16:05:14 +02:00
|
|
|
|
(mu4e-message "Converting to html")
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(org~mu4e-mime-convert-to-html)))
|
2018-08-18 07:57:18 +02:00
|
|
|
|
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(defun org~mu4e-mime-switch-headers-or-body ()
|
2012-05-23 16:04:26 +02:00
|
|
|
|
"Switch the buffer to either mu4e-compose-mode (when in headers)
|
2012-08-01 19:52:53 +02:00
|
|
|
|
or org-mode (when in the body)."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(interactive)
|
|
|
|
|
(let* ((sepapoint
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(search-forward-regexp mail-header-separator nil t))))
|
2012-05-25 15:51:23 +02:00
|
|
|
|
;; only do stuff when the sepapoint exist; note that after sending the
|
|
|
|
|
;; message, this function maybe called on a message with the sepapoint
|
2012-06-04 12:30:17 +02:00
|
|
|
|
;; stripped. This is why we don't use `message-point-in-header'.
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(when sepapoint
|
|
|
|
|
(cond
|
2020-02-11 12:00:46 +01:00
|
|
|
|
;; we're in the body, but in mu4e-compose-mode?
|
|
|
|
|
;; if so, switch to org-mode
|
|
|
|
|
((and (> (point) sepapoint) (eq major-mode 'mu4e-compose-mode))
|
|
|
|
|
(org-mode)
|
|
|
|
|
(add-hook 'before-save-hook
|
2020-11-13 11:38:50 +01:00
|
|
|
|
#'org~mu4e-error-before-save-hook-fn
|
2020-02-11 12:00:46 +01:00
|
|
|
|
nil t)
|
|
|
|
|
(org~mu4e-mime-decorate-headers)
|
|
|
|
|
(local-set-key (kbd "M-m")
|
|
|
|
|
(lambda (keyseq)
|
|
|
|
|
(interactive "kEnter mu4e-compose-mode key sequence: ")
|
|
|
|
|
(let ((func (lookup-key mu4e-compose-mode-map keyseq)))
|
|
|
|
|
(if func (funcall func) (insert keyseq))))))
|
|
|
|
|
;; we're in the headers, but in org-mode?
|
|
|
|
|
;; if so, switch to mu4e-compose-mode
|
|
|
|
|
((and (<= (point) sepapoint) (eq major-mode 'org-mode))
|
|
|
|
|
(org~mu4e-mime-undecorate-headers)
|
|
|
|
|
(mu4e-compose-mode)
|
|
|
|
|
(add-hook 'message-send-hook 'org~mu4e-mime-convert-to-html-maybe nil t)))
|
2012-05-23 16:04:26 +02:00
|
|
|
|
;; and add the hook
|
2012-09-24 16:05:14 +02:00
|
|
|
|
(add-hook 'post-command-hook 'org~mu4e-mime-switch-headers-or-body t t))))
|
2012-05-23 16:04:26 +02:00
|
|
|
|
|
2020-11-13 11:38:50 +01:00
|
|
|
|
(defun org~mu4e-error-before-save-hook-fn ()
|
|
|
|
|
(mu4e-error "Switch to mu4e-compose-mode (M-m) before saving"))
|
|
|
|
|
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(defun org-mu4e-compose-org-mode ()
|
2019-02-18 06:22:16 +01:00
|
|
|
|
"Defines a pseudo-minor mode for mu4e-compose-mode.
|
|
|
|
|
Edit the message body using org mode. DEPRECATED."
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(interactive)
|
|
|
|
|
(unless (member major-mode '(org-mode mu4e-compose-mode))
|
2012-07-10 11:11:06 +02:00
|
|
|
|
(mu4e-error "Need org-mode or mu4e-compose-mode"))
|
2012-09-24 16:05:14 +02:00
|
|
|
|
;; we can check if we're already in org-mu4e-compose-mode by checking if the
|
|
|
|
|
;; post-command-hook is set; hackish...but a buffer-local variable does not
|
|
|
|
|
;; seem to survive buffer switching
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(if (not (member 'org~mu4e-mime-switch-headers-or-body post-command-hook))
|
2020-02-11 12:00:46 +01:00
|
|
|
|
(progn
|
|
|
|
|
(org~mu4e-mime-switch-headers-or-body)
|
|
|
|
|
(mu4e-message
|
|
|
|
|
(concat
|
|
|
|
|
"org-mu4e-compose-org-mode enabled; "
|
|
|
|
|
"press M-m before issuing message-mode commands")))
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(progn ;; otherwise, remove crap
|
|
|
|
|
(remove-hook 'post-command-hook 'org~mu4e-mime-switch-headers-or-body t)
|
2012-05-25 15:51:23 +02:00
|
|
|
|
(org~mu4e-mime-undecorate-headers) ;; shut off org-mode stuff
|
2012-05-23 16:04:26 +02:00
|
|
|
|
(mu4e-compose-mode)
|
|
|
|
|
(message "org-mu4e-compose-org-mode disabled"))))
|
|
|
|
|
|
2020-02-11 13:26:45 +01:00
|
|
|
|
;;; _
|
2012-01-06 11:31:28 +01:00
|
|
|
|
(provide 'org-mu4e)
|
|
|
|
|
;;; org-mu4e.el ends here
|