Subject: bug#68907: closed (Re: [bug#68907] [PATCH] website: Fix language order.)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 03 Feb 2024 21:54:02 +0000

Your bug report

#68907: [PATCH] website: Fix language order.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
68907: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=68907
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#68907] [PATCH] website: Fix language order.
From: Julien Lepiller <[email-masked]>
To: "pelzflorian (Florian Pelz)" <[email-masked]>
Cc: [email-masked]
Date: Sat, 3 Feb 2024 22:53:37 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Le Sat, 03 Feb 2024 17:27:16 +0100,
"pelzflorian (Florian Pelz)" <[email-masked]> a écrit :

> Julien Lepiller <[email-masked]> writes:
> > -                 (lambda (a b) string<?)))
> > +                 (lambda (a b) (string<? (car a) (car b)))))  
> 
> Whoops.  LGTM.  Now as a consequence of the patch, the English website
> will be listed as one among many.  I do agree this is better.
> 
> Regards,
> Florian

Thanks, pushed to master as 8dfafa0a91f1e3ca84f7fe7fb8e5e31bf1bb1e8f.

Subject: [PATCH] website: Fix language order.
From: Julien Lepiller <[email-masked]>
To: [email-masked]
Date: Sat, 3 Feb 2024 08:56:45 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

* website/apps/base/templates/components.scm (navbar): Fix sorting of
languages.
---
 website/apps/base/templates/components.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm
index 241c27e..2a6881e 100644
--- a/website/apps/base/templates/components.scm
+++ b/website/apps/base/templates/components.scm
@@ -516,7 +516,7 @@ manual.
            (sort (delete %current-lingua
                          ietf-tags-file-contents
                          (lambda (a b) (string=? a (car b))))
-                 (lambda (a b) string<?)))
+                 (lambda (a b) (string<? (car a) (car b)))))
           (list
             (menu-item #:label (G_ "Translate")
                        #:active-item active-item

base-commit: 2bf7c25f4bd5f13a2248839f47de972589c9a2f6
-- 
2.41.0