diff options
Diffstat (limited to '.emacs.d/jd/jd-mu4e.el')
| -rwxr-xr-x | .emacs.d/jd/jd-mu4e.el | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/.emacs.d/jd/jd-mu4e.el b/.emacs.d/jd/jd-mu4e.el new file mode 100755 index 0000000..e97c4fc --- /dev/null +++ b/.emacs.d/jd/jd-mu4e.el | |||
| @@ -0,0 +1,79 @@ | |||
| 1 | (when (not jd/guix-p) | ||
| 2 | (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu4e")) | ||
| 3 | |||
| 4 | (jd/use-package htmlize "emacs-htmlize") | ||
| 5 | |||
| 6 | ; (jd/add-package-to-manifest "mbsync") ;; TODO: Define guix mbsync package? | ||
| 7 | |||
| 8 | (jd/use-package mu4e "mu" | ||
| 9 | :defer 10 | ||
| 10 | :ensure nil | ||
| 11 | :config | ||
| 12 | (require 'org-mu4e) | ||
| 13 | |||
| 14 | (setq mu4e-mu-binary "/usr/local/bin/mu") | ||
| 15 | (setq mu4e-update-interval (* 10 60)) | ||
| 16 | (setq mu4e-get-mail-command "mbsync -a") | ||
| 17 | (setq mu4e-maildir "~/Mail") | ||
| 18 | |||
| 19 | (setq mu4e-completing-read-function #'ivy-completing-read) | ||
| 20 | |||
| 21 | (setq mu4e-change-filenames-when-moving t) | ||
| 22 | |||
| 23 | (setq mu4e-contexts | ||
| 24 | `(,(make-mu4e-context | ||
| 25 | :name "Abaks" | ||
| 26 | :match-func (lambda (msg) (when msg | ||
| 27 | (string-prefix-p "/abaks" (mu4e-message-field msg :maildir)))) | ||
| 28 | :vars '( | ||
| 29 | (user-full-name . "Jakub Dlugosz") | ||
| 30 | (user-mail-address . "jakub@abaks.pl") | ||
| 31 | (mu4e-sent-folder . "/abaks/Sent Items") | ||
| 32 | (mu4e-trash-folder . "/abaks/Trash") | ||
| 33 | (mu4e-drafts-folder . "/abaks/Drafts") | ||
| 34 | (mu4e-refile-folder . "/abaks/Archive") | ||
| 35 | (smtpmail-local-domain . "pl") | ||
| 36 | (smtpmail-smtp-server . "smtp.abaks.pl") | ||
| 37 | (mu4e-sent-messages-behavior . sent) | ||
| 38 | )) | ||
| 39 | ,(make-mu4e-context | ||
| 40 | :name "Gmail" | ||
| 41 | :match-func (lambda (msg) (when msg | ||
| 42 | (string-prefix-p "/gmail" (mu4e-message-field msg :maildir)))) | ||
| 43 | :vars '( | ||
| 44 | (user-full-name . "Jakub Dlugosz") | ||
| 45 | (user-mail-address . "jdlugosz963@gmail.com") | ||
| 46 | (mu4e-sent-folder . "/gmail/\[Gmail\]/Wys\&AUI-ane") | ||
| 47 | (mu4e-trash-folder . "/gmail/\[Gmail\]/Kosz") | ||
| 48 | (mu4e-drafts-folder . "/gmail/\[Gmail\]/Wersje\ robocze") | ||
| 49 | (mu4e-refile-folder . "/gmail/Archive") | ||
| 50 | (smtpmail-local-domain . "com") | ||
| 51 | (smtpmail-smtp-server . "smtp.gmail.com") | ||
| 52 | (mu4e-sent-messages-behavior . sent) | ||
| 53 | )))) | ||
| 54 | |||
| 55 | (setq mail-user-agent 'mu4e-user-agent | ||
| 56 | mail-host-address nil | ||
| 57 | message-send-mail-function 'smtpmail-send-it | ||
| 58 | smtpmail-smtp-service 465 | ||
| 59 | smtpmail-stream-type 'ssl) | ||
| 60 | |||
| 61 | (setq mu4e-compose-signature (concat | ||
| 62 | "Pozdrawiam,\n" | ||
| 63 | "Jakub Długosz")) | ||
| 64 | |||
| 65 | (mu4e t)) | ||
| 66 | |||
| 67 | (jd/use-package mu4e-alert "emacs-mu4e-alert" | ||
| 68 | :defer 20 | ||
| 69 | :config | ||
| 70 | (mu4e-alert-set-default-style 'libnotify) | ||
| 71 | (mu4e-alert-enable-mode-line-display) | ||
| 72 | (mu4e-alert-enable-notifications) | ||
| 73 | |||
| 74 | (jd/leader-key-def | ||
| 75 | "m" '(:ignore t :which-key "mail") | ||
| 76 | "mm" 'mu4e | ||
| 77 | "mc" 'mu4e-compose-new)) | ||
| 78 | |||
| 79 | (provide 'jd-mu4e) | ||
