03/06: website: help: Remove "Guix System Manual" box; list translations.

[Ludovic Courtès]

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

commit dc27473c4b9cae7154842983993f0566039ee8bd
Author: Ludovic Courtès <address@hidden>
Date:   Thu May 2 13:00:16 2019 +0200

    website: help: Remove "Guix System Manual" box; list translations.
    
    * website/apps/base/templates/help.scm (help-t): Remove "Guix System
    Manual" div.  Show translations of the manual under "GNU Guix Manual".
---
 website/apps/base/templates/help.scm | 42 +++++++++++++-----------------------
 1 file changed, 15 insertions(+), 27 deletions(-)

diff --git a/website/apps/base/templates/help.scm 
b/website/apps/base/templates/help.scm
index 00ba17f..20b244b 100644
--- a/website/apps/base/templates/help.scm
+++ b/website/apps/base/templates/help.scm
@@ -36,21 +36,6 @@
       (div
        (@ (class "centered-text"))
 
-       (div
-       (@ (class "summary-box"))
-       (img
-        (@ (src ,(guix-url "static/base/img/manual-icon.png"))
-           (alt "")))
-       (h3 "Guix System Manual")
-       (p
-        "The documentation about the Guix System Distribution is
-         available online as part of the GNU Guix package manager
-         manual.")
-       (p
-        ,(link-more
-          #:label "Read Guix System manual"
-          #:url (manual-url "GNU-Distribution.html"))))
-
 
        (div
        (@ (class "summary-box"))
@@ -59,20 +44,23 @@
            (alt "")))
        (h3 "GNU Guix Manual")
        (p
-        "Documentation for the GNU Guix package manager is available
-         online. You may also find more information about Guix by running "
+        "Documentation for GNU Guix is available
+         online.  You may also find more information about Guix by running "
         (code "info guix") ".")
        (p
-        ,(link-more
-          #:label "Read Guix manual"
-          #:url (if (getenv "GUIX_WEB_SITE_INFO")
-                 (guix-url "manual/en/")
-                 (guix-url "manual/")))
-     ,(link-more
-          #:label "Get Guix reference card"
-          #:url (if (getenv "GUIX_WEB_SITE_INFO")
-                 "https://www.gnu.org/software/guix/guix-refcard.pdf";
-                 (guix-url "guix-refcard.pdf")))))
+         ,(link-more #:label "Read Guix manual"
+                     #:url (guix-url "manual/en")))
+        (p
+         (a (@ (href ,(guix-url "manual/de"))) "Deutsch") " | "
+         (a (@ (href ,(guix-url "manual/en"))) "English") " | "
+         (a (@ (href ,(guix-url "manual/es"))) "español") " | "
+         (a (@ (href ,(guix-url "manual/fr"))) "français"))
+
+        ,(link-more
+         #:label "Get Guix reference card"
+         #:url (if (getenv "GUIX_WEB_SITE_INFO")
+                    "https://www.gnu.org/software/guix/guix-refcard.pdf";
+                    (guix-url "guix-refcard.pdf"))))
 
 
        (div