Subject: [PATCH] website: Add Help dropdown menu

From: Luis Felipe <[email-masked]>
Date: Thu, 08 Apr 2021 19:49:07 +0000

Hi,

This patch converts the Help item of the navigation bar into a dropdown menu as proposed in the thread "Document our WIP" (https://lists.gnu.org/archive/html/guix-devel/2021-03/msg00532.html).

---
Luis Felipe López Acevedo
https://luis-felipe.gitlab.io/

From dad14c86f4feee4a5e41748db4935870afe15e43 Mon Sep 17 00:00:00 2001
From: Luis Felipe <[email-masked]>
Date: Thu, 8 Apr 2021 14:34:37 -0500
Subject: [PATCH] website: Add Help dropdown menu.

This change converts the Help item of the primary navigation of the
website into a dropdown menu listing the items currently available in
the Help page.

This was proposed in the thread "Document our WIP" sent to the
guix-devel mailing list on March 27, 2021.

* website/apps/base/templates/components.scm (navbar): Make Help a dropdown.
---
 website/apps/base/templates/components.scm | 40 +++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm
index 7ca76cc..c965d41 100644
--- a/website/apps/base/templates/components.scm
+++ b/website/apps/base/templates/components.scm
@@ -405,7 +405,45 @@ manual.
                            (menu-item #:label "Latest"
                                       #:active-item active-item
                                       #:url (guix-url "download/latest/")))))
-      ,(C_ "website menu" (menu-item #:label "Help" #:active-item active-item #:url (guix-url "help/")))
+
+      ,(menu-dropdown #:label (C_ "website menu" "Help")
+                      #:active-item active-item
+                      #:items
+                      (list
+                       (C_ "website menu"
+                           (menu-item #:label "GNU Guix Manual"
+                                      #:active-item active-item
+                                      #:url (guix-url "manual/")))
+                       (C_ "website menu"
+                           (menu-item #:label "Guix Reference Card"
+                                      #:active-item active-item
+                                      #:url (guix-url "guix-refcard.pdf")))
+                       (C_ "website menu"
+                           (menu-item #:label "Videos"
+                                      #:active-item active-item
+                                      #:url (guix-url "videos/")))
+                       (C_ "website menu"
+                           (menu-item #:label "Cookbook"
+                                      #:active-item active-item
+                                      #:url (guix-url "cookbook/")))
+                       (C_ "website menu"
+                           (menu-item #:label "GNU Manuals"
+                                      #:active-item active-item
+                                      #:url (gnu-url "manual/")))
+                       (C_ "website menu"
+                           (menu-item #:label "Wiki"
+                                      #:active-item active-item
+                                      #:url (identity "https://libreplanet.org/wiki/Group:Guix")))
+                       (C_ "website menu"
+                           (menu-item #:label "IRC Chat"
+                                      #:active-item active-item
+                                      #:url (guix-url "contact/irc/")))
+                       (C_ "website menu"
+                           (menu-item #:label "Mailing Lists"
+                                      #:active-item active-item
+                                      #:url (guix-url "contact/")))))
+
+
       ,(C_ "website menu" (menu-item #:label "Packages" #:active-item active-item #:url (guix-url "packages/")))
       ,(C_ "website menu" (menu-item #:label "Blog" #:active-item active-item #:url (guix-url "blog/")))

base-commit: c46cc7d80a1e90d3d841e5b59f6e131bf2052c87
-- 
2.31.0