From 6aaaff6912a797ab9fca7f1a43835d10fb5a3ecf Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 15 Nov 2009 00:59:03 +0100 Subject: Use numeric HTML entity references only. Ignore-this: f3933359559709d5b69560e618ba018b darcs-hash:723349e974eeb14be1ee1f959cfebb756c25eae0 --- journal.lisp | 36 ++++++++++++++++++------------------ main.lisp | 16 ++++++++-------- 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%, %hr%:%2min%" posting-date))) + (<:as-is (format-date nil "%day%.%mon%.%yr%, %hr%:%2min%" posting-date))) (<:td (<:a :href (link-to :view :post-id id) (<:as-is - (format nil "~D Kommentar~:*~[e~;~:;e~]" (length comments))))))) + (format nil "~D 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öschen")))) + (<:as-is "Lö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 "—") (link-to :trackback :post-id id :absolute t))) (<:div :class :journal-new-comment (<:h2 "Neuen Kommentar schreiben") - (<:p (<:as-is "Bitte beachten Sie, daß E-Mail-Adressen niemals - veröffentlicht werden und nur von Matthias eingesehen - werden können.")) + (<:p (<:as-is "Bitte beachten Sie, daß E-Mail-Adressen niemals + veröffentlicht werden und nur von Matthias eingesehen + werden können.")) (<:p (<:strong "Hinweise: ") "Diese Website verwendet " (<:a :href "http://akismet.com/" "Akismet") " zur Spamerkennung. " - (<:as-is "E-Mail-Adressen werden auch gegenüber Akismet - unter Verschluß gehalten. Nur unformatierter + (<:as-is "E-Mail-Adressen werden auch gegenüber Akismet + unter Verschluß gehalten. Nur unformatierter Text ist erlaubt. Leerzeilen trennen - Absätze.")) + Absä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ötig)") + (loop for (name . desc) in '(("author" . "Name (nö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öffentlichen")))))))) + (<:as-is "Veröffentlichen")))))))) (defun call-with-web-journal (page-title thunk &key canonical-uri) @@ -482,8 +482,8 @@ (<:as-is "••• ") (<:as-is (random-elt - '("Geschwafel eines libertärsozialistischen Geeks" - "NEU! Jetzt ohne regelmäßige Serverabstürze!" + '("Geschwafel eines libertärsozialistischen Geeks" + "NEU! Jetzt ohne regelmäßige Serverabstürze!" "NEU! Jetzt mit mehr als 3 % Uptime!"))) (<:as-is " •••"))) (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 "Ältere Einträge")) + (<:h2 (<:as-is "Ältere Einträge")) (<:p (<:a :href (link-to :full-index) - (<:as-is "Alle Einträge vollständig anzeigen (langsam!)."))) + (<:as-is "Alle Einträge vollständig anzeigen (langsam!)."))) (<:table :class :old-entry-table - (<:caption (<:as-is "Einträge nach Datum")) + (<:caption (<:as-is "Einträge nach Datum")) (<:thead (<:tr (<:th (<:as-is "Titel")) @@ -699,7 +699,7 @@ :value body) (<:div (<:button :type "submit" - (<:as-is "Veröffentlichen")))) + (<:as-is "Verö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 "Überschrift: "))) + (<:as-is "Ü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 "

Ihr Kommentar wurde als ~ - mögliche unerwünschte ~ + mögliche unerwünschte ~ Werbung (Spam) klassifiert. Der ~ Inhaber dieses Journals wird Ihre ~ Nachricht manuell moderieren ~ - müssen, weshalb eine ~ - Veröffentlichung noch etwas ~ + müssen, weshalb eine ~ + Veröffentlichung noch etwas ~ auf sich warten lassen kann.

~ ~

Wenn Sie ganz sichergehen ~ - wollen, daß Ihr Beitrag ~ - veröffentlicht wird, dann ~ - können Sie versuchen, ihn ~ - abzuändern und erneut ~ + wollen, daß Ihr Beitrag ~ + veröffentlicht wird, dann ~ + können Sie versuchen, ihn ~ + abzuändern und erneut ~ einzuschicken.

~ ~

Hinweis: Diese Website verwendet ~ Akismet ~ - für die Spamerkennung.

") + für die Spamerkennung.

") *journal-warnings*)) (unless spam-p (push (format nil -- cgit v1.2.3