git: escape string values in configuration

This should handle the special characters that typically occur.

Fixes #1206

(cherry picked from commit 642d9ffe24)

modules/programs/git.nix

@@ -19,9 +19,19 @@ let
     else
       ''${section} "${subsection}"'';
 
+  mkValueString = v:
+    let
+      escapedV = ''
+        "${
+          replaceStrings [ "\n" "	" ''"'' "\\" ] [ "\\n" "\\t" ''\"'' "\\\\" ] v
+        }"'';
+    in generators.mkValueStringDefault { } (if isString v then escapedV else v);
+
   # generation for multiple ini values
   mkKeyValue = k: v:
-    let mkKeyValue = generators.mkKeyValueDefault { } " = " k;
+    let
+      mkKeyValue =
+        generators.mkKeyValueDefault { inherit mkValueString; } " = " k;
     in concatStringsSep "\n" (map (kv: "	" + mkKeyValue kv) (toList v));
 
   # converts { a.b.c = 5; } to { "a.b".c = 5; } for toINI

tests/modules/programs/git/git-expected-include.conf

@@ -1,3 +1,3 @@
 [user]
-	email = user@example.org
+	email = "user@example.org"
-	name = John Doe
+	name = "John Doe"

tests/modules/programs/git/git-expected.conf

@@ -1,6 +1,7 @@
 [alias]
-	a1 = foo
+	a1 = "foo"
-	a2 = baz
+	a2 = "baz"
+	escapes = "\"\\n\t"
 
 [commit]
 	gpgSign = true
@@ -10,33 +11,33 @@
 	integer = 38
 	multiple = 1
 	multiple = 2
-	name = value
+	name = "value"
 
 [extra "backcompat.with.dots"]
-	previously = worked
+	previously = "worked"
 
 [extra "subsection"]
-	value = test
+	value = "test"
 
 [filter "lfs"]
-	clean = git-lfs clean -- %f
+	clean = "git-lfs clean -- %f"
-	process = git-lfs filter-process
+	process = "git-lfs filter-process"
 	required = true
-	smudge = git-lfs smudge -- %f
+	smudge = "git-lfs smudge -- %f"
 
 [gpg]
-	program = path-to-gpg
+	program = "path-to-gpg"
 
 [user]
-	email = user@example.org
+	email = "user@example.org"
-	name = John Doe
+	name = "John Doe"
-	signingKey = 00112233445566778899AABBCCDDEEFF
+	signingKey = "00112233445566778899AABBCCDDEEFF"
 
 [include]
-	path = ~/path/to/config.inc
+	path = "~/path/to/config.inc"
 
 [includeIf "gitdir:~/src/dir"]
-	path = ~/path/to/conditional.inc
+	path = "~/path/to/conditional.inc"
 
 [includeIf "gitdir:~/src/dir"]
-	path = @git_include_path@
+	path = "@git_include_path@"

tests/modules/programs/git/git-with-email-expected.conf

@@ -1,15 +1,15 @@
 [sendemail "hm-account"]
-	from = hm@example.org
+	from = "hm@example.org"
-	smtpEncryption = tls
+	smtpEncryption = "tls"
-	smtpServer = smtp.example.org
+	smtpServer = "smtp.example.org"
-	smtpUser = home.manager.jr
+	smtpUser = "home.manager.jr"
 
 [sendemail "hm@example.com"]
-	from = hm@example.com
+	from = "hm@example.com"
-	smtpEncryption = tls
+	smtpEncryption = "tls"
-	smtpServer = smtp.example.com
+	smtpServer = "smtp.example.com"
-	smtpUser = home.manager
+	smtpUser = "home.manager"
 
 [user]
-	email = hm@example.com
+	email = "hm@example.com"
-	name = H. M. Test
+	name = "H. M. Test"

tests/modules/programs/git/git-with-str-extra-config-expected.conf

@@ -1,5 +1,5 @@
 This can be anything.
 
 [user]
-	email = user@example.org
+	email = "user@example.org"
-	name = John Doe
+	name = "John Doe"

tests/modules/programs/git/git.nix

@@ -28,6 +28,7 @@ in {
         aliases = {
           a1 = "foo";
           a2 = "bar";
+          escapes = ''"\n	'';
         };
         extraConfig = {
           extra = {