Browse Source

robots

pull/2/head
Ivan Polyakov 2 years ago
parent
commit
c6e1bceaab
  1. 1
      public/robots.txt
  2. 2
      src/components/footer.scm
  3. 4
      src/components/header.scm
  4. 2
      src/templates/clean.scm
  5. 2
      src/templates/default.scm

1
public/robots.txt

@ -0,0 +1 @@
Disallow: /

2
src/components/footer.scm

@ -22,7 +22,7 @@
("http://www.anybrowser.org/campaign/" "Any Browser"))) ("http://www.anybrowser.org/campaign/" "Any Browser")))
(define footer (define footer
`(div (@ (class "footer")) `(footer (@ (class "footer"))
(div (@ (class "footer__authors")) (div (@ (class "footer__authors"))
(div "Content: " (div "Content: "
(a (@ (href "/contacts.xhtml")) "Ivan Polyakov")) (a (@ (href "/contacts.xhtml")) "Ivan Polyakov"))

4
src/components/header.scm

@ -22,10 +22,10 @@
("/contacts.xhtml" "Contacts"))) ("/contacts.xhtml" "Contacts")))
(define header (define header
`(div (@ (class "header")) `(header (@ (class "header"))
(div (@ (class "container")) (div (@ (class "container"))
(h4 (@ (class "header__logo")) "vilor") (h4 (@ (class "header__logo")) "vilor")
(span (@ (class "header__nav")) (nav (@ (class "header__nav"))
,(let ((idx -1)) ,(let ((idx -1))
(map (lambda (l) (map (lambda (l)
(set! idx (+ idx 1)) (set! idx (+ idx 1))

2
src/templates/clean.scm

@ -43,6 +43,8 @@
(meta (@ (name "viewport") (meta (@ (name "viewport")
(content "width=device-width, initial-scale=1"))) (content "width=device-width, initial-scale=1")))
(meta (@ (name "robots") (content "noindex,nofollow")))
,(map (lambda (args) ,(map (lambda (args)
`(meta ,(append '(@) args))) page-meta) `(meta ,(append '(@) args))) page-meta)

2
src/templates/default.scm

@ -36,7 +36,7 @@
,header ,header
(hr) (hr)
(div (@ (class "content container")) (main (@ (class "content container"))
(h1 (@ (class "content__title")) ,page-name) (h1 (@ (class "content__title")) ,page-name)
(div (@ (class "content__description")) ,page-desc) (div (@ (class "content__description")) ,page-desc)
,page-content) ,page-content)

Loading…
Cancel
Save