This repository has no description
8.0 kB
216 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 prism.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 prism.r is reachable
53 elif ping -W2 -c1 prism.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: prism.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 tag-transforms "junk" "k" \
100 "unread" "u" \
101 "replied" "↻" \
102 "TODO" "T" \
103
104 # notmuch bindings
105 macro index \\\\ "<vfolder-from-query>"
106 macro index + "<modify-labels>+*\n<sync-mailbox>"
107 macro index - "<modify-labels>-*\n<sync-mailbox>"
108
109 # muchsync
110 bind index \Cr noop
111 macro index \Cr \
112 "<enter-command>unset wait_key<enter> \
113 <sync-mailbox> \
114 <shell-escape>${self.packages.${pkgs.system}.muchsync}/bin/muchsync -vv<enter> \
115 <sync-mailbox>
116
117 #killed
118 bind index d noop
119 bind pager d noop
120
121 bind index S noop
122 bind index s noop
123 bind pager S noop
124 bind pager s noop
125 macro index S "<modify-labels-then-hide>-inbox -unread +junk\n"
126 macro index s "<modify-labels>-junk\n"
127 macro pager S "<modify-labels-then-hide>-inbox -unread +junk\n"
128 macro pager s "<modify-labels>-junk\n"
129
130 bind index A noop
131 bind index a noop
132 bind pager A noop
133 bind pager a noop
134 macro index A "<modify-labels>+archive -unread -inbox\n"
135 macro index a "<modify-labels>-archive\n"
136 macro pager A "<modify-labels>+archive -unread -inbox\n"
137 macro pager a "<modify-labels>-archive\n"
138
139 bind index U noop
140 bind index u noop
141 bind pager U noop
142 bind pager u noop
143 macro index U "<modify-labels>+unread\n"
144 macro index u "<modify-labels>-unread\n"
145 macro pager U "<modify-labels>+unread\n"
146 macro pager u "<modify-labels>-unread\n"
147
148 bind index t noop
149 bind pager t noop
150 macro index t "<modify-labels>"
151
152 # top index bar in email view
153 set pager_index_lines=7
154 # top_index_bar toggle
155 macro pager ,@1 "<enter-command> set pager_index_lines=0; macro pager ] ,@2 'Toggle indexbar<Enter>"
156 macro pager ,@2 "<enter-command> set pager_index_lines=3; macro pager ] ,@3 'Toggle indexbar<Enter>"
157 macro pager ,@3 "<enter-command> set pager_index_lines=7; macro pager ] ,@1 'Toggle indexbar<Enter>"
158 macro pager ] ,@1 'Toggle indexbar
159
160 # scan urls from emails
161 macro index,pager \cb "<pipe-message> ${lib.getExe pkgs.urlscan}<Enter>"
162 macro attach,compose \cb "<pipe-entry> ${lib.getExe pkgs.urlscan}<Enter>"
163
164 # sidebar
165 set sidebar_divider_char = '│'
166 set sidebar_delim_chars = "/"
167 set sidebar_short_path
168 set sidebar_folder_indent
169 set sidebar_visible = yes
170 set sidebar_format = '%D%?F? [%F]?%* %?N?%N/? %?S?%S?'
171 set sidebar_width = 20
172 color sidebar_new yellow red
173
174 # sidebar bindings
175 bind index <left> sidebar-prev
176 bind index <right> sidebar-next
177 bind index <space> sidebar-open
178 # sidebar toggle
179 macro index,pager ,@) "<enter-command> set sidebar_visible=no; macro index,pager [ ,@( 'Toggle sidebar'<Enter>"
180 macro index,pager ,@( "<enter-command> set sidebar_visible=yes; macro index,pager [ ,@) 'Toggle sidebar'<Enter>"
181 macro index,pager [ ,@( 'Toggle sidebar'
182
183 # forward with attachment
184 set mime_forward = no
185 set forward_attachments = yes
186
187 # better handling of long URLs
188 set wrap = 0 # don't wrap lines in the pager
189 set markers = no # don't show + markers for wrapped lines
190 set smart_wrap = yes # wrap at word boundaries when displaying
191 set pager_stop = yes # don't jump to next message at end of pager
192 '';
193
194 in
195 self.wrapLib.makeWrapper {
196 pkgs = pkgs;
197 package = pkgs.neomutt;
198 aliases = [ "mutt" ];
199 runtimeInputs = [
200 pkgs.elinks
201 pkgs.msmtp
202 pkgs.notmuch
203 pkgs.urlscan
204 ]
205 ++ lib.optionals pkgs.stdenv.isLinux [
206 pkgs.iputils
207 ];
208 env = {
209 NOTMUCH_CONFIG = notmuchConfig;
210 };
211 flags = {
212 "-F" = "${muttrc}";
213 };
214 };
215 };
216}