diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-08-12 21:19:38 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-08-13 00:29:47 +0200 |
| commit | efb22b47dbafff233e0a2d332d019270297be8b5 (patch) | |
| tree | 1becef8a167ad83816b23189ca4fb18399f61f88 /gnu/services/cgit.scm | |
| parent | 162c8ab82e25214f27b8f727799a7cfb83de3932 (diff) | |
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.
Diffstat (limited to 'gnu/services/cgit.scm')
| -rw-r--r-- | gnu/services/cgit.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm index 3289d373339..a84a2dadb23 100644 --- a/gnu/services/cgit.scm +++ b/gnu/services/cgit.scm | |||
| @@ -149,6 +149,7 @@ | |||
| 149 | 149 | ||
| 150 | (define (serialize-repo-boolean field-name val) | 150 | (define (serialize-repo-boolean field-name val) |
| 151 | (serialize-repo-integer field-name (if val 1 0))) | 151 | (serialize-repo-integer field-name (if val 1 0))) |
| 152 | (define-maybe repo-boolean) | ||
| 152 | 153 | ||
| 153 | (define repo-list? list?) | 154 | (define repo-list? list?) |
| 154 | 155 | ||
| @@ -239,27 +240,27 @@ is no suitable HEAD.") | |||
| 239 | (repo-file-object "") | 240 | (repo-file-object "") |
| 240 | "Override the default @code{email-filter}.") | 241 | "Override the default @code{email-filter}.") |
| 241 | (enable-commit-graph? | 242 | (enable-commit-graph? |
| 242 | (repo-boolean #f) | 243 | (maybe-repo-boolean 'disabled) |
| 243 | "A flag which can be used to disable the global setting | 244 | "A flag which can be used to disable the global setting |
| 244 | @code{enable-commit-graph?}.") | 245 | @code{enable-commit-graph?}.") |
| 245 | (enable-log-filecount? | 246 | (enable-log-filecount? |
| 246 | (repo-boolean #f) | 247 | (maybe-repo-boolean 'disabled) |
| 247 | "A flag which can be used to disable the global setting | 248 | "A flag which can be used to disable the global setting |
| 248 | @code{enable-log-filecount?}.") | 249 | @code{enable-log-filecount?}.") |
| 249 | (enable-log-linecount? | 250 | (enable-log-linecount? |
| 250 | (repo-boolean #f) | 251 | (maybe-repo-boolean 'disabled) |
| 251 | "A flag which can be used to disable the global setting | 252 | "A flag which can be used to disable the global setting |
| 252 | @code{enable-log-linecount?}.") | 253 | @code{enable-log-linecount?}.") |
| 253 | (enable-remote-branches? | 254 | (enable-remote-branches? |
| 254 | (repo-boolean #f) | 255 | (maybe-repo-boolean 'disabled) |
| 255 | "Flag which, when set to @code{#t}, will make cgit display remote | 256 | "Flag which, when set to @code{#t}, will make cgit display remote |
| 256 | branches in the summary and refs views.") | 257 | branches in the summary and refs views.") |
| 257 | (enable-subject-links? | 258 | (enable-subject-links? |
| 258 | (repo-boolean #f) | 259 | (maybe-repo-boolean 'disabled) |
| 259 | "A flag which can be used to override the global setting | 260 | "A flag which can be used to override the global setting |
| 260 | @code{enable-subject-links?}.") | 261 | @code{enable-subject-links?}.") |
| 261 | (enable-html-serving? | 262 | (enable-html-serving? |
| 262 | (repo-boolean #f) | 263 | (maybe-repo-boolean 'disabled) |
| 263 | "A flag which can be used to override the global setting | 264 | "A flag which can be used to override the global setting |
| 264 | @code{enable-html-serving?}.") | 265 | @code{enable-html-serving?}.") |
| 265 | (hide? | 266 | (hide? |
