;;; mail-config --- Settings for Mu4e Email -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>

;;; Commentary:
;; I found Aime Bertrand's blog post to be an excellent walkthrough of how to
;; setup a Mu4e config.

;; https://macowners.club/posts/email-emacs-mu4e-macos/

;;; Code:

(require 'user-constants)

;; ------------------------- Mark All Headers ------------------------
;; convenience function to mark all headers for an action

(defun cj/mu4e-mark-all-headers ()
  "Mark all headers for a later action.
Prompts user for the action when executing."
  (interactive)
  (mu4e-headers-mark-for-each-if
   (cons 'something nil)
   (lambda (_msg _param) t)))

;;; ------------------ Smtpmail & Easy PG Assistant -----------------
;; send mail to smtp host from smtpmail temp buffer.

(use-package smtpmail
  :ensure nil ;; built-in
  :defer .5
  :config
  (setq message-kill-buffer-on-exit t) ;; don't keep compose buffers after sending
  (setq sendmail-program (executable-find "msmtp"))
  (setq send-mail-function 'message-send-mail-with-sendmail
        message-send-mail-function 'message-send-mail-with-sendmail)
  (setq message-sendmail-envelope-from 'header)
  (setq smtpmail-debug-info t))

;; --------------------------------- Mu4e Email --------------------------------

(use-package mu4e
  :ensure nil  ;; mu4e gets installed by installing 'mu' via the system package manager
  :load-path "/usr/share/emacs/site-lisp/mu4e/"
  :defer .5
  :bind
  ("C-c m". mu4e)
  (:map mu4e-headers-mode-map
        ("M" . cj/mu4e-mark-all-headers)
        ("D" . mu4e-headers-mark-for-trash)
        ("d" . mu4e-headers-mark-for-delete))
  (:map mu4e-view-mode-map
        ("r" . mu4e-compose-wide-reply)
        ("R" . mu4e-compose-reply))
  :hook
  (mu4e-view-mode . turn-on-visual-line-mode)
  :config
  (setq gnus-blocked-images "http")                                         ;; block external images (i.e., 1 px trackers)
  (setq mail-user-agent 'mu4e-user-agent)                                   ;; default to mu4e for email
  (setq message-citation-line-format "On %a %d %b %Y at %R, %f wrote:\n")   ;; helps show up properly in Outlook/Gmail threads
  (setq message-citation-line-function 'message-insert-formatted-citation-line)
  (setq message-kill-buffer-on-exit t)                                      ;; don't keep message buffers around
  (setq mu4e-change-filenames-when-moving t)                                ;; avoid gmail dup UID issues: https://goo.gl/RTCgVa
  (setq mu4e-completing-read-function 'completing-read)                     ;; use generic completing read, rather than ido
  (setq mu4e-compose-context-policy 'ask)                                   ;; ask for context if no context matches
  ;; (setq mu4e-compose-format-flowed t)                                       ;; plain text mails must flow correctly for recipients
  (setq mu4e-compose-keep-self-cc t)                                        ;; keep me in the cc list
  (setq mu4e-compose-signature-auto-include nil)                            ;; don't include signature by default
  (setq mu4e-confirm-quit nil)                                              ;; don't ask when quitting
  (setq mu4e-context-policy 'pick-first)                                    ;; start with the first (default) context
  (setq mu4e-headers-auto-update nil)                                       ;; updating headers buffer on email is too jarring
  (setq mu4e-root-maildir mail-dir)                                         ;; root directory for all email accounts
  (setq mu4e-maildir mail-dir)                                              ;; same as above (newer mu4e)
  (setq mu4e-sent-messages-behavior 'delete)                                ;; don't save to "Sent", IMAP does this already
  (setq mu4e-show-images t)                                                 ;; show embedded images
  (setq mu4e-update-interval nil)                                           ;; disallow automatic checking for new emails


  (setq mu4e-compose-format-flowed nil
        mu4e-html2text-command 'mu4e-shr2text)  ;; email conversion to html via shr2text

  (setq mu4e-mu-binary (executable-find "mu"))
  (setq mu4e-get-mail-command (concat (executable-find "mbsync") " -a"))    ;; command to sync mail
  (setq mu4e-user-mail-address-list '("c@cjennings.net" "craigmartinjennings@gmail.com"))
  (setq mu4e-index-update-error-warning nil) ;; don't warn me about spurious sync issues

  (setq mu4e-contexts
        (list
         (make-mu4e-context
          :name "gmail.com"
          :match-func
          (lambda (msg)
            (when msg
              (string-prefix-p "/gmail" (mu4e-message-field msg :maildir))))
          :vars '((user-mail-address        . "craigmartinjennings@gmail.com")
                  (user-full-name           . "Craig Jennings")
                  (mu4e-drafts-folder       . "/gmail/Drafts")
                  (mu4e-sent-folder         . "/gmail/Sent")
                  (mu4e-starred-folder      . "/gmail/Starred")
                  (mu4e-trash-folder        . "/gmail/Trash")))

         (make-mu4e-context
          :name "cjennings.net"
          :match-func
          (lambda (msg)
            (when msg
              (string-prefix-p "/cmail" (mu4e-message-field msg :maildir))))
          :vars '((user-mail-address    . "c@cjennings.net")
                  (user-full-name       . "Craig Jennings")
                  (mu4e-drafts-folder   . "/cmail/Drafts")
                  (mu4e-sent-folder     . "/cmail/Sent")))))

  (setq mu4e-maildir-shortcuts
        '(("/cmail/Inbox"       . ?i)
          ("/cmail/Sent"        . ?s)
          ("/gmail/Inbox"       . ?I)
          ("/gmail/Sent"        . ?S)))

  ;; bookmarks and their shortcuts
  (setq mu4e-bookmarks
        `((:name "cjennings inbox"
                 :query "maildir:/cmail/INBOX"
                 :key ?i)
          (:name "cjennings unread"
                 :query "maildir:/cmail/INBOX AND flag:unread AND NOT flag:trashed"
                 :key ?u)
          (:name "cjennings starred"
                 :query "maildir:/cmail/INBOX AND flag:flagged"
                 :key ?s)
          (:name "cjennings large"
                 :query "maildir:/cmail/INBOX AND size:5M..999M"
                 :key ?l)
          (:name "gmail.com inbox"
                 :query "maildir:/gmail/INBOX"
                 :key ?I)
          (:name "gmail.com unread"
                 :query "maildir:/gmail/INBOX AND flag:unread AND NOT flag:trashed"
                 :key ?U)
          (:name "gmail.com starred"
                 :query "maildir:/gmail/INBOX AND flag:flagged"
                 :key ?S)
          (:name "gmail.com large"
                 :query "maildir:/gmail/INBOX AND size:5M..999M"
                 :key ?L)))

  (add-hook 'mu4e-compose-mode-hook
            (defun cj/set-mu4e-compose ()
              "My settings for message composition."
              (set-fill-column 72)))

  (defun no-auto-fill ()
    "Turn off \'auto-fill-mode\'."
    (auto-fill-mode -1))
  (add-hook 'mu4e-compose-mode-hook #'no-auto-fill)

  ;; Always BCC myself
  ;; http://www.djcbsoftware.nl/code/mu/mu4e/Compose-hooks.html
  (defun cj/add-cc-bcc-header ()
    "Add CC: and BCC: to myself header."
    (save-excursion (message-add-header
                     (concat "CC: " "\n")
                     ;; pre hook above changes user-mail-address.
                     (concat "Bcc: " user-mail-address "\n"))))
  (add-hook 'mu4e-compose-mode-hook 'cj/add-cc-bcc-header)

  ;; remap the awkward mml-attach-file to the quicker mail-add-attachment
  (define-key mu4e-compose-mode-map [remap mml-attach-file] 'mail-add-attachment)

  ;; don't allow openwith to mess with your attachments
  (add-to-list  'mm-inhibit-file-name-handlers 'openwith-file-handler)

  ;; use imagemagick to render images, if available
  (when (fboundp 'imagemagick-register-types)
    (imagemagick-register-types))

  ) ;; end use-package mu4e


;; ---------------------------------- Org-Msg ----------------------------------
;; user composes org mode; recipient receives html

(use-package org-msg
  :after (org mu4e)
  :ensure t
  :config
  ;; automatic greetings for html
  (setq org-msg-greeting-fmt "\nHi%s,\n\n")

  ;; inline CSS, no postamble, no TOC, no stars or footers
  (setq org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil")

  ;; hide org markup, show inline images
  (setq org-msg-startup "hidestars inlineimages")

  ;; new and html emails get the option for both text and html,
  ;; text emails get text only replies
  (setq org-msg-default-alternatives
        '((new      . (text html))
          (reply-to-html    . (text html))
          (reply-to-text    . (text))))

  ;; Convert Org Citations to Blockquote
  (setq org-msg-convert-citation t)

  ;; Signature (Org Syntax)
  (setq org-msg-signature "\nCraig\n\n")

  ;; turn on org-msg in all compose buffers
  (org-msg-mode +1))


(advice-add #'mu4e-compose-reply
            :after (lambda (&rest _) (org-msg-edit-mode)))
(advice-add #'mu4e-compose-wide-reply
            :after (lambda (&rest _) (org-msg-edit-mode)))


(provide 'mail-config)
;;; mail-config.el ends here