chvp/nixos-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move mu4e config so that parts that can be generated are generated and we don't include it on hosts that don't have a mail client

Browse source
This commit is contained in:
Charlotte Van Petegem 2021-07-08 18:47:06 +02:00
parent ea799c9119
commit 159d39d7c0
No known key found for this signature in database
GPG key ID: 019E764B7184435A
3 changed files with 126 additions and 190 deletions
Download patch file Download diff file Expand all files Collapse all files

181
modules/emacs/init.el
View file

@ -233,185 +233,6 @@
(modus-themes-load-operandi)
)
;; Mail user agent
(use-package mu4e
;; Use mu4e included in the mu package, see emacs.nix
:ensure nil
:demand t
:after (selectrum)
:hook
(mu4e-view-mode . display-line-numbers-mode)
(mu4e-compose-mode . mail/auto-dodona-cc-reply-to)
:custom
(mu4e-change-filenames-when-moving t "Avoid sync issues with mbsync")
(mu4e-maildir "/home/charlotte/mail" "Root of the maildir hierarchy")
(mu4e-context-policy 'pick-first "Use the first mail context in the list")
(mu4e-attachment-dir "/home/charlotte/downloads" "Save attachments to downloads folder")
(mu4e-compose-dont-reply-to-self t "Don't reply to myself on reply to all")
(mu4e-confirm-quit nil "Don't confirm when quitting")
(mu4e-completing-read-function 'completing-read "Use default completing read function")
(mu4e-headers-include-related nil "Don't show related messages by default")
(mu4e-headers-skip-duplicates nil "Show duplicate emails")
(message-kill-buffer-on-exit t "Close buffer when finished with email")
(mm-verify-option 'known "Always verify PGP signatures (known protocols)")
(mm-discouraged-alternatives '("text/html" "text/richtext") "Discourage showing HTML views")
(gnus-buttonized-mime-types '("multipart/signed") "Make sure signature verification is always shown")
(sendmail-program "msmtp" "Use msmtp to send email")
(message-sendmail-f-is-evil t "Remove username from the emacs message")
(message-send-mail-function 'message-send-mail-with-sendmail "Use sendmail to send mail instead internal smtp")
(message-cite-reply-position 'below "Bottom posting is the correct way to reply to email")
:config
(setq mu4e-contexts
(list
(make-mu4e-context
:name "Personal"
:match-func (lambda (msg) (when msg (string-prefix-p "/personal/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "charlotte@vanpetegem.me")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/personal/Drafts")
(mu4e-sent-folder . "/personal/INBOX")
(mu4e-refile-folder . "/personal/Archive")
(mu4e-trash-folder . "/personal/Trash")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "personal"))
)
)
(make-mu4e-context
:name "Work"
:match-func (lambda (msg) (when msg (string-prefix-p "/work/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "charlotte.vanpetegem@ugent.be")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/work/Drafts")
(mu4e-sent-folder . "/work/INBOX")
(mu4e-refile-folder . "/work/Archive")
(mu4e-trash-folder . "/work/Deleted Items")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "work"))
)
)
(make-mu4e-context
:name "Work AAP-WE-FR"
:match-func (lambda (msg) (when msg (string-prefix-p "/work-aap-we-fr/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "aap-we-fr@ugent.be")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/work-aap-we-fr/Concepten")
(mu4e-sent-folder . "/work-aap-we-fr/Verzonden items")
(mu4e-refile-folder . "/work-aap-we-fr/Archief")
(mu4e-trash-folder . "/work-aap-we-fr/Verwijderde items")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "work-aap-we-fr"))
)
)
(make-mu4e-context
:name "Posteo"
:match-func (lambda (msg) (when msg (string-prefix-p "/posteo/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "chvp@posteo.net")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/posteo/Drafts")
(mu4e-sent-folder . "/posteo/INBOX")
(mu4e-refile-folder . "/posteo/Archive")
(mu4e-trash-folder . "/posteo/Trash")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "posteo"))
)
)
(make-mu4e-context
:name "Jong Groen"
:match-func (lambda (msg) (when msg (string-prefix-p "/jonggroen/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "charlotte@jonggroen.be")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/jonggroen/[Gmail].Drafts")
(mu4e-sent-folder . "/jonggroen/INBOX")
(mu4e-refile-folder . "/jonggroen/Archive")
(mu4e-trash-folder . "/jonggroen/[Gmail].Bin")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "jonggroen"))
)
)
(make-mu4e-context
:name "Postbot"
:match-func (lambda (msg) (when msg (string-prefix-p "/postbot/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "postbot@vanpetegem.me")
(user-full-name . "Charlotte Van Petegem")
(mu4e-drafts-folder . "/postbot/Drafts")
(mu4e-sent-folder . "/postbot/INBOX")
(mu4e-refile-folder . "/postbot/Archive")
(mu4e-trash-folder . "/postbot/Trash")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "postbot"))
)
)
(make-mu4e-context
:name "Webmaster"
:match-func (lambda (msg) (when msg (string-prefix-p "/webmaster/" (mu4e-message-field msg :maildir))))
:vars '(
(user-mail-address . "webmaster@vanpetegem.me")
(user-full-name . "Webmaster")
(mu4e-drafts-folder . "/webmaster/Drafts")
(mu4e-sent-folder . "/webmaster/INBOX")
(mu4e-refile-folder . "/webmaster/Archive")
(mu4e-trash-folder . "/webmaster/Trash")
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "webmaster"))
)
)
)
)
(add-to-list
'mu4e-bookmarks
'(:name "Combined inbox" :query "maildir:/personal/INBOX or maildir:/work/INBOX or maildir:/posteo/INBOX or maildir:/jonggroen/INBOX" :key ?i)
)
(define-advice mu4e~context-ask-user
(:around (orig-fun &rest args) mu4e~context-ask-user-completing-read)
"Replace `mu4e-read-option` by general-purpose completing-read"
(cl-letf (((symbol-function 'mu4e-read-option)
(lambda (prompt options)
(let* ((prompt (mu4e-format "%s" prompt))
(choice (completing-read prompt (cl-mapcar #'car options) nil t))
(chosen-el (cl-find-if (lambda (option) (equal choice (car option))) options)))
(if chosen-el
(cdr chosen-el)
(mu4e-warn "Unknown option: '%s'" choice))))))
(apply orig-fun args)))
(define-skeleton mail/dodona-teacher-reply-skeleton
"Inserts a typical reply when someone uses the general form for a Dodona teacher request."
"Naam leerkracht: "
"Dag " str ",\n"
"\n"
_
"\n"
"Welkom op Dodona! Zou je het volgende formulier kunnen invullen?\n"
"\n"
"https://dodona.ugent.be/rights_requests/new/\n"
"\n"
"Zo hebben we meteen alle info die we nodig hebben om je "
"lesgeversrechten te geven op Dodona.\n"
"\n"
"Met vriendelijke groeten,\n"
"Charlotte Van Petegem"
)
(defun mail/dodona-cc-reply-to ()
"Add dodona@ugent.be in cc and reply-to headers."
(interactive)
(save-excursion (message-add-header "Cc: dodona@ugent.be\nReply-To: dodona@ugent.be\n"))
)
(defun mail/auto-dodona-cc-reply-to ()
"Set dodona@ugent.be in CC and Reply-To headers when message was directed to dodona@ugent.be"
(let ((msg mu4e-compose-parent-message))
(when (and msg (mu4e-message-contact-field-matches msg :to "dodona@ugent.be")) (mail/dodona-cc-reply-to))
)
)
:general
(lmap "m" '(mu4e :which-key "mail"))
;; Unmap SPC in the mail view so we can still use the leader.
(lmap mu4e-view-mode-map "" nil)
(lmap mu4e-compose-mode-map
"SPC s" '(mml-secure-message-sign-pgpmime :which-key "Sign")
"SPC c" '(mml-secure-message-encrypt-pgpmime :which-key "Encrypt")
"SPC t" '(mail/dodona-teacher-reply-skeleton :which-key "Teacher rights reply")
"SPC d" '(mail/dodona-cc-reply-to :which-key "Dodona support headers")
)
)
;; Nix syntax support
(use-package nix-mode :mode "\\.nix\\'")
@ -503,5 +324,3 @@
:mode "\\.yaml\\'"
)
(provide 'init)
;;; init.el ends here