From c6e1bceaabdd007a17d0ff3f65c7bb20028701e3 Mon Sep 17 00:00:00 2001
From: Ivan Polyakov <v1lor at protonmail dot com>
Date: Thu, 16 Jun 2022 20:44:46 +0300
Subject: [PATCH] robots

---
 public/robots.txt         | 1 +
 src/components/footer.scm | 2 +-
 src/components/header.scm | 4 ++--
 src/templates/clean.scm   | 2 ++
 src/templates/default.scm | 2 +-
 5 files changed, 7 insertions(+), 4 deletions(-)
 create mode 100644 public/robots.txt

diff --git a/public/robots.txt b/public/robots.txt
new file mode 100644
index 0000000..87b5f59
--- /dev/null
+++ b/public/robots.txt
@@ -0,0 +1 @@
+Disallow: /
diff --git a/src/components/footer.scm b/src/components/footer.scm
index aaa3b1b..d80a485 100644
--- a/src/components/footer.scm
+++ b/src/components/footer.scm
@@ -22,7 +22,7 @@
     ("http://www.anybrowser.org/campaign/" "Any Browser")))
 
 (define footer
-  `(div (@ (class "footer"))
+  `(footer (@ (class "footer"))
         (div (@ (class "footer__authors"))
              (div "Content: "
                   (a (@ (href "/contacts.xhtml")) "Ivan Polyakov"))
diff --git a/src/components/header.scm b/src/components/header.scm
index fe6ad83..ae7b660 100644
--- a/src/components/header.scm
+++ b/src/components/header.scm
@@ -22,10 +22,10 @@
     ("/contacts.xhtml" "Contacts")))
 
 (define header
-  `(div (@ (class "header"))
+  `(header (@ (class "header"))
         (div (@ (class "container"))
              (h4 (@ (class "header__logo")) "vilor")
-             (span (@ (class "header__nav"))
+             (nav (@ (class "header__nav"))
                    ,(let ((idx -1))
                       (map (lambda (l)
                              (set! idx (+ idx 1))
diff --git a/src/templates/clean.scm b/src/templates/clean.scm
index 2f13c41..ad15cdd 100644
--- a/src/templates/clean.scm
+++ b/src/templates/clean.scm
@@ -43,6 +43,8 @@
           (meta (@ (name "viewport")
                    (content "width=device-width, initial-scale=1")))
 
+          (meta (@ (name "robots") (content "noindex,nofollow")))
+
           ,(map (lambda (args)
                   `(meta ,(append '(@) args))) page-meta)
 
diff --git a/src/templates/default.scm b/src/templates/default.scm
index a819366..0534e9c 100644
--- a/src/templates/default.scm
+++ b/src/templates/default.scm
@@ -36,7 +36,7 @@
           ,header
           (hr)
 
-          (div (@ (class "content container"))
+          (main (@ (class "content container"))
                (h1 (@ (class "content__title")) ,page-name)
                (div (@ (class "content__description")) ,page-desc)
                ,page-content)