diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-15 02:31:05 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-15 02:31:05 +0100 |
| commit | c3ea1aa07b655bec89726cfc0153bedcc877ada6 (patch) | |
| tree | a13cf0a98f8df95a693f8f7a8590af87c4f6cf18 /mulkcms.lisp | |
| parent | 2e4f9782e13b613b1a2a7e525ba57e6f7062317d (diff) | |
Color info messages more meaningfully.
Diffstat (limited to 'mulkcms.lisp')
| -rw-r--r-- | mulkcms.lisp | 53 |
1 files changed, 30 insertions, 23 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 8f1e2ce..03f57af 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -717,32 +717,39 @@ :none) (setq submission-notice (cond - (spam-p "<p><strong>Warning:</strong></p> - - <p>Your message could not be - verified as non-spam. If - JavaScript is enabled in your - browser, it may be broken in - some way. In this case, please - disable JavaScript support and - try again. Otherwise, feel free - to contact one of the site - administrators, who will be able - to manually approve your - comment.</p>") - (t "<p><strong>Note:</strong></p> - - <p>Your message has been received and - classified as non-spam. It has thus - been put into the moderation queue and - is now awaiting approval by one of the - site's administrators.</p>"))))))) + (spam-p + (list + :content "<p><strong>Warning:</strong></p> + + <p>Your message could not be + verified as non-spam. If + JavaScript is enabled in your + browser, it may be broken in + some way. In this case, + please disable JavaScript + support and try again. + Otherwise, feel free to + contact one of the site + administrators, who will be + able to manually approve your + comment.</p>" + :message-type "warning")) + (t + (list + :content "<p><strong>Note:</strong></p> + + <p>Your message has been received and + classified as non-spam. It has thus + been put into the moderation queue and + is now awaiting approval by one of the + site's administrators.</p>" + :message-type "success-message")))))))) (expand-page page-template (getf article-params :title) (list* :articles (list article-params) - :warnings (if submission-notice - (list submission-notice) - nil) + :info-messages (if submission-notice + (list submission-notice) + nil) template-params)))))))))) |