diff options
Diffstat (limited to 'journal.lisp')
| -rwxr-xr-x | journal.lisp | 36 |
1 files changed, 18 insertions, 18 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" |