[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: hydra: Display the IRC logs in reverse chronologi
From: |
Ricardo Wurmus |
Subject: |
branch master updated: hydra: Display the IRC logs in reverse chronological order. |
Date: |
Sun, 22 Mar 2020 07:41:11 -0400 |
This is an automated email from the git hooks/post-receive script.
rekado pushed a commit to branch master
in repository maintenance.
The following commit(s) were added to refs/heads/master by this push:
new c9517ff hydra: Display the IRC logs in reverse chronological order.
c9517ff is described below
commit c9517ff24517149f041a7c2b6debd20acce7fd65
Author: Leo Famulari <address@hidden>
AuthorDate: Fri Mar 20 17:43:49 2020 -0400
hydra: Display the IRC logs in reverse chronological order.
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.
Signed-off-by: Ricardo Wurmus <address@hidden>
---
hydra/goggles.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: hydra: Display the IRC logs in reverse chronological order.,
Ricardo Wurmus <=