This repository has no description
9.0 kB
225 lines
1{ self, ... }:
2{
3 perSystem =
4 {
5 pkgs,
6 lib,
7 system,
8 ...
9 }:
10 {
11 packages.mutt =
12 let
13 # Mailboxes configuration from mail.nix
14 mailboxes = self.packages.${system}.notmuch.mailboxes;
15 notmuchConfig = self.packages.${system}.notmuch.passthru.config.configFile.path;
16
17 mailcap = pkgs.writeText "mailcap" ''
18 text/html; ${pkgs.elinks}/bin/elinks -dump ; copiousoutput;
19 '';
20
21 msmtprc = pkgs.writeText "msmtprc" ''
22 defaults
23 logfile ~/.msmtp.log
24 account prism
25 host neoprism.r
26 account c-base
27 from lassulus@c-base.org
28 host c-mail.c-base.org
29 port 465
30 tls on
31 tls_starttls off
32 auth on
33 user lassulus
34 passwordeval pass show c-base/pass
35 account default: prism
36 '';
37
38 msmtp = pkgs.writeShellScriptBin "msmtp" ''
39 # Check if using c-base account (either explicit -a c-base or via From: header)
40 using_cbase=0
41 for arg in "$@"; do
42 if [[ "$arg" == "c-base" ]] || [[ "$arg" =~ @c-base\.org ]]; then
43 using_cbase=1
44 break
45 fi
46 done
47
48 # For c-base account, always send directly
49 if [ "$using_cbase" -eq 1 ]; then
50 ${pkgs.coreutils}/bin/tee >(${pkgs.notmuch}/bin/notmuch insert +sent) | \
51 ${pkgs.msmtp}/bin/msmtp -C ${msmtprc} "$@"
52 # For default account, try neoprism.r first, then SSH
53 elif ping -W2 -c1 neoprism.r >/dev/null 2>&1; then
54 ${pkgs.coreutils}/bin/tee >(${pkgs.notmuch}/bin/notmuch insert +sent) | \
55 ${pkgs.msmtp}/bin/msmtp -C ${msmtprc} "$@"
56 else
57 # Fall back to SSH tunnel to neoprism
58 echo "neoprism.r not reachable, sending via SSH..." >&2
59 ${pkgs.coreutils}/bin/tee >(${pkgs.notmuch}/bin/notmuch insert +sent) | \
60 ${pkgs.openssh}/bin/ssh -p 45621 neoprism.lassul.us sendmail -t
61 fi
62 '';
63
64 muttrc = pkgs.writeText "muttrc" ''
65 # read html mails
66 auto_view text/html
67 set mailcap_path = ${mailcap}
68
69 # notmuch
70 set folder="$HOME/Maildir"
71 set nm_default_uri = "notmuch://$HOME/Maildir"
72 set nm_record = yes
73 set nm_record_tags = "-inbox me archive"
74 set spoolfile = +Inbox
75 set virtual_spoolfile = yes
76
77 set sendmail="${msmtp}/bin/msmtp"
78 set from="lassulus@lassul.us"
79 alternates ^.*@lassul\.us$ ^.*@.*\.r$
80 unset envelope_from_address
81 set use_envelope_from
82 set reverse_name
83 set markers=no
84
85 set sort=threads
86
87 set index_format="%4C %Z %?GI?%GI& ? %[%y-%m-%d] %-20.20a %?M?(%3M)& ? %s %> %r %g"
88
89 virtual-mailboxes "Unread" "notmuch://?query=tag:unread"
90 virtual-mailboxes "INBOX" "notmuch://?query=tag:inbox"
91 ${lib.concatMapStringsSep "\n" (
92 i: ''${" "}virtual-mailboxes "${i.name}" "notmuch://?query=tag:${i.name}"''
93 ) (lib.mapAttrsToList lib.nameValuePair mailboxes)}
94 virtual-mailboxes "TODO" "notmuch://?query=tag:TODO"
95 virtual-mailboxes "Starred" "notmuch://?query=tag:*"
96 virtual-mailboxes "Archive" "notmuch://?query=tag:archive"
97 virtual-mailboxes "Sent" "notmuch://?query=tag:sent"
98 virtual-mailboxes "Junk" "notmuch://?query=tag:junk"
99 virtual-mailboxes "All" "notmuch://?query=*"
100
101 # clan.lol IMAP - no mailboxes declaration to prevent any startup connection
102 # Select the separator entry in sidebar, folder-hook will redirect to the IMAP server
103 virtual-mailboxes "clan-infra" "notmuch://?query=tag:nonexistent-separator-tag"
104 account-hook imaps://mail.clan.lol "set imap_user = 'infra@clan.lol'; set imap_pass = \"\`SOPS_AGE_KEY=\$(rbw get --folder clan.lol clan-infra --field age-key) nix develop git+https://git.clan.lol/clan/clan-infra -c clan vars get --flake git+https://git.clan.lol/clan/clan-infra web01 infra-mail/infra-password\`\""
105 folder-hook "notmuch://\\?query=tag:nonexistent-separator-tag" "push '<change-folder>imaps://mail.clan.lol<enter>'"
106
107 tag-transforms "junk" "k" \
108 "unread" "u" \
109 "replied" "↻" \
110 "TODO" "T" \
111
112 # notmuch bindings
113 macro index \\\\ "<vfolder-from-query>"
114 macro index + "<modify-labels>+*\n<sync-mailbox>"
115 macro index - "<modify-labels>-*\n<sync-mailbox>"
116
117 # muchsync
118 bind index \Cr noop
119 macro index \Cr \
120 "<enter-command>unset wait_key<enter> \
121 <sync-mailbox> \
122 <shell-escape>${self.packages.${pkgs.system}.muchsync}/bin/muchsync -vv<enter> \
123 <sync-mailbox>
124
125 #killed
126 bind index d noop
127 bind pager d noop
128
129 bind index S noop
130 bind index s noop
131 bind pager S noop
132 bind pager s noop
133 macro index S "<modify-labels-then-hide>-inbox -unread +junk\n"
134 macro index s "<modify-labels>-junk\n"
135 macro pager S "<modify-labels-then-hide>-inbox -unread +junk\n"
136 macro pager s "<modify-labels>-junk\n"
137
138 bind index A noop
139 bind index a noop
140 bind pager A noop
141 bind pager a noop
142 macro index A "<modify-labels>+archive -unread -inbox\n"
143 macro index a "<modify-labels>-archive\n"
144 macro pager A "<modify-labels>+archive -unread -inbox\n"
145 macro pager a "<modify-labels>-archive\n"
146
147 bind index U noop
148 bind index u noop
149 bind pager U noop
150 bind pager u noop
151 macro index U "<modify-labels>+unread\n"
152 macro index u "<modify-labels>-unread\n"
153 macro pager U "<modify-labels>+unread\n"
154 macro pager u "<modify-labels>-unread\n"
155
156 bind index t noop
157 bind pager t noop
158 macro index t "<modify-labels>"
159
160 # top index bar in email view
161 set pager_index_lines=7
162 # top_index_bar toggle
163 macro pager ,@1 "<enter-command> set pager_index_lines=0; macro pager ] ,@2 'Toggle indexbar<Enter>"
164 macro pager ,@2 "<enter-command> set pager_index_lines=3; macro pager ] ,@3 'Toggle indexbar<Enter>"
165 macro pager ,@3 "<enter-command> set pager_index_lines=7; macro pager ] ,@1 'Toggle indexbar<Enter>"
166 macro pager ] ,@1 'Toggle indexbar
167
168 # scan urls from emails
169 macro index,pager \cb "<pipe-message> ${lib.getExe pkgs.urlscan}<Enter>"
170 macro attach,compose \cb "<pipe-entry> ${lib.getExe pkgs.urlscan}<Enter>"
171
172 # sidebar
173 set sidebar_divider_char = '│'
174 set sidebar_delim_chars = "/"
175 set sidebar_short_path
176 set sidebar_folder_indent
177 set sidebar_visible = yes
178 set sidebar_format = '%D%?F? [%F]?%* %?N?%N/? %?S?%S?'
179 set sidebar_width = 20
180 color sidebar_new yellow red
181
182 # sidebar bindings
183 bind index <left> sidebar-prev
184 bind index <right> sidebar-next
185 bind index <space> sidebar-open
186 # sidebar toggle
187 macro index,pager ,@) "<enter-command> set sidebar_visible=no; macro index,pager [ ,@( 'Toggle sidebar'<Enter>"
188 macro index,pager ,@( "<enter-command> set sidebar_visible=yes; macro index,pager [ ,@) 'Toggle sidebar'<Enter>"
189 macro index,pager [ ,@( 'Toggle sidebar'
190
191 # forward with attachment
192 set mime_forward = no
193 set forward_attachments = yes
194
195 # better handling of long URLs
196 set wrap = 0 # don't wrap lines in the pager
197 set markers = no # don't show + markers for wrapped lines
198 set smart_wrap = yes # wrap at word boundaries when displaying
199 set pager_stop = yes # don't jump to next message at end of pager
200 '';
201
202 in
203 self.wrapLib.makeWrapper {
204 pkgs = pkgs;
205 package = pkgs.neomutt;
206 aliases = [ "mutt" ];
207 runtimeInputs = [
208 pkgs.elinks
209 pkgs.msmtp
210 pkgs.notmuch
211 pkgs.openssh
212 pkgs.urlscan
213 ]
214 ++ lib.optionals pkgs.stdenv.isLinux [
215 pkgs.iputils
216 ];
217 env = {
218 NOTMUCH_CONFIG = notmuchConfig;
219 };
220 flags = {
221 "-F" = "${muttrc}";
222 };
223 };
224 };
225}