Ludovic Courtès transcribed 4.8K bytes:
> Hello Guix!
> 
> What about allowing posts on help-guix in one of the languages that
> regular contributors know, in addition to English?
> 
> The alternative would be to create separate language-specific lists, but
> some (rightfully) think there’s a risk of a disconnect with actual
> developers.
> 
> Of course it’s hard to tell what a multilingual mailing list will be
> like, but I think it’s worth experimenting (and I don’t expect a
> significant change overnight).  If we are to reach out to more people,
> allowing them to use the language they know best is the minimum we can
> do IMO.
> 
> WDYT?
> 
> To experiment with this on help-guix, I propose the patch below for the
> web site.  If you’re a committer, please provide a translation for the
> language(s) you know!

Oh... does this mean the translation function for the website is now in place?
It looks like it is from the patch content, or am I wrong?

On topic: I think it's too much to suggest to include something that indicates
the language of the post in the subject?

> Ludo’.
> 

> diff --git a/website/apps/base/data.scm b/website/apps/base/data.scm
> index 0abcc7a..4ccca9a 100644
> --- a/website/apps/base/data.scm
> +++ b/website/apps/base/data.scm
> @@ -13,7 +13,6 @@
>  ;;; Data.
>  ;;;
>  
> -
>  (define contact-media
>    (list
>     ;; The first three will be featured in the home page.
> @@ -30,12 +29,18 @@
>     (contact
>      #:name "Help Mailing List"
>      #:description
> -    '(p
> -      "Subscribe to the Help mailing list to get support from the
> -      GuixSD and GNU Guix community via email. "
> -      (a (@ (href "https://lists.gnu.org/archive/html/guix-devel/2015-12/msg00584.html"))
> -	 "Until December 2015")
> -      ", the Guix-devel mailing list filled that role.")
> +    `(("en"
> +       "Subscribe to the Help mailing list to get support from the GuixSD
> +and GNU Guix community via email.  You can post messages in English though we
> +also accept other languages.")
> +      ("eo"
> +       "Subskribu al la retmesaĝolisto \"Help\" por demandi helpon pri
> +GuixSD kaj 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 GuixSD et GNU Guix par courrier électronique.  Vous
> +pouvez envoyer des messages en Français."))
> +
>      #:url "https://lists.gnu.org/mailman/listinfo/help-guix"
>      #:log "https://lists.gnu.org/archive/html/help-guix")
>  
> diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm
> index b329c71..04d3a08 100644
> --- a/website/apps/base/templates/components.scm
> +++ b/website/apps/base/templates/components.scm
> @@ -13,6 +13,7 @@
>    #:use-module (apps base types)
>    #:use-module (apps base utils)
>    #:use-module (srfi srfi-1)
> +  #:use-module (ice-9 match)
>    #:export (breadcrumbs
>  	    button-big
>  	    button-little
> @@ -121,6 +122,11 @@
>       "…")))
>  
>  
> +(define (language-tag lang)
> +  `(span (@ (class "button-little button-little-active")
> +            (style "float: left; text-align: center; width: 20px; vertical-align: middle"))
> +         ,lang))
> +
>  (define (contact->shtml contact)
>    "Return an SHTML representation of the given contact object.
>  
> @@ -133,7 +139,18 @@
>  	 ""
>  	 `(small
>  	   " (" (a (@ (href ,(contact-log contact))) "archive") ") "))
> -    ,(contact-description contact)))
> +
> +    ;; The description can be a list of language/blurb pairs.
> +    ,(match (contact-description contact)
> +       ((((? string? languages) blurbs) ...)
> +        `(p ,@(map (lambda (language blurb)
> +                     `(div (@ (style "margin: 0 10px 10px 0"))
> +                           ,(language-tag language)
> +                           (div ,blurb)))
> +                   languages
> +                   blurbs)))
> +       (blurb
> +        blurb))))
>  
>  
>  (define* (horizontal-separator #:key (light #false))
> diff --git a/website/apps/base/templates/contact.scm b/website/apps/base/templates/contact.scm
> index 16e4b4e..c246d4b 100644
> --- a/website/apps/base/templates/contact.scm
> +++ b/website/apps/base/templates/contact.scm
> @@ -23,7 +23,8 @@
>       "Community" "Mailing lists" "IRC channels" "Bug reports" "Help")
>     #:active-menu-item "About"
>     #:css (list
> -	  (guix-url "static/base/css/page.css"))
> +	  (guix-url "static/base/css/page.css")
> +          (guix-url "static/base/css/buttons.css"))
>     #:crumbs (list (crumb "Contact" "./"))
>     #:content
>     `(main
> diff --git a/website/static/base/css/buttons.css b/website/static/base/css/buttons.css
> index 9e45190..feabcea 100644
> --- a/website/static/base/css/buttons.css
> +++ b/website/static/base/css/buttons.css
> @@ -37,6 +37,7 @@
>  }
>  
>  
> +.button-little,
>  .button-little:link,
>  .button-little:visited {
>      border-color: #C0C0C0;
> @@ -58,4 +59,4 @@
>  .button-little:hover {
>      background-color: #FFCC00;
>      border-color: #D4AA00;
> -}
> \ No newline at end of file
> +}


-- 
A88C8ADD129828D7EAC02E52E22F9BBFEE348588
https://n0.is