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(+)
@@ -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