diff options
Diffstat (limited to '')
| -rw-r--r-- | settings/sane-defaults.el | 6 | ||||
| -rw-r--r-- | settings/setup-custom.el | 2 | ||||
| -rw-r--r-- | settings/setup-mu4e.el | 93 |
3 files changed, 101 insertions, 0 deletions
diff --git a/settings/sane-defaults.el b/settings/sane-defaults.el index 3c316d1..cf17758 100644 --- a/settings/sane-defaults.el +++ b/settings/sane-defaults.el @@ -19,6 +19,12 @@ (global-set-key (kbd "M-{") 'insert-pair) (global-set-key (kbd "M-\"") 'insert-pair) +;; use mu4e by default +(global-set-key (kbd "C-x m") 'mu4e) + +;; use unix pass as our password store +(setq auth-sources '(password-store)) + ;; Also auto refresh dired, but be quiet about it (setq global-auto-revert-non-file-buffers t) (setq auto-revert-verbose nil) diff --git a/settings/setup-custom.el b/settings/setup-custom.el index c2454d7..aceedd1 100644 --- a/settings/setup-custom.el +++ b/settings/setup-custom.el @@ -1,5 +1,7 @@ ;;; setup-custom.el --- non-user specific customizations -*- lexical-binding: t; -*- +(set-frame-font "Source Code Pro Medium" nil t) + (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. diff --git a/settings/setup-mu4e.el b/settings/setup-mu4e.el new file mode 100644 index 0000000..95cdb20 --- /dev/null +++ b/settings/setup-mu4e.el @@ -0,0 +1,93 @@ +;;; Code: +(require 'mu4e) +(require 'org-mime) +(require 'org-mu4e) +(require 'smtpmail) + +(setq personal-email (password-store-get-field "mbsync/personal-gmail" "username")) + +(setq + + ;; get mail options + mu4e-get-mail-command "mbsync -a" + mu4e-update-interval 120 + mu4e-headers-auto-update t + mu4e-view-prefer-html t + + ;; Don't save message to Sent Messages, Gmail/IMAP takes care of this + ;; Override in context switching for other type of mailboxes + mu4e-sent-messages-behavior 'delete + message-kill-buffer-on-exit t + + shr-color-visible-luminance-min 40 + + mu4e-view-show-images t + mu4e-use-fancy-chars t + + ;; This fixes the error 'mbsync error: UID is x beyond highest assigned UID x' + mu4e-change-filenames-when-moving t + + user-mail-address personal-email + user-full-name "Benj Bellon" + + ;; default to first (personal) context + mu4e-context-policy 'pick-first + mu4e-compose-context-policy 'pick-first + + ;; Customize the flags to something more sensible. + mu4e-headers-flagged-mark '("F" . "⚑") + mu4e-headers-unread-mark '("u" . "✉") + mu4e-headers-replied-mark '("R" . "←") + + mu4e-date-format "%y/%m/%d" + mu4e-headers-date-format "%Y/%m/%d" + mu4e-attachment-dir "~/Downloads/.mail-attachments" + mu4e-maildir "~/.mail/" + + ;; sendmail options + message-send-mail-function 'smtpmail-send-it + smtpmail-debug-info t + smtpmail-stream-type 'starttls + smtpmail-default-smtp-server "smtp.gmail.com") + +;; This will ensure the right 'sent from' address and email sign off etc. be +;; picked up when replying to emails. +(setq mu4e-contexts + `( + ,(make-mu4e-context + :name "personal" + :enter-func (lambda () (mu4e-message "Entering personal account context")) + :leave-func (lambda () (mu4e-message "Leaving personal account context")) + ;; We match based on the contact-fields of the message + :match-func (lambda (msg) + (when msg + (mu4e-message-contact-field-matches msg :to personal-email) + (mu4e-message-contact-field-matches msg :from personal-email) + (mu4e-message-contact-field-matches msg :cc personal-email) + (mu4e-message-contact-field-matches msg :bcc personal-email))) + :vars `((user-mail-address . ,personal-email) + (user-full-name . "Benj Bellon") + + (mu4e-drafts-folder . "/personal-gmail/[Gmail]/Drafts") + (mu4e-sent-folder . "/personal-gmail/[Gmail]/Sent Mail") + (mu4e-trash-folder . "/personal-gmail/[Gmail]/Trash") + (mu4e-refile-folder . "/personal-gmail/[Gmail]/All Mail") + + (mu4e-maildir-shortcuts . (("/personal-gmail/INBOX" . ?i) + )) + + + (smtpmail-smtp-user . ,personal-email) + (smtpmail-smtp-server . "smtp.gmail.com") + (smtpmail-smtp-service . 587))) + )) + + +(when (fboundp 'imagemagick-register-types) + (imagemagick-register-types)) + +(add-to-list 'mu4e-view-actions '("View In Browser" . mu4e-action-view-in-browser) t) + + +(provide 'setup-mu4e) +;;; setup-mu4e.el ends here |