diff mbox series

[bug#43803] website: theme: Allow adding noindex meta element to pages.

Message ID Adtf7FdsCXOUg9flm5uVch_vT6GV-rW1b8C2Ey62TBEww3Uu-UVftD7ntqEdIwRNbuiVG0qD277-NQjhRjHjmbP7JDX5jziRkZhfMxbN5y8=@protonmail.com
State Accepted
Headers show
Series [bug#43803] website: theme: Allow adding noindex meta element to pages. | expand

Checks

Context Check Description
cbaines/applying patch fail View Laminar job

Commit Message

kasper.andersson--- via Guix-patches" via Oct. 4, 2020, 9:07 p.m. UTC 
Hi, this is to allow some pages to tell search engines not to list them in search results. For example, the paginated pages of the package list and blog posts.

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

Comments

Mathieu Othacehe Oct. 5, 2020, 1:18 p.m. UTC | #1 
Hello,

> +                (noindex? #false)

You can use #f instead.

This means that indexing will be disabled for every single page?

Thanks,

Mathieu
Ricardo Wurmus Oct. 5, 2020, 1:41 p.m. UTC | #2 
Mathieu Othacehe <othacehe@gnu.org> writes:

>> +                (noindex? #false)
>
> You can use #f instead.

I gotta say that I do prefer #false and think that using it elsewhere in
Guix would be nice.  Yes, #f is shorter, but there’s something nice
about the readability of #false.  We don’t usually abbreviate other
things in Scheme (cf “call-with-current-continuation”), so #false would
feel right at home :)
Ludovic Courtès Oct. 14, 2020, 9:26 a.m. UTC | #3 
Hi,

Ricardo Wurmus <rekado@elephly.net> skribis:

> I gotta say that I do prefer #false and think that using it elsewhere in
> Guix would be nice.  Yes, #f is shorter, but there’s something nice
> about the readability of #false.  We don’t usually abbreviate other
> things in Scheme (cf “call-with-current-continuation”), so #false would
> feel right at home :)

Seconded!  I think at some point we should do a pass to replace as many
#t/#f as possible, especially in the manual and cookbook.

Ludo’.
diff mbox series

Patch

From d93d31c6faf4b7ec24f875933893cf46315bd9fd Mon Sep 17 00:00:00 2001
From: Luis Felipe <luis.felipe.la@protonmail.com>
Date: Sun, 4 Oct 2020 15:43:53 -0500
Subject: [PATCH] website: theme: Allow adding noindex meta element to pages.

This change allows to tell Internet robots not to index some pages.

* website/apps/base/templates/theme.scm (theme): New parameter NOINDEX?
---
 website/apps/base/templates/theme.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/website/apps/base/templates/theme.scm b/website/apps/base/templates/theme.scm
index 4734ee5..8263bf5 100644
--- a/website/apps/base/templates/theme.scm
+++ b/website/apps/base/templates/theme.scm
@@ -1,4 +1,5 @@ 
 ;;; GNU Guix web site
+;;; Public domain 2020 Luis Felipe López Acevedo
 ;;; Initially written by sirgazil who waives all
 ;;; copyright interest on this file.
 
@@ -14,6 +15,7 @@ 
 		(title '())
 		(description "")
 		(keywords '())
+                (noindex? #false)
                 (active-menu-item (C_ "website menu" "About"))
 		(css '())
 		(scripts '())
@@ -42,6 +44,12 @@ 
      A list of keyword strings that will be used as the value for
      the keywords meta element of the document.
 
+   NOINDEX? (boolean)
+     Indicate whether the page should tell Internet robots not to
+     index it. This is useful, for example, to avoid search engine
+     robots listing some pages in search results. If not provided,
+     it defaults to false.
+
    ACTIVE-MENU-ITEM (string)
      The label of the menu item in the navigation bar that should be
      highlighted to indicate the current section of the website that
@@ -79,6 +87,10 @@ 
       (meta (@ (name "keywords") (content ,(string-join keywords ", "))))
       (meta (@ (name "description") (content ,description)))
       (meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0")))
+      ;; Info for Internet robots.
+      ,(if noindex?
+           '(meta (@ (name "robots") (content "noindex")))
+           "")
       ;; Menu prefetch.
       (link (@ (rel "prefetch") (href ,(guix-url "menu/index.html"))))
       ;; Base CSS.
-- 
2.28.0