This repository has no description
8.8 kB
222 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 (no Tor needed)
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 prism account, check if neoprism.r is reachable
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 echo "Error: neoprism.r is not reachable" >&2
58 exit 1
59 fi
60 '';
61
62 muttrc = pkgs.writeText "muttrc" ''
63 # read html mails
64 auto_view text/html
65 set mailcap_path = ${mailcap}
66
67 # notmuch
68 set folder="$HOME/Maildir"
69 set nm_default_uri = "notmuch://$HOME/Maildir"
70 set nm_record = yes
71 set nm_record_tags = "-inbox me archive"
72 set spoolfile = +Inbox
73 set virtual_spoolfile = yes
74
75 set sendmail="${msmtp}/bin/msmtp"
76 set from="lassulus@lassul.us"
77 alternates ^.*@lassul\.us$ ^.*@.*\.r$
78 unset envelope_from_address
79 set use_envelope_from
80 set reverse_name
81 set markers=no
82
83 set sort=threads
84
85 set index_format="%4C %Z %?GI?%GI& ? %[%y-%m-%d] %-20.20a %?M?(%3M)& ? %s %> %r %g"
86
87 virtual-mailboxes "Unread" "notmuch://?query=tag:unread"
88 virtual-mailboxes "INBOX" "notmuch://?query=tag:inbox"
89 ${lib.concatMapStringsSep "\n" (
90 i: ''${" "}virtual-mailboxes "${i.name}" "notmuch://?query=tag:${i.name}"''
91 ) (lib.mapAttrsToList lib.nameValuePair mailboxes)}
92 virtual-mailboxes "TODO" "notmuch://?query=tag:TODO"
93 virtual-mailboxes "Starred" "notmuch://?query=tag:*"
94 virtual-mailboxes "Archive" "notmuch://?query=tag:archive"
95 virtual-mailboxes "Sent" "notmuch://?query=tag:sent"
96 virtual-mailboxes "Junk" "notmuch://?query=tag:junk"
97 virtual-mailboxes "All" "notmuch://?query=*"
98
99 # clan.lol IMAP - no mailboxes declaration to prevent any startup connection
100 # Select the separator entry in sidebar, folder-hook will redirect to the IMAP server
101 virtual-mailboxes "clan-infra" "notmuch://?query=tag:nonexistent-separator-tag"
102 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\`\""
103 folder-hook "notmuch://\\?query=tag:nonexistent-separator-tag" "push '<change-folder>imaps://mail.clan.lol<enter>'"
104
105 tag-transforms "junk" "k" \
106 "unread" "u" \
107 "replied" "↻" \
108 "TODO" "T" \
109
110 # notmuch bindings
111 macro index \\\\ "<vfolder-from-query>"
112 macro index + "<modify-labels>+*\n<sync-mailbox>"
113 macro index - "<modify-labels>-*\n<sync-mailbox>"
114
115 # muchsync
116 bind index \Cr noop
117 macro index \Cr \
118 "<enter-command>unset wait_key<enter> \
119 <sync-mailbox> \
120 <shell-escape>${self.packages.${pkgs.system}.muchsync}/bin/muchsync -vv<enter> \
121 <sync-mailbox>
122
123 #killed
124 bind index d noop
125 bind pager d noop
126
127 bind index S noop
128 bind index s noop
129 bind pager S noop
130 bind pager s noop
131 macro index S "<modify-labels-then-hide>-inbox -unread +junk\n"
132 macro index s "<modify-labels>-junk\n"
133 macro pager S "<modify-labels-then-hide>-inbox -unread +junk\n"
134 macro pager s "<modify-labels>-junk\n"
135
136 bind index A noop
137 bind index a noop
138 bind pager A noop
139 bind pager a noop
140 macro index A "<modify-labels>+archive -unread -inbox\n"
141 macro index a "<modify-labels>-archive\n"
142 macro pager A "<modify-labels>+archive -unread -inbox\n"
143 macro pager a "<modify-labels>-archive\n"
144
145 bind index U noop
146 bind index u noop
147 bind pager U noop
148 bind pager u noop
149 macro index U "<modify-labels>+unread\n"
150 macro index u "<modify-labels>-unread\n"
151 macro pager U "<modify-labels>+unread\n"
152 macro pager u "<modify-labels>-unread\n"
153
154 bind index t noop
155 bind pager t noop
156 macro index t "<modify-labels>"
157
158 # top index bar in email view
159 set pager_index_lines=7
160 # top_index_bar toggle
161 macro pager ,@1 "<enter-command> set pager_index_lines=0; macro pager ] ,@2 'Toggle indexbar<Enter>"
162 macro pager ,@2 "<enter-command> set pager_index_lines=3; macro pager ] ,@3 'Toggle indexbar<Enter>"
163 macro pager ,@3 "<enter-command> set pager_index_lines=7; macro pager ] ,@1 'Toggle indexbar<Enter>"
164 macro pager ] ,@1 'Toggle indexbar
165
166 # scan urls from emails
167 macro index,pager \cb "<pipe-message> ${lib.getExe pkgs.urlscan}<Enter>"
168 macro attach,compose \cb "<pipe-entry> ${lib.getExe pkgs.urlscan}<Enter>"
169
170 # sidebar
171 set sidebar_divider_char = '│'
172 set sidebar_delim_chars = "/"
173 set sidebar_short_path
174 set sidebar_folder_indent
175 set sidebar_visible = yes
176 set sidebar_format = '%D%?F? [%F]?%* %?N?%N/? %?S?%S?'
177 set sidebar_width = 20
178 color sidebar_new yellow red
179
180 # sidebar bindings
181 bind index <left> sidebar-prev
182 bind index <right> sidebar-next
183 bind index <space> sidebar-open
184 # sidebar toggle
185 macro index,pager ,@) "<enter-command> set sidebar_visible=no; macro index,pager [ ,@( 'Toggle sidebar'<Enter>"
186 macro index,pager ,@( "<enter-command> set sidebar_visible=yes; macro index,pager [ ,@) 'Toggle sidebar'<Enter>"
187 macro index,pager [ ,@( 'Toggle sidebar'
188
189 # forward with attachment
190 set mime_forward = no
191 set forward_attachments = yes
192
193 # better handling of long URLs
194 set wrap = 0 # don't wrap lines in the pager
195 set markers = no # don't show + markers for wrapped lines
196 set smart_wrap = yes # wrap at word boundaries when displaying
197 set pager_stop = yes # don't jump to next message at end of pager
198 '';
199
200 in
201 self.wrapLib.makeWrapper {
202 pkgs = pkgs;
203 package = pkgs.neomutt;
204 aliases = [ "mutt" ];
205 runtimeInputs = [
206 pkgs.elinks
207 pkgs.msmtp
208 pkgs.notmuch
209 pkgs.urlscan
210 ]
211 ++ lib.optionals pkgs.stdenv.isLinux [
212 pkgs.iputils
213 ];
214 env = {
215 NOTMUCH_CONFIG = notmuchConfig;
216 };
217 flags = {
218 "-F" = "${muttrc}";
219 };
220 };
221 };
222}