From efb22b47dbafff233e0a2d332d019270297be8b5 Mon Sep 17 00:00:00 2001 From: Clément Lassieur Date: Sun, 12 Aug 2018 21:19:38 +0200 Subject: 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. --- gnu/services/cgit.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm index 3289d37333..a84a2dadb2 100644 --- a/gnu/services/cgit.scm +++ b/gnu/services/cgit.scm @@ -149,6 +149,7 @@ (define (serialize-repo-integer field-name val) (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 @@ (define-configuration repository-cgit-configuration (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? -- cgit v1.2.3