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

[Luis Felipe via Guix-patches via <guix-patches@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 581 bytes --]

On Friday, April 9, 2021 7:51 PM, Luis Felipe <luis.felipe.la@protonmail.com> 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.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-website-Add-Help-dropdown-menu.patch --]
[-- Type: text/x-patch; name=0001-website-Add-Help-dropdown-menu.patch, Size: 3869 bytes --]

From 0666d8ec13d1fd069e4123c0b4ee52289650ab91 Mon Sep 17 00:00:00 2001
From: Luis Felipe <luis.felipe.la@protonmail.com>
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