mirror of
git://git.savannah.gnu.org/guix/maintenance.git
synced 2023-12-14 03:33:04 +01:00
hydra/goggles: Add channel-files.
* hydra/goggles.scm (channel-files): New procedure.
This commit is contained in:
parent
60aba43012
commit
a852c55272
|
@ -29,6 +29,11 @@
|
||||||
("ttf" . (application/octet-stream))
|
("ttf" . (application/octet-stream))
|
||||||
("html" . (text/html))))
|
("html" . (text/html))))
|
||||||
|
|
||||||
|
(define (channel-files channel)
|
||||||
|
(reverse (scandir (string-append %log-root "/#" channel "/")
|
||||||
|
(lambda (name)
|
||||||
|
(not (member name '("." ".." "index.html")))))))
|
||||||
|
|
||||||
(define (render-html sxml)
|
(define (render-html sxml)
|
||||||
(list '((content-type . (text/html)))
|
(list '((content-type . (text/html)))
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
|
|
Loading…
Reference in a new issue