GNU bug report logs - #63836
[PATCH guix-artwork] website: data: Discard translations in help blurbs.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 63836 in the body.
You can then email your comments to 63836 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Florian Pelz <pelzflorian <at> pelzflorian.de>
To: guix-patches <at> gnu.org
Cc: Florian Pelz <pelzflorian <at> pelzflorian.de>
Subject: [PATCH guix-artwork] website: data: Discard translations in help
 blurbs.
Date: Fri,  2 Jun 2023 12:20:43 +0200

We no longer need the blurbs, now that the website has
gettext translations that are reasonably complete, except
Hungarian, which we lose.

* website/apps/base/data.scm (contact-media)["Help Mailing List"]:
Drop legacy blurbs.
---
 website/apps/base/data.scm | 68 ++------------------------------------
 1 file changed, 3 insertions(+), 65 deletions(-)

diff --git a/website/apps/base/data.scm b/website/apps/base/data.scm
index ad44a10..bd2c7ab 100644
--- a/website/apps/base/data.scm
+++ b/website/apps/base/data.scm
@@ -44,73 +44,11 @@ English)."))
    (contact
     #:name (G_ "Help Mailing List")
     #:description
-    ;; Compute an association list from language code to blurb.
-    ;; If possible, look up translated blurbs from the PO file.
-    ;; Fall back to old hard-coded translations.
-    (let ((original '(G_
-                      "Subscribe to the Help mailing list to get support
+    (G_
+     `(p
+       "Subscribe to the Help mailing list to get support
 from the GNU Guix community via email.  You can post messages in English
 though we also accept other languages."))
-          (lang-code '(C_ "unique lingua code like en or zh-cn" "en")))
-      (sort
-       (delete-duplicates
-        (append
-         (delete ;delete untranslated blurbs other than "en"
-          (cons original lang-code)
-          (map-in-order
-           (lambda (lingua)
-             (begin
-               (setlocale LC_ALL (string-append lingua ".utf8"))
-               (let ((out (list (gettext (string-append
-                                          (cadr lang-code) ;msgctxt
-                                          (string #\eot) ;separates msgctxt
-                                          (caddr lang-code))) ;msgid
-                                (gettext (cadr original)))))
-                 (setlocale LC_ALL "")
-                 (if (string-index (car out) #\eot) ;if untranslated
-                     (list (caddr lang-code) (cadr original)) ;use original
-                     out)))) ;else use what has been looked up via gettext
-           %linguas)
-          (lambda (to-delete b) (and ;delete where text is equal to original
-                                 (string=? (cadar to-delete) (cadr b))
-                                 ;; but language code is different
-                                 (not (string=? (cadddr to-delete) (car b))))))
-         `(("eo"
-            "Subskribu al la retmesaĝolisto \"Help\" por demandi helpon pri
-GNU Guix al la grupo.  Vi povas skribi esperantlingve.")
-           ("fr"
-            "Abonnez-vous à la liste de diffusion « Help » pour obtenir l'aide
-de la communauté sur GNU Guix par courrier électronique.  Vous
-pouvez envoyer des messages en français.")
-           ("hu"
-            "Iratkozzon fel a „Help“ levelezőlistára, hogy segítséget kaphasson
-e-mailben a Guix System és a GNU Guix közösségtől. Magyarul is küldhet
-üzeneteket.")
-           ("it"
-            "Iscrivetevi alla mailing list 'Help' per essere aiutati da altri
-utenti di Guix e Guix System.  Potete scrivere sulla mailing list anche in
-italiano.")
-           ("ja"
-            "メールでGNU GuixとGuix Systemのコミュニティからサポートを受けるには、
-「Help」のメーリングリストに登録してください。
-メッセージ内容は日本語でも問題ございませんが、多言語でも受け付けております。")
-           ("nb"
-            "Meld deg på diskusjonslisten «Help» for å få råd og tips fra
-andre Guix System- og GNU Guix-brukere via e-post.  Du kan legge inn
-meldinger på norsk.")
-           ("nl"
-            "Abonneer je op de discussielijst \"Help\" om hulp te vragen
-van de Guix System- en GNU Guix-gemeenschap.  Je kunt berichten sturen in
-het Nederlands.")
-           ("ru"
-            "Подпишитесь на список рассылки «Help», чтобы получить помощь от
-сообщества Guix System и GNU Guix по электронной почте.  Вы можете писать на русском
-языке.")
-           ("zh-Hant"
-            "訂閱「Help」郵件群組以電郵從Guix System及GNU Guix社群取得支援。你可以使用
-正體、繁體中文發送訊息。")))
-        (lambda (a b) (string=? (car a) (car b))))
-       (lambda (a b) (string<? (car a) (car b)))))
     #:url "https://lists.gnu.org/mailman/listinfo/help-guix"
     #:log "https://lists.gnu.org/archive/html/help-guix")
 

base-commit: dbc448b94a25564a7bb5d139243a5ea7845529dd
-- 
2.40.1

Message #8 received at 63836 <at> debbugs.gnu.org (full text, mbox):

From: Ludovic Courtès <ludo <at> gnu.org>
To: Florian Pelz <pelzflorian <at> pelzflorian.de>
Cc: 63836 <at> debbugs.gnu.org
Subject: Re: bug#63836: [PATCH guix-artwork] website: data: Discard
 translations in help blurbs.
Date: Mon, 05 Jun 2023 14:08:49 +0200

Hallo,

Florian Pelz <pelzflorian <at> pelzflorian.de> skribis:

> We no longer need the blurbs, now that the website has
> gettext translations that are reasonably complete, except
> Hungarian, which we lose.
>
> * website/apps/base/data.scm (contact-media)["Help Mailing List"]:
> Drop legacy blurbs.

LGTM, thank you!

Ludo’.

Message #13 received at 63836-done <at> debbugs.gnu.org (full text, mbox):

From: "pelzflorian (Florian Pelz)" <pelzflorian <at> pelzflorian.de>
To: 63836-done <at> debbugs.gnu.org
Cc: Ludovic Courtès <ludo <at> gnu.org>
Subject: Re: bug#63836: [PATCH guix-artwork] website: data: Discard
 translations in help blurbs.
Date: Tue, 06 Jun 2023 08:32:15 +0200

Pushed as 42bfae16b7f09c4ec3765c3177d5d976f618ff21, thank you!

Regards,
Florian

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.