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.
This commit is contained in:
parent
bf5bb602f4
commit
42bfae16b7
|
@ -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")
|
||||
|
||||
|
|
Loading…
Reference in New Issue