branch master updated: website: theme: Allow adding the noindex meta element to pages.

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository guix-artwork.

The following commit(s) were added to refs/heads/master by this push:
     new 76b4088  website: theme: Allow adding the noindex meta element to 
pages.
76b4088 is described below

commit 76b4088c702764add39c39b2fdff6ef8ce5e1007
Author: Luis Felipe <luis.felipe.la@protonmail.com>
AuthorDate: Mon Oct 5 13:10:27 2020 -0500

    website: theme: Allow adding the 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 INDEX?
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 website/apps/base/templates/theme.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/website/apps/base/templates/theme.scm 
b/website/apps/base/templates/theme.scm
index f5677a9..28c1ec4 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 '())
+                (index? #true)
                 (active-menu-item (C_ "website menu" "About"))
                (css '())
                (scripts '())
@@ -42,6 +44,11 @@
      A list of keyword strings that will be used as the value for
      the keywords meta element of the document.
 
+   INDEX? (boolean)
+     Indicate whether the page should be indexed by Internet robots,
+     such as search engine robots. If not provided, it defaults to
+     true.
+
    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 +86,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 index?
+           ""
+           '(meta (@ (name "robots") (content "noindex"))))
       ;; Menu prefetch.
       (link (@ (rel "prefetch") (href ,(guix-url "menu/index.html"))))
       ;; Base CSS.