From c3ef6ab1a62cf23cd15fd8865ec6bcdf8e7e4ad7 Mon Sep 17 00:00:00 2001 From: Timo Wilken Date: Sun, 5 Nov 2023 00:32:41 +0100 Subject: Fix `match-record' indentation --- tw/services/git.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'tw/services/git.scm') 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) - (name root-directory) + (cons (match-record (car identities) (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) - (name email signing-key) + (cons (match-record (car identities) (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 - (default-email default-signing-key identities) + (match-record config (default-email default-signing-key identities) `(,@(gitconfig-otherfiles identities) ("git/config" ,(mixed-text-file "gitconfig" "\ # This is Git's per-user configuration file. -- cgit v1.2.3