Subject: [bug#47663] [PATCH] website: Add Help dropdown menu

From: Luis Felipe <[email-masked]>
Date: Sat, 10 Apr 2021 15:24:17 +0000

On Friday, April 9, 2021 7:51 PM, Luis Felipe <[email-masked]> wrote:

> I think that is the right behavior, Florian. So I'll add the missing link as a new item, like so:
>
> Help
>
> -   All ← Links to /help/
> -   Etc.
> -   Etc.

The attached patched does this.

>     And fix any remaining style issues for pointing and touch devices (cursor shouldn't be pointer (it wasn't before), and dropdown menu width should not shrink on click).
>

I'd like to address this separately, so I'll file a new issue and provide a patch once I have something.

From 0666d8ec13d1fd069e4123c0b4ee52289650ab91 Mon Sep 17 00:00:00 2001
From: Luis Felipe <[email-masked]>
Date: Sat, 10 Apr 2021 10:00:51 -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 | 44 +++++++++++++++++++++-
 1 file changed, 43 insertions(+), 1 deletion(-)

diff --git a/website/apps/base/templates/components.scm b/website/apps/base/templates/components.scm
index 7ca76cc..6ead1e5 100644
--- a/website/apps/base/templates/components.scm
+++ b/website/apps/base/templates/components.scm
@@ -405,7 +405,49 @@ 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 "All"
+                                      #:active-item active-item
+                                      #:url (guix-url "help/")))
+                       (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: 3c7adcaa80a7e2f4af90b6d629beed46276d66af
-- 
2.31.0