From 71499fde9c51e7065a2c49efdf3112ed089823f7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 15 Nov 2009 00:39:02 +0100 Subject: Make the markup conforming to HTML 5. Ignore-this: 2c310c1e5a4e8523c49cfb3a0a84dc02 darcs-hash:b41720252de2561a4ce52f4363f8131ff98d6ce7 --- journal.lisp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/journal.lisp b/journal.lisp index 03a0d41..5f55482 100755 --- a/journal.lisp +++ b/journal.lisp @@ -436,8 +436,13 @@ ;; derived from the code alone by HTML parsers. (It can be by XML ;; parses because of the XML preamble.) This would make saving the ;; page on a disk inconvenient. - (<:meta :http-equiv "Content-Type" - :content "text/html; charset=UTF-8") + ;; + ;; Also, it's non-conforming for XHTML documents other than XHTML + ;; 1.0. + ;; + ;;(<:meta :http-equiv "Content-Type" + ;; :content "text/html; charset=UTF-8") + ;; The iPhone's Mobile Safari browser scales all web pages by ;; default in order to make them look as if on a PC-sized monitor. ;; That's great for all those flashy web sites out there that aren't @@ -474,13 +479,13 @@ (<:a :href (link-to :index) "Kompottkins Weisheiten")) (<:div :id :main-subtitle - (<:as-is "••• ") + (<:as-is "••• ") (<:as-is (random-elt '("Geschwafel eines libertärsozialistischen Geeks" "NEU! Jetzt ohne regelmäßige Serverabstürze!" "NEU! Jetzt mit mehr als 3 % Uptime!"))) - (<:as-is " •••"))) + (<:as-is " •••"))) (when (and *journal-warnings* (eq *mode* :http)) (<:div :id :warnings (dolist (warning *journal-warnings*) -- cgit v1.2.3