diff options
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. |