From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:46905) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jFPRv-0008VO-CW for guix-patches@gnu.org; Fri, 20 Mar 2020 17:45:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jFPRu-0003Z9-81 for guix-patches@gnu.org; Fri, 20 Mar 2020 17:45:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:39773) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jFPRu-0003Z5-4M for guix-patches@gnu.org; Fri, 20 Mar 2020 17:45:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jFPRu-0004zZ-0j for guix-patches@gnu.org; Fri, 20 Mar 2020 17:45:02 -0400 Subject: [bug#40157] [PATCH] hydra: Display the IRC logs in reverse chronological order. Resent-Message-ID: Received: from eggs.gnu.org ([2001:470:142:3::10]:46670) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jFPQs-00088t-Ob for guix-patches@gnu.org; Fri, 20 Mar 2020 17:43:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jFPQr-00031i-QB for guix-patches@gnu.org; Fri, 20 Mar 2020 17:43:58 -0400 Received: from out3-smtp.messagingengine.com ([66.111.4.27]:54827) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1jFPQr-000307-IG for guix-patches@gnu.org; Fri, 20 Mar 2020 17:43:57 -0400 From: Leo Famulari Date: Fri, 20 Mar 2020 17:43:49 -0400 Message-Id: <3b38c211b2c959077385c0267ed3b1875d396bfc.1584740629.git.leo@famulari.name> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 40157@debbugs.gnu.org Cc: 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(-) 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