01/02: hydra/goggles: Add channel-files.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit a852c552720cc9a5b0bf1188d1f009fa33ce1989
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Thu Apr 23 18:58:01 2020 +0200

    hydra/goggles: Add channel-files.
    
    * hydra/goggles.scm (channel-files): New procedure.
---
 hydra/goggles.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index d0e10ed..5a6f2e4 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -29,6 +29,11 @@
     ("ttf"  . (application/octet-stream))
     ("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)
   (list '((content-type . (text/html)))
         (lambda (port)