Unverified Commit c838e518 authored by Philip Kaludercic's avatar Philip Kaludercic 🌝
Browse files

fixed html validator warnings and mistakes

parent 84fbb338
...@@ -18,8 +18,10 @@ ...@@ -18,8 +18,10 @@
(lambda (post) (lambda (post)
`(article `(article
,(post-sxml post) ,(post-sxml post)
(nav (time ,(date->string (post-date post) (nav (span "Beigetragen am "
"Beigetragen am ~d ~h. ~Y")) (time (@ (datetime ,(date->string (post-date post) "~4")))
,(date->string (post-date post)
"~d ~h. ~Y")))
(span "Tags: " (span "Tags: "
,(intersperse ,(intersperse
(map (lambda (tag) (map (lambda (tag)
...@@ -39,25 +41,26 @@ ...@@ -39,25 +41,26 @@
#:layout #:layout
(lambda (site title body) (lambda (site title body)
`((doctype "html") `((doctype "html")
(head (html (@ (lang "de"))
(meta (@ (charset "utf-8"))) (head
(meta (@ (name "referrer") (content "none"))) (meta (@ (charset "utf-8")))
(meta (@ (name "viewport") (content "width=device-width"))) (meta (@ (name "referrer") (content "none")))
(title ,title) (meta (@ (name "viewport") (content "width=device-width")))
(link (@ (rel "stylesheet") (href "/static/style.css"))) (title ,title)
(link (@ (rel "alternate") (type "application/atom+xml") (title "Atom") (link (@ (rel "stylesheet") (href "/static/style.css")))
(href ,(string-append (site-domain site) "/feed.xml")))) (link (@ (rel "alternate") (type "application/atom+xml") (title "Atom")
(link (@ (rel "alternate") (type "application/rss+xml") (title "RSS") (href ,(string-append (site-domain site) "/feed.xml"))))
(href ,(string-append (site-domain site) "/rss-feed.xml"))))) (link (@ (rel "alternate") (type "application/rss+xml") (title "RSS")
(body (href ,(string-append (site-domain site) "/rss-feed.xml")))))
(header (body
(nav ,@(list (link '(code "#faui2k17") "/") (header
(link "IRC" "/irc.html") (nav ,@(list (link '(code "#faui2k17") "/")
(link "WhatsApp" "/whatsapp.html") (link "IRC" "/irc.html")
(link "Beitragen" "/meta.html") (link "WhatsApp" "/whatsapp.html")
(link "Atom" "/feed.xml") (link "Beitragen" "/meta.html")
(link "RSS" "/rss-feed.xml")))) (link "Atom" "/feed.xml")
,body))) (link "RSS" "/rss-feed.xml"))))
,body))))
#:post-template (make-post-generator) #:post-template (make-post-generator)
#:collection-template #:collection-template
(lambda (site title posts prefix number last?) (lambda (site title posts prefix number last?)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment