aboutsummaryrefslogtreecommitdiff
path: root/gui/conf/email.el
blob: 2af59779c92effc487c1e7d390671fe7fba3dc0d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
(use-package mu4e
  :custom
  (mu4e-maildir "~/mail")
  (mu4e-get-mail-command "true")
  (mu4e-update-interval 120)

  (sendmail-program "msmtp")
  (send-mail-function 'smtpmail-send-it)
  (message-sendmail-f-is-evil t)
  (message-send-mail-function 'message-send-mail-with-sendmail)
  (mu4e-change-filenames-when-moving t)

  (mu4e-compose-complete-only-after "2016-01-01")

  (mu4e-use-fancy-chars t)
  (mu4e-headers-attach-mark '("a" . "@")) ; alignment fix
  (mu4e-split-view 'single-window)
  (mu4e-headers-fields '((:human-date . 12)
                         (:flags . 6)
                         (:from . 22)
                         (:subject)))
  (mu4e-hide-index-messages t)
  (mu4e-completing-read-function 'completing-read)
  (shr-color-visible-luminance-min 80)
  (doom-modeline-mu4e t)
  (doom-modeline-gnus nil)

  :config
  (add-hook 'mu4e-compose-mode-hook #'(lambda () (auto-save-mode -1))))

(use-package mu4e-alert
  :config
  (mu4e-alert-set-default-style 'libnotify)
  (add-hook 'after-init-hook #'mu4e-alert-enable-notifications))

(setq mu4e-contexts
      `(,(make-mu4e-context
          :name "private"
          :match-func (lambda (msg)
                        (when msg
                          (string-match-p "^/automatix" (mu4e-message-field msg :maildir))))
          :vars '((user-mail-address . "adrian@kummerlaender.eu")
                  (user-full-name    . "Adrian Kummerländer")
                  (mu4e-sent-folder   . "/automatix/Sent")
                  (mu4e-drafts-folder . "/automatix/Drafts")
                  (mu4e-trash-folder  . "/automatix/Trash")
                  (message-sendmail-extra-arguments . ("--read-envelope-from" "--account=automatix"))))
        ,(make-mu4e-context
          :name "KIT"
          :match-func (lambda (msg)
                        (when msg
                          (string-match-p "^/KIT" (mu4e-message-field msg :maildir))))
          :vars '((user-mail-address  . "adrian.kummerlaender@kit.edu")
                  (user-full-name     . "Adrian Kummerländer")
                  (mu4e-sent-folder   . "/KIT/Sent Items")
                  (mu4e-trash-folder  . "/KIT/Deleted Items")
                  (mu4e-drafts-folder . "/KIT/Drafts")
                  (message-sendmail-extra-arguments  . ("--read-envelope-from" "--account=KIT"))
                  (mu4e-compose-signature-auto-include . nil)
                  (mu4e-compose-signature . (concat "\n"
                                                    "Karlsruhe Institute of Technology (KIT)\n"
                                                    "Institute for Applied and Numerical Mathematics (IANM)\n"
                                                    "Institute for Mechanical Process Engineering and Mechanics (MVM)\n"
                                                    "Lattice Boltzmann Research Group (LBRG)\n\n"
                                                    "M.Sc. Adrian Kummerländer\n"
                                                    "Research Associate\n\n"
                                                    "E-mail: adrian.kummerlaender@kit.edu\n"
                                                    "Phone: +49 721 608 43157\n\n"
                                                    "Room 3.016\n"
                                                    "Building 20.30\n"
                                                    "Englerstr. 2\n"
                                                    "D-76131 Karlsruhe"))))))

(evil-leader/set-key "m" 'mu4e)

(add-to-list 'org-capture-templates
             '("m" "eMail note" entry (file org-default-notes-file)
               "* TODO /%:subject/\n See %a\n%?"
               :prepend t))
(add-to-list 'org-capture-templates
             '("rm" "Respond to eMail" entry (file org-default-notes-file)
               "* TODO Respond to /%:subject/\n See %a\n%?"
               :prepend t
               :immediate-finish t))

(defun org-mail-capture-response ()
  (interactive)
  (call-interactively 'org-store-link)
  (org-capture nil "rm"))

(define-key mu4e-headers-mode-map (kbd "C-c r") 'org-mail-capture-response)