diff mbox series

[bug#40157] hydra: Display the IRC logs in reverse chronological order.

Message ID 3b38c211b2c959077385c0267ed3b1875d396bfc.1584740629.git.leo@famulari.name
State Accepted
Headers show
Series [bug#40157] hydra: Display the IRC logs in reverse chronological order. | expand

Checks

Context Check Description
cbaines/applying patch fail View Laminar job

Commit Message

Leo Famulari March 20, 2020, 9:43 p.m. UTC 
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(-)

Comments

Ricardo Wurmus March 22, 2020, 11:43 a.m. UTC | #1 
Hi Leo,

> 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.

Looks good, thank you.  I’ve applied it.  We’ll have to wait for the
next reconfiguration to see the effects on logs.guix.gnu.org.
Leo Famulari March 22, 2020, 5:41 p.m. UTC | #2 
On Sun, Mar 22, 2020 at 12:43:43PM +0100, Ricardo Wurmus wrote:
> > 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.
> 
> Looks good, thank you.  I’ve applied it.  We’ll have to wait for the
> next reconfiguration to see the effects on logs.guix.gnu.org.

Thanks!
diff mbox series

Patch

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