summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-11-15 00:39:02 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-11-15 00:39:02 +0100
commit71499fde9c51e7065a2c49efdf3112ed089823f7 (patch)
treeee2a92dcb7c365451fd29e787ac758c93553dd58
parent4998780a9f04f24d1ab9a6754cde85a9244b93ed (diff)
Make the markup conforming to HTML 5.
Ignore-this: 2c310c1e5a4e8523c49cfb3a0a84dc02 darcs-hash:b41720252de2561a4ce52f4363f8131ff98d6ce7
-rwxr-xr-xjournal.lisp13
1 files 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 "&bull;&bull;&bull; ")
+ (<:as-is "&#8226;&#8226;&#8226; ")
(<:as-is
(random-elt
'("Geschwafel eines libert&auml;rsozialistischen Geeks"
"NEU! Jetzt ohne regelm&auml;&szlig;ige Serverabst&uuml;rze!"
"NEU! Jetzt mit mehr als 3 % Uptime!")))
- (<:as-is " &bull;&bull;&bull;")))
+ (<:as-is " &#8226;&#8226;&#8226;")))
(when (and *journal-warnings* (eq *mode* :http))
(<:div :id :warnings
(dolist (warning *journal-warnings*)