mbsync: add options extraConfig.{channel|local|remote}

To allow supporting more advanced configurations. The local refers to
the "maildir store" configuration, remote to the "IMAP store", and
"channel" to the channel.

modules/programs/mbsync-accounts.nix

@@ -2,6 +2,12 @@
 
 with lib;
 
+let
+
+  extraConfigType = with lib.types; attrsOf (either (either str int) bool);
+
+in
+
 {
   options.mbsync = {
     enable = mkEnableOption "synchronization using mbsync";
@@ -53,5 +59,35 @@ with lib;
         Pattern of mailboxes to synchronize.
       '';
     };
+
+    extraConfig.channel = mkOption {
+      type = extraConfigType;
+      default = {};
+      example = literalExample ''
+        {
+          MaxMessages = 10000;
+          MaxSize = "1m";
+        };
+      '';
+      description = ''
+        Per channel extra configuration.
+      '';
+    };
+
+    extraConfig.local = mkOption {
+      type = extraConfigType;
+      default = {};
+      description = ''
+        Local store extra configuration.
+      '';
+    };
+
+    extraConfig.remote = mkOption {
+      type = extraConfigType;
+      default = {};
+      description = ''
+        Remote store extra configuration.
+      '';
+    };
   };
 }

modules/programs/mbsync.nix

@@ -33,10 +33,14 @@ let
   genSection = header: entries:
     let
       escapeValue = escape [ "\"" ];
+      hasSpace = v: builtins.match ".* .*" v != null;
       genValue = v:
         if isList v
         then concatMapStringsSep " " genValue v
-        else "\"${escapeValue v}\"";
+        else if isBool v then (if v then "yes" else "no")
+        else if isInt v then toString v
+        else if hasSpace v then "\"${escapeValue v}\""
+        else v;
     in
       ''
         ${header}
@@ -54,15 +58,16 @@ let
           User = userName;
           PassCmd = toString passwordCommand;
         }
-        //
+        // genTlsConfig imap.tls
-        genTlsConfig imap.tls
+        // optionalAttrs (imap.port != null) { Port = toString imap.port; }
-        //
-        optionalAttrs (imap.port != null) { Port = toString imap.port; }
       )
       + "\n"
-      + genSection "IMAPStore ${name}-remote" {
+      + genSection "IMAPStore ${name}-remote" (
-        Account = name;
+        {
-      }
+          Account = name;
+        }
+        // mbsync.extraConfig.remote
+      )
       + "\n"
       + genSection "MaildirStore ${name}-local" (
         {
@@ -70,19 +75,22 @@ let
           Inbox = "${maildir.absPath}/${folders.inbox}";
           SubFolders = "Verbatim";
         }
-        //
+        // optionalAttrs (mbsync.flatten != null) { Flatten = mbsync.flatten; }
-        optionalAttrs (mbsync.flatten != null) { Flatten = mbsync.flatten; }
+        // mbsync.extraConfig.local
       )
       + "\n"
-      + genSection "Channel ${name}" {
+      + genSection "Channel ${name}" (
-        Master = ":${name}-remote:";
+        {
-        Slave = ":${name}-local:";
+          Master = ":${name}-remote:";
-        Patterns = mbsync.patterns;
+          Slave = ":${name}-local:";
-        Create = masterSlaveMapping.${mbsync.create};
+          Patterns = mbsync.patterns;
-        Remove = masterSlaveMapping.${mbsync.remove};
+          Create = masterSlaveMapping.${mbsync.create};
-        Expunge = masterSlaveMapping.${mbsync.expunge};
+          Remove = masterSlaveMapping.${mbsync.remove};
-        SyncState = "*";
+          Expunge = masterSlaveMapping.${mbsync.expunge};
-      }
+          SyncState = "*";
+        }
+        // mbsync.extraConfig.channel
+      )
       + "\n";
 
   genGroupConfig = name: channels: