diff options
| author | Tomas Volf <~@wolfsden.cz> | 2025-04-01 00:10:17 +0200 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-04-03 21:16:17 +0900 |
| commit | 1f1a0e87731a62fdb0fb4d8c76485669b5e3af19 (patch) | |
| tree | da654d02ee86afdf1adb94e2c27b028cac100848 /gnu/services/version-control.scm | |
| parent | a0ce5501ca5cb5f8ac53d07797a2a992f00b3077 (diff) | |
services: gitolite-git-configuration: Add default-branch field.
* gnu/services/version-control.scm (<gitolite-git-configuration>): Add
default-branch field.
(gitolite-git-configuration-compiler): Handle it during configuration file
generation.
* doc/guix.texi (Version Control Services): Document it.
Change-Id: Iceb02f60b8ef26138961aefef4e56ca83df0e19f
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/services/version-control.scm')
| -rw-r--r-- | gnu/services/version-control.scm | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm index dcdddf80783..12653b3cea0 100644 --- a/gnu/services/version-control.scm +++ b/gnu/services/version-control.scm @@ -72,6 +72,7 @@ gitolite-git-configuration? gitolite-git-configuration-name gitolite-git-configuration-email + gitolite-git-configuration-default-branch gitolite-service-type @@ -330,19 +331,25 @@ access to exported repositories under @file{/srv/git}." (define-record-type* <gitolite-git-configuration> gitolite-git-configuration make-gitolite-git-configuration gitolite-git-configuration? - (name gitolite-git-configuration-name - (default "GNU Guix")) - (email gitolite-git-configuration-email - (default "guix@localhost"))) + (name gitolite-git-configuration-name + (default "GNU Guix")) + (email gitolite-git-configuration-email + (default "guix@localhost")) + (default-branch gitolite-git-configuration-default-branch + (default #f))) (define-gexp-compiler (gitolite-git-configuration-compiler (config <gitolite-git-configuration>) system target) (match-record config <gitolite-git-configuration> - (name email) + (name email default-branch) (apply text-file* "gitconfig" `("[user]\n" "name = " ,name "\n" - "email = " ,email "\n")))) + "email = " ,email "\n" + ,@(if default-branch + `("[init]\n" + "defaultBranch = " ,default-branch "\n") + '()))))) (define-record-type* <gitolite-configuration> gitolite-configuration make-gitolite-configuration |