mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-16 20:10:39 +02:00
Code Releases Activity

services: gitolite-rc-file: Add extra-content field.

Browse source 
* gnu/services/version-control.scm (<gitolite-rc-file>): Add extra-content
field.
(gitolite-rc-file-compiler): Handle it during configuration file generation.
* doc/guix.texi (Version Control Services): Document it.

Change-Id: I5082e1d7a27cc746641ba9ec8ae07c703da5f279
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Tomas Volf 2025-04-01 00:10:10 +02:00 • committed by Maxim Cournoyer
parent 5466a46a72
commit 0110eeee0a
No known key found for this signature in database
GPG key ID: 1260E46482E63562
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
doc/guix.texi
View file

@ -41075,6 +41075,9 @@ Set the role names allowed to be used by users running the perms command.
@item @code{enable} (default: @code{'("help" "desc" "info" "perms" "writable" "ssh-authkeys" "git-config" "daemon" "gitweb")})
This setting controls the commands and features to enable within Gitolite.
@item @code{extra-content} (default: @code{""})
Extra content to add verbatim into the @code{%RC} hash.
@end table
@end deftp

8
gnu/services/version-control.scm
View file

@ -64,6 +64,7 @@
gitolite-rc-file-host-name
gitolite-rc-file-roles
gitolite-rc-file-enable
gitolite-rc-file-extra-content
gitolite-service-type
@ -270,13 +271,15 @@ access to exported repositories under @file{/srv/git}."
"ssh-authkeys"
"git-config"
"daemon"
"gitweb"))))
"gitweb")))
(extra-content gitolite-rc-extra-content
(default "")))
(define-gexp-compiler (gitolite-rc-file-compiler
(file <gitolite-rc-file>) system target)
(match-record file <gitolite-rc-file>
( umask local-code unsafe-pattern git-config-keys log-extra
host-name roles enable)
host-name roles enable extra-content)
(apply text-file* "gitolite.rc"
`("%RC = (\n"
" UMASK => " ,(format #f "~4,'0o" umask) ",\n"
@ -302,6 +305,7 @@ access to exported repositories under @file{/srv/git}."
(simple-format #f " '~A',\n" value))
enable)
" ],\n"
,extra-content "\n"
");\n"
"\n"
,(if unsafe-pattern