(address . guix-patches@gnu.org)(address . rekado@elephly.net)
I think that people usually want to read the latest logs, which
currently requires a lot of scrolling.
* hydra/goggles.scm (index): Reverse the list of log files.
---
hydra/goggles.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
Toggle diff (19 lines)
diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 169b3c3..884c8df 100644
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -181,9 +181,9 @@ freenode." channel))
(ul
,@(map (lambda (file)
`(li (a (@ (href ,(string-append "/" channel "/" file))) ,file)))
- (or (scandir (string-append %log-root "/#" channel "/")
- (lambda (name)
- (not (member name '("." ".." "index.html")))))
+ (or (reverse (scandir (string-append %log-root "/#" channel "/")
+ (lambda (name)
+ (not (member name '("." ".." "index.html"))))))
'()))))))
(define %controller
--
2.25.1