01/02: website: data: Discard translations in help blurbs.

[Florian Pelz]

pelzflorian pushed a commit to branch master
in repository guix-artwork.

commit 42bfae16b7f09c4ec3765c3177d5d976f618ff21
Author: Florian Pelz <pelzflorian@pelzflorian.de>
AuthorDate: Fri Jun 2 11:04:38 2023 +0200

    website: data: Discard translations in help blurbs.
    
    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";)