diff options
| author | Timo Wilken | 2023-11-05 00:32:41 +0100 |
|---|---|---|
| committer | Timo Wilken | 2023-11-05 00:35:42 +0100 |
| commit | c3ef6ab1a62cf23cd15fd8865ec6bcdf8e7e4ad7 (patch) | |
| tree | f31d4fea84535b0af61f5071ef82a65e1a90a153 /tw/services/git.scm | |
| parent | 5098b845e9eb0b3a39495f4fd7890cae0d426c3e (diff) | |
Fix `match-record' indentation
Diffstat (limited to 'tw/services/git.scm')
| -rw-r--r-- | tw/services/git.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/tw/services/git.scm b/tw/services/git.scm index 69dae1e8..168301a5 100644 --- a/tw/services/git.scm +++ b/tw/services/git.scm @@ -30,8 +30,7 @@ containing work projects.")) (define (gitconfig-includes identities) (if (null? identities) '() - (cons (match-record (car identities) <home-git-identity> - (name root-directory) + (cons (match-record (car identities) <home-git-identity> (name root-directory) ;; A relative path is relative to the gitconfig file. (format #f "[includeIf \"gitdir:~a/**\"]\n\tpath = ~aconfig" (string-trim-right root-directory #\/) name)) @@ -39,8 +38,7 @@ containing work projects.")) (define (gitconfig-otherfiles identities) (if (null? identities) '() - (cons (match-record (car identities) <home-git-identity> - (name email signing-key) + (cons (match-record (car identities) <home-git-identity> (name email signing-key) (list (string-append "git/" name "config") (plain-file (string-append "git" name "config") @@ -51,8 +49,7 @@ containing work projects.")) (gitconfig-otherfiles (cdr identities))))) (define (gitconfig config) - (match-record config <home-git-configuration> - (default-email default-signing-key identities) + (match-record config <home-git-configuration> (default-email default-signing-key identities) `(,@(gitconfig-otherfiles identities) ("git/config" ,(mixed-text-file "gitconfig" "\ # This is Git's per-user configuration file. |