diff options
Diffstat (limited to 'journal.lisp')
-rwxr-xr-x | journal.lisp | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/journal.lisp b/journal.lisp index 5da6fe1..8e612e5 100755 --- a/journal.lisp +++ b/journal.lisp @@ -198,9 +198,14 @@ (<:p (<:as-is "Bitte beachten Sie, daß E-Mail-Adressen niemals veröffentlicht werden und nur von Matthias eingesehen werden können.")) - (<:p (<:strong "Hinweis an Spammer: ") - (<:as-is "Hyperlinks werden so erzeugt, daß sie von Suchmaschinen - nicht beachtet werden. Sparen Sie sich also die Mühe.")) + (<: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 + Text ist erlaubt. Leerzeilen trennen + Absätze.")) (<:form :action (link-to :view :post-id id) :method "post" :accept-charset #+(or) "ISO-10646-UTF-1" @@ -279,6 +284,12 @@ "NEU! Jetzt ohne regelmäßige Serverabstürze!" "NEU! Jetzt mit mehr als 3 % Uptime!"))) (<:as-is " •••"))) + (when *journal-warnings* + (<:div :id :warnings + (dolist (warning *journal-warnings*) + (<:div :class :journal-warning + (<:p (<:strong "Achtung!")) + (<:as-is warning))))) (<:div :id :contents (funcall thunk)) (<:div :id :navigation)) |