niveum/configs/neomutt.nix

{
  pkgs,
  lib,
  ...
}: let
  mainMailbox = "posteo";

  accounts = import <niveum/lib/email.nix> {inherit lib mainMailbox;};
in {
  environment.systemPackages = [pkgs.neomutt];
  environment.shellAliases.mua = "${pkgs.neomutt}/bin/neomutt -f ${mainMailbox}←";

  home-manager.users.me.xdg.configFile."neomutt/neomuttrc".text = let
    as-pdf = pkgs.writers.writeDash "as-pdf" ''
      d=$(mktemp -d)
      trap clean EXIT
      clean() {
        rm -rf "$d"
      }
      ${pkgs.libreoffice}/bin/libreoffice --headless --convert-to pdf "$1" --outdir "$d"
      ${pkgs.zathura}/bin/zathura "$d"/*.pdf
    '';
  in ''
    set mailcap_path = ${
      pkgs.writeText "mailcap" ''
        text/plain; $EDITOR %s ;
        text/html; ${pkgs.lynx}/bin/lynx -assume_charset=%{charset} -display_charset=utf-8 -dump %s; nametemplate=%s.html; copiousoutput;
        image/*; ${pkgs.sxiv}/bin/sxiv %s ;
        video/*; ${pkgs.utillinux}/bin/setsid ${pkgs.mpv}/bin/mpv --quiet %s &; copiousoutput
        audio/*; ${pkgs.mpv}/bin/mpv %s ;
        application/pdf; ${pkgs.zathura}/bin/zathura %s ;
        application/pgp-encrypted; ${pkgs.gnupg}/bin/gpg -d '%s'; copiousoutput;
        application/pgp-keys; ${pkgs.gnupg}/bin/gpg --import '%s'; copiousoutput;
        application/vnd.openxmlformats-officedocument.wordprocessingml.document; ${as-pdf} %s;
        application/vnd.oasis.opendocument.text; ${as-pdf} %s;
        application/vnd.openxmlformats*; ${pkgs.libreoffice}/bin/soffice '%s';
      ''
    }:$mailcap_path

    set sidebar_visible
    set sidebar_format = "%D%?F? [%F]?%* %?N?%N/?%S"
    set sidebar_width = 25                  # Plenty of space
    set sidebar_divider_char = '│'          # Pretty line-drawing character
    set mail_check_stats

    set index_format="%2C %Z %D %-15.15L %s"
    set date_format="%F %R"

    set sort = 'reverse-date'
    set sleep_time = 0		# Pause 0 seconds for informational messages
    set markers = no		# Disables the `+` displayed at line wraps
    set mark_old = no		# Unread mail stay unread until read
    set wait_key = no		# mutt won't ask "press key to continue"
    set fast_reply			# skip to compose when replying
    set forward_format = "Fwd: %s"	# format of subject when forwarding
    set reverse_name		# reply as whomever it was to
    set include=ask-no			# don't include message in replies
    auto_view text/html		# automatically show html (mailcap uses lynx)
    auto_view application/pgp-encrypted
    alternative_order text/plain text/enriched text/html

    set abort_noattach abort_noattach_regex="\<(attach|attached|attachments?|anbei|Anhang|angehängt)\>"
    set attach_save_dir=/tmp
    set fast_reply

    set narrow_tree # narrow threads for more depth

    bind index,pager B sidebar-toggle-visible   # Use 'B' to switch the Sidebar on and off
    bind index,pager \Ck sidebar-prev
    bind index,pager \Cj sidebar-next
    bind index,pager \Co sidebar-open
    bind index,pager \Cp sidebar-prev-new
    bind index,pager \Cn sidebar-next-new

    macro index * <limit>~F\r
    macro index + <limit>all\r

    set query_command = "khard email --parsable %s"
    bind editor <Tab> complete-query
    bind editor ^T    complete

    set mail_check = 90
    set timeout = 15
    # set imap_check_subscribed
    set use_from


    set header_cache="~/.cache/mutt" message_cachedir="~/.cache/mutt"

    source ${
      pkgs.writeText "accounts.neomuttrc" ''
        set realname = "Kierán Meinhardt"
        account-hook . 'unset imap_user imap_pass smtp_user smtp_pass'
        # set accordingly: postponed trash record
        ${
          lib.concatStringsSep "\n\n" (lib.mapAttrsToList (name: account: let
              imapRoot = "imaps://${account.user}@${account.imap}";
            in ''
              account-hook ${account.user}@${account.imap} 'set imap_user="${account.user}" imap_pass="${account.password}"'
              account-hook ${account.user}@${account.smtp} 'set smtp_user="${account.user}" smtp_pass="${account.password}"'
              folder-hook  ${account.user}@${account.imap} 'set smtp_url="${account.smtpSettings "${account.user}@${account.smtp}"}" from="${account.address}" record="${imapRoot}/${account.folders.sent}" postponed="${imapRoot}/${account.folders.drafts}" trash="${imapRoot}/${account.folders.trash}"'
              named-mailboxes "${name}←" "${imapRoot}" "${name}→" "${imapRoot}/${account.folders.sent}"
            '')
            accounts)
        }
      ''
    }

    set spoolfile="${mainMailbox}"

    source ${
      pkgs.writeText "colors.neomuttrc" ''
        # Default index colors:
        color index_number blue default
        color index red default '.*'
        color index_flags lightcyan default '.*'
        color index_author yellow default '.*'
        color index_subject white default '.*'

        # New mail is boldened:
        color index_author lightyellow default "~N"
        color index_subject lightwhite default "~N"

        # Flagged mail is highlighted:
        color index_flags lightmagenta default '~F'

        # Other colors and aesthetic settings:
        mono bold bold
        mono underline underline
        mono error bold
        mono indicator reverse
        # color sidebar_flagged red black
        mono sidebar_new bold
        color error red default
        color message cyan default
        color search brightmagenta default
        color hdrdefault lightblack default
        color quoted green default
        color quoted1 blue default
        color quoted2 cyan default
        color quoted3 yellow default
        color quoted4 red default
        color quoted5 brightred default
        color signature lightblack default
        color tree color235 default

        # Regex highlighting:
        color header red default "^(Date)"
        color header yellow default "^(From)"
        color header white default "^(B?CC)"
        color header brightwhite default "^(Subject)"
        color body cyan default "[\-\.+_a-zA-Z0-9]+@[\-\.a-zA-Z0-9]+" # Email addresses
        color body brightblue default "(https?|ftp)://[\-\.,/%~_:?&=\#a-zA-Z0-9]+" # URL
        color body yellow default "^(\t| )*(-|\\*) \.*" # List items as yellow
        color body red default "(BAD signature)|^gpg: BAD signature from.*"
        color body brightgreen default "(Good signature)|^gpg: Good signature .*"
        color body brightyellow default "^gpg: "
        mono body bold "^gpg: Good signature"
        mono body bold "^gpg: BAD signature from.*"
        color body red default "([a-z][a-z0-9+-]*://(((([a-z0-9_.!~*'();:&=+$,-]|%[0-9a-f][0-9a-f])*@)?((([a-z0-9]([a-z0-9-]*[a-z0-9])?)\\.)*([a-z]([a-z0-9-]*[a-z0-9])?)\\.?|[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+)(:[0-9]+)?)|([a-z0-9_.!~*'()$,;:@&=+-]|%[0-9a-f][0-9a-f])+)(/([a-z0-9_.!~*'():@&=+$,-]|%[0-9a-f][0-9a-f])*(;([a-z0-9_.!~*'():@&=+$,-]|%[0-9a-f][0-9a-f])*)*(/([a-z0-9_.!~*'():@&=+$,-]|%[0-9a-f][0-9a-f])*(;([a-z0-9_.!~*'():@&=+$,-]|%[0-9a-f][0-9a-f])*)*)*)?(\\?([a-z0-9_.!~*'();/?:@&=+$,-]|%[0-9a-f][0-9a-f])*)?(#([a-z0-9_.!~*'();/?:@&=+$,-]|%[0-9a-f][0-9a-f])*)?|(www|ftp)\\.(([a-z0-9]([a-z0-9-]*[a-z0-9])?)\\.)*([a-z]([a-z0-9-]*[a-z0-9])?)\\.?(:[0-9]+)?(/([-a-z0-9_.!~*'():@&=+$,]|%[0-9a-f][0-9a-f])*(;([-a-z0-9_.!~*'():@&=+$,]|%[0-9a-f][0-9a-f])*)*(/([-a-z0-9_.!~*'():@&=+$,]|%[0-9a-f][0-9a-f])*(;([-a-z0-9_.!~*'():@&=+$,]|%[0-9a-f][0-9a-f])*)*)*)?(\\?([-a-z0-9_.!~*'();/?:@&=+$,]|%[0-9a-f][0-9a-f])*)?(#([-a-z0-9_.!~*'();/?:@&=+$,]|%[0-9a-f][0-9a-f])*)?)[^].,:;!)? \t\r\n<>\"]"
      ''
    }
  '';
}