nixos/home/emacs/modules/custom-email-config.el
Evie Litherland-Smith a06ab54e64 Customise notmuch-hello and add hydra
Add emms hooks to show current song when changed
2023-10-27 11:45:06 +01:00

44 lines
2 KiB
EmacsLisp

(setq mail-user-agent 'notmuch-user-agent
sendmail-program (executable-find "msmtp")
send-mail-function #'smtpmail-send-it
message-sendmail-f-is-evil t
message-sendmail-extra-arguments '("--read-envelope-from")
message-send-mail-function #'message-send-mail-with-sendmail
message-kill-buffer-on-exit t
notmuch-search-oldest-first nil
notmuch-show-logo nil
notmuch-hello-thousands-separator ","
notmuch-archive-tags '("-inbox" "+archive")
notmuch-message-headers-visible nil
notmuch-multipart/alternative-discouraged '("text/plain" "multipart/related")
notmuch-show-all-multipart/alternative-parts nil
notmuch-hello-sections '(notmuch-hello-insert-header
notmuch-hello-insert-saved-searches
notmuch-hello-insert-inbox
notmuch-hello-insert-alltags)
notmuch-fcc-dirs '((".*@xenia.me.uk" . "Proton/Sent")
(".*@proton.me" . "Proton/Sent")
(".*@litherlandsmith.slmail.me" . "Proton/Sent")
(".*@icloud.com" . "iCloud/Sent")
(".*@ukaea.uk" . "Outlook/Sent")
(".*@jet.uk" . "Outlook/Sent"))
notmuch-indicator-args '((:terms "tag:unread and tag:inbox" :label "󰮒 "))
notmuch-indicator-force-refresh-commands '(notmuch-refresh-this-buffer
notmuch-refresh-all-buffers
notmuch-poll-and-refresh-this-buffer))
(when (require 'notmuch nil :noerror)
(require 'notmuch-indicator)
(notmuch-indicator-mode +1)
(when (require 'hydra nil :noerror)
(defhydra email (global-map "C-c m")
"email"
("m" notmuch)
("c" notmuch-mua-new-mail)
("i" (notmuch-unthreaded "is:inbox"))
("u" (notmuch-unthreaded "is:unread AND is:inbox"))
("C-i" (notmuch-tree "is:inbox"))
("C-u" (notmuch-tree "is:unread AND is:inbox")))))
(provide 'custom-email-config)