futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: cgit: Add support for project-list.

Browse Source 
* doc/guix.texi (Version Control Services): Update accordingly.
* gnu/services/cgit.scm (cgit-configuration)[project-list]: New field.
(serialize-project-list): New procedure that uses PLAIN-FILE to generate a
file from the string list given by the user as input.
(serialize-cgit-configuration): Make sure to serialize 'project-list' before
'repostory-directory'.
This commit is contained in:
Clément Lassieur 2018-03-20 21:15:05 +01:00
parent 80b76b9350
commit e5fe544eaa
No known key found for this signature in database
GPG Key ID: 89F96D4808F359C7
2 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
doc/guix.texi
View File

@ -19017,6 +19017,15 @@ Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} list project-list
A list of subdirectories inside of @code{repository-directory}, relative
to it, that should loaded as Git repositories. An empty list means that
all subdirectories will be loaded.
Defaults to @samp{()}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} file-object readme
Text which will be used as default value for @code{cgit-repo-readme}.

28
gnu/services/cgit.scm
View File

@ -163,6 +163,12 @@
((path text)
(format #f "repo.module-link.~a=~a\n" path text)))))
(define (serialize-project-list _ val)
(if (null? val) ""
(serialize-field
'project-list
(plain-file "project-list" (string-join val "\n")))))
(define repository-directory? string?)
(define (serialize-repository-directory _ val)
@ -536,13 +542,11 @@ disabled.")
(boolean #f)
"Flag which, when set to @samp{#t}, will make cgit omit the standard
header on all pages.")
;; TODO: cgit expects a file name
;; that should be created from a list of strings provided by the user.
;;
;; (project-list
;; (string "")
;; "A list of subdirectories inside of @code{repository-directory},
;; relative to it, that should loaded as Git repositories.")
(project-list
(list '())
"A list of subdirectories inside of @code{repository-directory}, relative
to it, that should loaded as Git repositories. An empty list means that all
subdirectories will be loaded.")
(readme
(file-object "")
"Text which will be used as default value for @code{cgit-repo-readme}.")
@ -636,10 +640,18 @@ for cgit to allow access to that repository.")
(define (serialize-cgit-configuration config)
(define (rest? field)
(not (memq (configuration-field-name field)
'(repositories))))
'(project-list
repository-directory
repositories))))
#~(string-append
#$(let ((rest (filter rest? cgit-configuration-fields)))
(serialize-configuration config rest))
#$(serialize-project-list
'project-list
(cgit-configuration-project-list config))
#$(serialize-repository-directory
'repository-directory
(cgit-configuration-repository-directory config))
#$(serialize-repository-cgit-configuration-list
'repositories
(cgit-configuration-repositories config))))