diff options
Diffstat (limited to 'journal.lisp')
| -rwxr-xr-x | journal.lisp | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/journal.lisp b/journal.lisp index 32bf661..e685dde 100755 --- a/journal.lisp +++ b/journal.lisp @@ -336,7 +336,7 @@ :name "id" :value (prin1-to-string id)) (<:input :type "submit" - (<:as-is "Löschen")))) + :value "Löschen"))) " | " (<:form :class :journal-entry-edit-button-form :style "display: inline;" @@ -347,7 +347,7 @@ :name "id" :value (prin1-to-string id)) (<:input :type "submit" - (<:as-is "Bearbeiten")))) + :value "Bearbeiten"))) " | " (<:a :href (link-to :view-comment-feed :post-id id :absolute t) (<:as-is @@ -432,7 +432,7 @@ :cols 40)))) (<:div (<:input :type "submit" - (<:as-is "Veröffentlichen")))))))) + :value "Veröffentlichen"))))))) (defun call-with-web-journal (page-title thunk &key canonical-uri) @@ -654,7 +654,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of trackback))) (<:input :type "hidden" :name "type" :value "trackback") (<:input :type "hidden" :name "acceptp" :value "f") - (<:input :type "submit" (<:as-is "Verwerfen"))) + (<:input :type "submit" :value "Verwerfen")) (<:form :action (link-to :moderation-page) :method "post" :accept-charset "UTF-8" @@ -663,7 +663,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of trackback))) (<:input :type "hidden" :name "type" :value "trackback") (<:input :type "hidden" :name "acceptp" :value "t") - (<:input :type "submit" (<:as-is "Annehmen"))) + (<:input :type "submit" :value "Annehmen")) (<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of trackback)) :absolute t) (<:as-html (title-of (entry-of trackback))))) (show-trackback trackback)) (<:h2 (<:as-html "Pingbacks")) @@ -677,7 +677,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of pingback))) (<:input :type "hidden" :name "type" :value "pingback") (<:input :type "hidden" :name "acceptp" :value "f") - (<:input :type "submit" (<:as-is "Verwerfen"))) + (<:input :type "submit" :value "Verwerfen")) (<:form :action (link-to :moderation-page) :method "post" :accept-charset "UTF-8" @@ -686,7 +686,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of pingback))) (<:input :type "hidden" :name "type" :value "pingback") (<:input :type "hidden" :name "acceptp" :value "t") - (<:input :type "submit" (<:as-is "Annehmen"))) + (<:input :type "submit" :value "Annehmen")) (<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of pingback)) :absolute t) (<:as-html (title-of (entry-of pingback))))) (show-pingback pingback)) (<:h2 (<:as-html "Kommentare")) @@ -700,7 +700,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of comment))) (<:input :type "hidden" :name "type" :value "comment") (<:input :type "hidden" :name "acceptp" :value "f") - (<:input :type "submit" (<:as-is "Verwerfen"))) + (<:input :type "submit" :value "Verwerfen")) (<:form :action (link-to :moderation-page) :method "post" :accept-charset "UTF-8" @@ -709,7 +709,7 @@ (<:input :type "hidden" :name "id" :value (prin1-to-string (id-of comment))) (<:input :type "hidden" :name "type" :value "comment") (<:input :type "hidden" :name "acceptp" :value "t") - (<:input :type "submit" (<:as-is "Annehmen"))) + (<:input :type "submit" :value "Annehmen")) (<:div (<:as-html "Zu: ") (<:a :href (link-to :view :post-id (id-of (entry-of comment)) :absolute t) (<:as-html (title-of (entry-of comment))))) (show-comment comment))) #.(restore-sql-reader-syntax-state)) @@ -731,8 +731,7 @@ :name "body" :value body) (<:div - (<:input :type "submit" - (<:as-is "Veröffentlichen")))) + (<:input :type "submit" :value "Veröffentlichen"))) (show-journal-entry-with-components (or id -1) title body @@ -775,8 +774,7 @@ :cols 65 (<:as-html body))))) (<:div - (<:input :type "submit" - (<:as-is "Vorschau")))))) + (<:input :type "submit" :value "Vorschau"))))) (defun show-debugging-page () |