1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

services: cgit: Disable repo booleans having a global counterpart.

Otherwise the global counterpart is never taken into account.

* doc/guix.texi (Version Control Services): Update accordingly.
* gnu/services/cgit.scm (repo-boolean?, serialize-repo-boolean): Use the
DEFINE-MAYBE macro to allow for the 'disabled value.
(repository-cgit-configuration)[enable-commit-graph?, enable-log-filecount?,
enable-log-linecount?, enable-remote-branches?, enable-subject-links?,
enable-html-serving?]: Change default value to 'disabled.
This commit is contained in:
Clément Lassieur
2018-08-12 21:19:38 +02:00
parent 162c8ab82e
commit efb22b47db
2 changed files with 19 additions and 18 deletions

View File

@@ -149,6 +149,7 @@
(define (serialize-repo-boolean field-name val)
(serialize-repo-integer field-name (if val 1 0)))
(define-maybe repo-boolean)
(define repo-list? list?)
@@ -239,27 +240,27 @@ is no suitable HEAD.")
(repo-file-object "")
"Override the default @code{email-filter}.")
(enable-commit-graph?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"A flag which can be used to disable the global setting
@code{enable-commit-graph?}.")
(enable-log-filecount?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"A flag which can be used to disable the global setting
@code{enable-log-filecount?}.")
(enable-log-linecount?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"A flag which can be used to disable the global setting
@code{enable-log-linecount?}.")
(enable-remote-branches?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"Flag which, when set to @code{#t}, will make cgit display remote
branches in the summary and refs views.")
(enable-subject-links?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"A flag which can be used to override the global setting
@code{enable-subject-links?}.")
(enable-html-serving?
(repo-boolean #f)
(maybe-repo-boolean 'disabled)
"A flag which can be used to override the global setting
@code{enable-html-serving?}.")
(hide?