summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2010-01-31 11:25:43 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2010-01-31 11:25:43 +0100
commit2d3e07d3ca553cc43f5f67195602d4ef337128fa (patch)
tree55cf0ec96586247df03ae0b46c5ed7dee6725733
parent04ee80accfdda18d428dd51b5b8eb79d8fdcccaa (diff)
Fix umlauts on form button labels.
Ignore-this: d76e4f9f4508631dc588264cd43c4611 darcs-hash:a5cd3660489008840f21573f3cd9876974294719
-rwxr-xr-xjournal.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/journal.lisp b/journal.lisp
index e685dde..04fd4aa 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -336,7 +336,7 @@
:name "id"
:value (prin1-to-string id))
(<:input :type "submit"
- :value "L&#246;schen")))
+ :value "Löschen")))
" | "
(<:form :class :journal-entry-edit-button-form
:style "display: inline;"
@@ -432,7 +432,7 @@
:cols 40))))
(<:div
(<:input :type "submit"
- :value "Ver&#246;ffentlichen")))))))
+ :value "Veröffentlichen")))))))
(defun call-with-web-journal (page-title thunk &key canonical-uri)
@@ -731,7 +731,7 @@
:name "body"
:value body)
(<:div
- (<:input :type "submit" :value "Ver&#246;ffentlichen")))
+ (<:input :type "submit" :value "Veröffentlichen")))
(show-journal-entry-with-components (or id -1)
title
body