fixed html validator warnings and mistakes

local/theme.scm

@@ -18,8 +18,10 @@
   (lambda (post)
 	`(article
 	  ,(post-sxml post)
-	  (nav (time ,(date->string (post-date post)
-								"Beigetragen am ~d ~h. ~Y"))
+	  (nav (span "Beigetragen am "
+				 (time (@ (datetime ,(date->string (post-date post) "~4")))
+					   ,(date->string (post-date post)
+									  "~d ~h. ~Y")))
 		   (span "Tags: "
 				 ,(intersperse
 				   (map (lambda (tag)
@@ -39,25 +41,26 @@
    #:layout
    (lambda (site title body)
      `((doctype "html")
-       (head
-        (meta (@ (charset "utf-8")))
-		(meta (@ (name "referrer") (content "none")))
-		(meta (@ (name "viewport") (content "width=device-width")))
-        (title ,title)
-		(link (@ (rel "stylesheet") (href "/static/style.css")))
-		(link (@ (rel "alternate") (type "application/atom+xml") (title "Atom")
-				 (href ,(string-append (site-domain site) "/feed.xml"))))
-		(link (@ (rel "alternate") (type "application/rss+xml") (title "RSS")
-				 (href ,(string-append (site-domain site) "/rss-feed.xml")))))
-       (body
-		(header
-		 (nav ,@(list (link '(code "#faui2k17") "/") 
-					  (link "IRC" "/irc.html")
-					  (link "WhatsApp" "/whatsapp.html")
-					  (link "Beitragen" "/meta.html")
-					  (link "Atom" "/feed.xml")
-					  (link "RSS" "/rss-feed.xml"))))
-        ,body)))
+	   (html (@ (lang "de"))
+		(head
+         (meta (@ (charset "utf-8")))
+		 (meta (@ (name "referrer") (content "none")))
+		 (meta (@ (name "viewport") (content "width=device-width")))
+         (title ,title)
+		 (link (@ (rel "stylesheet") (href "/static/style.css")))
+		 (link (@ (rel "alternate") (type "application/atom+xml") (title "Atom")
+				  (href ,(string-append (site-domain site) "/feed.xml"))))
+		 (link (@ (rel "alternate") (type "application/rss+xml") (title "RSS")
+				  (href ,(string-append (site-domain site) "/rss-feed.xml")))))
+		(body
+		 (header
+		  (nav ,@(list (link '(code "#faui2k17") "/") 
+					   (link "IRC" "/irc.html")
+					   (link "WhatsApp" "/whatsapp.html")
+					   (link "Beitragen" "/meta.html")
+					   (link "Atom" "/feed.xml")
+					   (link "RSS" "/rss-feed.xml"))))
+         ,body))))
    #:post-template (make-post-generator)
    #:collection-template
    (lambda (site title posts prefix number last?)