Use numeric HTML entity references only.

Ignore-this: f3933359559709d5b69560e618ba018b

darcs-hash:723349e974eeb14be1ee1f959cfebb756c25eae0

2 files changed, 26 insertions, 26 deletions

diff --git a/journal.lisp b/journal.lisp
index 5f55482..9d36cb3 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -286,10 +286,10 @@
      (<:td (<:a :href (link-to :view :post-id id)
             (<:as-is title)))
      (<:td :style "text-align: right"
-      (<:as-is (format-date nil "%day%.%mon%.%yr%,&nbsp;%hr%:%2min%" posting-date)))
+      (<:as-is (format-date nil "%day%.%mon%.%yr%,&#160;%hr%:%2min%" posting-date)))
      (<:td (<:a :href (link-to :view :post-id id)
             (<:as-is
-             (format nil "~D&nbsp;Kommentar~:*~[e~;~:;e~]" (length comments)))))))
+             (format nil "~D&#160;Kommentar~:*~[e~;~:;e~]" (length comments)))))))
 
   (when *full-entry-view*
     (<:div :class :journal-entry
@@ -321,7 +321,7 @@
                   :name "id"
                   :value (prin1-to-string id))
          (<:button :type "submit"
-                   (<:as-is "L&ouml;schen"))))
+                   (<:as-is "L&#246;schen"))))
        " | "
        (<:form :class :journal-entry-edit-button-form
                :style "display: inline;"
@@ -364,17 +364,17 @@
 -->" (link-to :view :post-id id :absolute t) (ppcre:regex-replace "--" title "&#8212;") (link-to :trackback :post-id id :absolute t)))
       (<:div :class :journal-new-comment
        (<:h2 "Neuen Kommentar schreiben")
-       (<:p (<:as-is "Bitte beachten Sie, da&szlig; E-Mail-Adressen niemals
-                      ver&ouml;ffentlicht werden und nur von Matthias eingesehen
-                      werden k&ouml;nnen."))
+       (<:p (<:as-is "Bitte beachten Sie, da&#223; E-Mail-Adressen niemals
+                      ver&#246;ffentlicht werden und nur von Matthias eingesehen
+                      werden k&#246;nnen."))
        (<:p (<:strong "Hinweise: ")
             "Diese Website verwendet "
             (<:a :href "http://akismet.com/" "Akismet")
             " zur Spamerkennung. "
-            (<:as-is "E-Mail-Adressen werden auch gegen&uuml;ber Akismet
-                      unter Verschlu&szlig; gehalten.  Nur unformatierter
+            (<:as-is "E-Mail-Adressen werden auch gegen&#252;ber Akismet
+                      unter Verschlu&#223; gehalten.  Nur unformatierter
                       Text ist erlaubt.  Leerzeilen trennen
-                      Abs&auml;tze."))
+                      Abs&#228;tze."))
        (<:form :action (link-to :view :post-id id)
                :method "post"
                :accept-charset #+(or) "ISO-10646-UTF-1"
@@ -389,7 +389,7 @@
                   :name "action"
                   :value "post-comment"))
         (<:div :style "display: table"
-         (loop for (name . desc) in '(("author" . "Name (n&ouml;tig)")
+         (loop for (name . desc) in '(("author" . "Name (n&#246;tig)")
                                       ("email" . "E-Mail")
                                       ("website" . "Website"))
                do (<:div :style "display: table-row"
@@ -413,7 +413,7 @@
                        :cols 40))))
         (<:div
          (<:button :type "submit"
-          (<:as-is "Ver&ouml;ffentlichen"))))))))
+          (<:as-is "Ver&#246;ffentlichen"))))))))
 
 
 (defun call-with-web-journal (page-title thunk &key canonical-uri)
@@ -482,8 +482,8 @@
       (<: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!"
+        '("Geschwafel eines libert&#228;rsozialistischen Geeks"
+          "NEU!  Jetzt ohne regelm&#228;&#223;ige Serverabst&#252;rze!"
           "NEU!  Jetzt mit mehr als 3 % Uptime!")))
       (<:as-is " &#8226;&#8226;&#8226;")))
     (when (and *journal-warnings* (eq *mode* :http))
@@ -542,12 +542,12 @@
              (show-journal-entry entry)))
          (unless full-journal-view
            (<:div :class :old-entries
-            (<:h2 (<:as-is "&Auml;ltere Eintr&auml;ge"))
+            (<:h2 (<:as-is "&#196;ltere Eintr&#228;ge"))
             (<:p
              (<:a :href (link-to :full-index)
-              (<:as-is "Alle Eintr&auml;ge vollst&auml;ndig anzeigen (langsam!).")))
+              (<:as-is "Alle Eintr&#228;ge vollst&#228;ndig anzeigen (langsam!).")))
             (<:table :class :old-entry-table
-             (<:caption (<:as-is "Eintr&auml;ge nach Datum"))
+             (<:caption (<:as-is "Eintr&#228;ge nach Datum"))
              (<:thead
               (<:tr
                (<:th (<:as-is "Titel"))
@@ -699,7 +699,7 @@
                :value body)
       (<:div
        (<:button :type "submit"
-        (<:as-is "Ver&ouml;ffentlichen"))))
+        (<:as-is "Ver&#246;ffentlichen"))))
     (show-journal-entry-with-components (or id -1)
                                         title
                                         body
@@ -724,7 +724,7 @@
         (<:div :style "display: table-cell; vertical-align: top"
          (<:label :for "entry-title-editor"
                   :style "vertical-align: top"
-          (<:as-is "&Uuml;berschrift: ")))
+          (<:as-is "&#220;berschrift: ")))
         (<:div :style "display: table-cell;"
          (<:input :type "text"
                   :name "title"
diff --git a/main.lisp b/main.lisp
index 34085a6..a770bcc 100644
--- a/main.lisp
+++ b/main.lisp
@@ -209,24 +209,24 @@
                            (when spam-p
                              (push (format nil
                                     "<p>Ihr Kommentar wurde als ~
-                                     m&ouml;gliche unerw&uuml;nschte ~
+                                     m&#246;gliche unerw&#252;nschte ~
                                      Werbung (Spam) klassifiert.  Der ~
                                      Inhaber dieses Journals wird Ihre ~
                                      Nachricht manuell moderieren ~
-                                     m&uuml;ssen, weshalb eine ~
-                                     Ver&ouml;ffentlichung noch etwas ~
+                                     m&#252;ssen, weshalb eine ~
+                                     Ver&#246;ffentlichung noch etwas ~
                                      auf sich warten lassen kann.</p> ~
                                      ~
                                      <p>Wenn Sie ganz sichergehen ~
-                                     wollen, da&szlig; Ihr Beitrag ~
-                                     ver&ouml;ffentlicht wird, dann ~
-                                     k&ouml;nnen Sie versuchen, ihn ~
-                                     abzu&auml;ndern und erneut ~
+                                     wollen, da&#223; Ihr Beitrag ~
+                                     ver&#246;ffentlicht wird, dann ~
+                                     k&#246;nnen Sie versuchen, ihn ~
+                                     abzu&#228;ndern und erneut ~
                                      einzuschicken.</p>~
                                      ~
                                      <p>Hinweis: Diese Website verwendet ~
                                      <a href=\"http://akismet.com/\">Akismet</a> ~
-                                     f&uuml;r die Spamerkennung.</p>")
+                                     f&#252;r die Spamerkennung.</p>")
                                      *journal-warnings*))
                            (unless spam-p
                              (push (format nil