334 lines
15 KiB
Nix
334 lines
15 KiB
Nix
{ config, lib, pkgs, ... }:
|
|
|
|
let
|
|
passwordScript = pkgs.writeShellScript "get_mail_password" ''${pkgs.libsecret}/bin/secret-tool lookup secret-tool-id $1 | ${pkgs.coreutils}/bin/tr -d "\n"'';
|
|
notifyScript = name: pkgs.writeShellScript "notify_${name}_mail" ''
|
|
unseen_count=$(${pkgs.mblaze}/bin/mlist -N ~/mail/*/INBOX | ${pkgs.coreutils}/bin/wc -l)
|
|
|
|
if [ "$unseen_count" = "1" ]
|
|
then
|
|
${pkgs.libnotify}/bin/notify-send -t 5000 'New ${name} mail arrived' "1 unseen mail"
|
|
elif [ "$unseen_count" != "0" ]
|
|
then
|
|
${pkgs.libnotify}/bin/notify-send -t 5000 'New ${name} mail arrived' "$unseen_count unseen mails"
|
|
fi
|
|
'';
|
|
makeAccount = { name, address, host ? "", imapHost ? host, smtpHost ? host, useStartTls ? false, secretToolId, extraConfig ? { }, oauth ? false }: (lib.recursiveUpdate
|
|
{
|
|
inherit address;
|
|
gpg = {
|
|
key = "charlotte@vanpetegem.me";
|
|
signByDefault = true;
|
|
};
|
|
imap = {
|
|
host = imapHost;
|
|
port = 993;
|
|
tls.enable = true;
|
|
};
|
|
imapnotify = {
|
|
enable = true;
|
|
boxes = [ "INBOX" ];
|
|
onNotify = "${pkgs.isync}/bin/mbsync ${name}:INBOX";
|
|
onNotifyPost = "${config.chvp.base.emacs.package}/bin/emacsclient --eval \"(mu4e-update-index)\" && ${notifyScript name}";
|
|
extraConfig = lib.mkIf oauth { xoauth2 = true; };
|
|
};
|
|
mbsync = {
|
|
enable = true;
|
|
create = "both";
|
|
expunge = "both";
|
|
flatten = ".";
|
|
remove = "both";
|
|
extraConfig.account.AuthMechs = if (oauth) then "XOAUTH2" else "LOGIN";
|
|
};
|
|
msmtp = {
|
|
enable = true;
|
|
extraConfig = lib.mkIf oauth { auth = "xoauth2"; };
|
|
};
|
|
mu.enable = true;
|
|
passwordCommand = if oauth then "${pkgs.mfauth}/bin/mfauth access ${name}" else "${passwordScript} ${secretToolId}";
|
|
realName = "Charlotte Van Petegem";
|
|
signature = {
|
|
showSignature = "none";
|
|
};
|
|
smtp = {
|
|
host = smtpHost;
|
|
port = if useStartTls then 587 else 465;
|
|
tls = {
|
|
enable = true;
|
|
inherit useStartTls;
|
|
};
|
|
};
|
|
userName = address;
|
|
}
|
|
extraConfig);
|
|
toRecursiveINI = with lib.strings; with lib.attrsets; with lib.generators; with lib.lists; let
|
|
repeat = count: char: concatStrings (genList (_: char) count);
|
|
mkHeader = depth: name: concatStrings [ (repeat depth "[") (escape [ "[" ] name) (repeat depth "]") ];
|
|
simpleAttrs = filterAttrs (n: v: !(isAttrs v));
|
|
complexAttrs = filterAttrs (n: v: isAttrs v);
|
|
removeEmpty = filter (v: v != "");
|
|
toRecursiveINIBase = depth: data: (concatStringsSep "\n" (
|
|
mapAttrsToList
|
|
(name: values: concatStringsSep "\n" (removeEmpty [
|
|
(mkHeader depth name)
|
|
(toKeyValue { } (simpleAttrs values))
|
|
(toRecursiveINIBase (depth + 1) (complexAttrs values))
|
|
]))
|
|
data
|
|
));
|
|
in
|
|
toRecursiveINIBase 1;
|
|
in
|
|
{
|
|
options.chvp.graphical.mail.enable = lib.mkOption {
|
|
default = false;
|
|
example = true;
|
|
};
|
|
|
|
config = lib.mkIf config.chvp.graphical.mail.enable {
|
|
nixpkgs.overlays = [
|
|
(self: super: rec {
|
|
isync = super.isync.override { withCyrusSaslXoauth2 = true; };
|
|
})
|
|
];
|
|
chvp = {
|
|
base = {
|
|
emacs.extraConfig =
|
|
let
|
|
mkAccountConfig = account: ''
|
|
(make-mu4e-context
|
|
:name "${account.name}"
|
|
:match-func (lambda (msg) (when msg (string-prefix-p "/${account.maildir.path}/" (mu4e-message-field msg :maildir))))
|
|
:vars '(
|
|
(user-mail-address . "${account.address}")
|
|
(user-full-name . "${account.realName}")
|
|
(mu4e-drafts-folder . "/${account.maildir.path}/${account.folders.drafts}")
|
|
(mu4e-sent-folder . "/${account.maildir.path}/${account.folders.sent}")
|
|
(mu4e-refile-folder . "/${account.maildir.path}/${account.folders.trash}")
|
|
(mu4e-trash-folder . "/${account.maildir.path}/${account.folders.trash}")
|
|
(message-sendmail-extra-arguments . ("--read-envelope-from" "--account" "${account.name}"))
|
|
)
|
|
)
|
|
'';
|
|
hmConfig = config.home-manager.users.charlotte;
|
|
in
|
|
[
|
|
''
|
|
(use-package mu4e
|
|
;; Use mu4e included in the mu package, see emacs/default.nix
|
|
:ensure nil
|
|
:demand t
|
|
:after (vertico)
|
|
:hook
|
|
(mu4e-view-mode . display-line-numbers-mode)
|
|
(mu4e-view-mode . visual-line-mode)
|
|
(mu4e-compose-mode . chvp--mu4e-auto-dodona-cc-reply-to)
|
|
(mu4e-compose-mode . visual-line-mode)
|
|
(mu4e-compose-mode . (lambda () (setq use-hard-newlines nil)))
|
|
:custom
|
|
(mu4e-read-option-use-builtin nil "Don't use builtin autocomplete in mu4e")
|
|
(mu4e-completing-read-function 'completing-read "Use default completing read function")
|
|
(mu4e-maildir-initial-input "" "Don't have initial input when completing a maildir")
|
|
(mu4e-change-filenames-when-moving t "Avoid sync issues with mbsync")
|
|
(mu4e-maildir "${hmConfig.accounts.email.maildirBasePath}" "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-compose-format-flowed t "Send format=flowed mails when use-hard-newlines gets enabled")
|
|
(fill-flowed-display-column 1000000000000 "Dont fill when decoding flowed messages, let visual-line-mode handle it")
|
|
(gnus-treat-fill-long-lines nil "Let visual-line-mode handle filling")
|
|
(mu4e-confirm-quit nil "Don't confirm when quitting")
|
|
(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")
|
|
(mml-secure-openpgp-sign-with-sender t "Sign mails with the sender")
|
|
(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
|
|
;; mu4e should just open in the currently focused window instead of taking up the whole frame
|
|
(add-to-list 'display-buffer-alist
|
|
`(,(regexp-quote mu4e-main-buffer-name)
|
|
display-buffer-same-window))
|
|
(setq mu4e-contexts (list ${lib.concatStringsSep "\n" (map mkAccountConfig (lib.attrValues hmConfig.accounts.email.accounts))}))
|
|
(add-to-list
|
|
'mu4e-bookmarks
|
|
'(:name "Combined inbox" :query "maildir:/personal/INBOX or maildir:/work/INBOX or maildir:/posteo/INBOX or maildir:/rodekruis-eerstehulp/INBOX" :key ?i :favorite t)
|
|
)
|
|
(defun chvp--mu4e-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 chvp--mu4e-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")) (chvp--mu4e-dodona-cc-reply-to))
|
|
)
|
|
)
|
|
;; Never actually quit mu4e, just close the current buffer (making sure the modeline is still visible)
|
|
(defalias 'mu4e-quit 'kill-this-buffer)
|
|
(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)))
|
|
(mu4e 'background)
|
|
: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 d" '(chvp--mu4e-dodona-cc-reply-to :which-key "Dodona support headers")
|
|
"SPC f" '(mu4e-toggle-use-hard-newlines :which-key "Toggle format=flowed/hard newlines")
|
|
)
|
|
)
|
|
|
|
(use-package visual-fill-column
|
|
:custom (visual-fill-column-enable-sensible-window-split t "Sensibly split windows in visual-fill-column-mode")
|
|
:hook (visual-line-mode . visual-fill-column-mode)
|
|
)
|
|
|
|
(use-package adaptive-wrap
|
|
:hook (visual-fill-column-mode . adaptive-wrap-prefix-mode)
|
|
)
|
|
''
|
|
];
|
|
zfs.homeLinks = [
|
|
{ path = "mail"; type = "data"; }
|
|
{ path = ".cache/mu"; type = "cache"; }
|
|
];
|
|
};
|
|
};
|
|
home-manager.users.charlotte = { ... }: {
|
|
home.packages = [ pkgs.mfauth ];
|
|
xdg.configFile."mfauth/config.toml".text = ''
|
|
# Public thunderbird secrets
|
|
[accounts.work]
|
|
client_id = "08162f7c-0fd2-4200-a84a-f25a4db0b584"
|
|
client_secret = "TxRBilcHdC6WGBee]fs?QR:SJ8nI[g82"
|
|
authorize_url = "https://login.microsoftonline.com/common/oauth2/v2.0/authorize"
|
|
token_url = "https://login.microsoftonline.com/common/oauth2/v2.0/token"
|
|
scope = "https://outlook.office365.com/IMAP.AccessAsUser.All https://outlook.office365.com/POP.AccessAsUser.All https://outlook.office365.com/SMTP.Send offline_access"
|
|
'';
|
|
accounts.email = {
|
|
maildirBasePath = "/home/charlotte/mail";
|
|
accounts = {
|
|
personal = makeAccount {
|
|
name = "personal";
|
|
address = "charlotte@vanpetegem.me";
|
|
host = "mail.vanpetegem.me";
|
|
secretToolId = "personal-mail";
|
|
extraConfig = {
|
|
folders = { drafts = "Drafts"; inbox = "INBOX"; sent = "INBOX"; trash = "Trash"; };
|
|
primary = true;
|
|
};
|
|
};
|
|
work = makeAccount {
|
|
name = "work";
|
|
address = "charlotte.vanpetegem@ugent.be";
|
|
host = "outlook.office365.com";
|
|
smtpHost = "smtp.office365.com";
|
|
secretToolId = "work-mail";
|
|
useStartTls = true;
|
|
oauth = true;
|
|
extraConfig.folders = { drafts = "Drafts"; inbox = "INBOX"; sent = "INBOX"; trash = "Trash"; };
|
|
};
|
|
posteo = makeAccount {
|
|
name = "posteo";
|
|
address = "chvp@posteo.net";
|
|
host = "posteo.de";
|
|
secretToolId = "posteo";
|
|
extraConfig = {
|
|
folders = { drafts = "Drafts"; inbox = "INBOX"; sent = "INBOX"; trash = "Trash"; };
|
|
};
|
|
};
|
|
postbot = makeAccount {
|
|
name = "postbot";
|
|
address = "postbot@vanpetegem.me";
|
|
host = "mail.vanpetegem.me";
|
|
secretToolId = "postbot";
|
|
extraConfig = {
|
|
folders = { drafts = "Drafts"; inbox = "INBOX"; sent = "INBOX"; trash = "Trash"; };
|
|
};
|
|
};
|
|
rodekruis-eerstehulp = makeAccount {
|
|
name = "rodekruis-eerstehulp";
|
|
address = "eerstehulp@gent.rodekruis.be";
|
|
imapHost = "imap.gmail.com";
|
|
smtpHost = "smtp.gmail.com";
|
|
useStartTls = true;
|
|
secretToolId = "eerstehulp-mail";
|
|
extraConfig = {
|
|
folders = { drafts = "[Gmail].Concepten"; inbox = "INBOX"; sent = "INBOX"; trash = "[Gmail].Prullenbak"; };
|
|
flavor = "gmail.com";
|
|
};
|
|
};
|
|
webmaster = makeAccount {
|
|
name = "webmaster";
|
|
address = "webmaster@vanpetegem.me";
|
|
host = "mail.vanpetegem.me";
|
|
secretToolId = "webmaster";
|
|
extraConfig = {
|
|
folders = { drafts = "Drafts"; inbox = "INBOX"; sent = "INBOX"; trash = "Trash"; };
|
|
};
|
|
};
|
|
};
|
|
};
|
|
programs = {
|
|
mbsync.enable = true;
|
|
msmtp.enable = true;
|
|
mu.enable = true;
|
|
};
|
|
services = {
|
|
imapnotify.enable = true;
|
|
};
|
|
systemd.user = {
|
|
services = {
|
|
mbsync = {
|
|
Unit = {
|
|
Description = "MBSync email fetcher";
|
|
After = "network-online.target";
|
|
Wants = "network-online.target";
|
|
};
|
|
Service = {
|
|
Type = "oneshot";
|
|
ExecStart = [ "${pkgs.isync}/bin/mbsync -a" "${config.chvp.base.emacs.package}/bin/emacsclient --eval \"(mu4e-update-index)\"" ];
|
|
};
|
|
};
|
|
};
|
|
timers = {
|
|
mbsync = {
|
|
Unit = { Description = "MBSync email fetcher"; };
|
|
Timer = {
|
|
OnCalendar = "*:0/5";
|
|
Unit = "mbsync.service";
|
|
};
|
|
Install = { WantedBy = [ "timers.target" ]; };
|
|
};
|
|
vdirsyncer = {
|
|
Unit = { Description = "VDirSyncer WebDAV syncer"; };
|
|
Timer = {
|
|
OnCalendar = "*:0/5";
|
|
Unit = "vdirsyncer.service";
|
|
};
|
|
Install = { WantedBy = [ "timers.target" ]; };
|
|
};
|
|
};
|
|
};
|
|
};
|
|
};
|
|
}
|