Author: hhubner Date: 2007-04-03 02:41:27 -0400 (Tue, 03 Apr 2007) New Revision: 2139 Modified: trunk/projects/bos/worldpay-test/news-handlers.lisp trunk/projects/bos/worldpay-test/news-tags.lisp Log: Enable rich text editing of news item. Display only title as link on front page. Modified: trunk/projects/bos/worldpay-test/news-handlers.lisp =================================================================== --- trunk/projects/bos/worldpay-test/news-handlers.lisp 2007-04-03 06:38:50 UTC (rev 2138) +++ trunk/projects/bos/worldpay-test/news-handlers.lisp 2007-04-03 06:41:27 UTC (rev 2139) @@ -35,6 +35,8 @@ (let ((language (session-variable :language))) (with-bos-cms-page (req :title "Edit news item") (content-language-chooser req) + ((:script :type "text/javascript") + "tinyMCE.init({ mode : 'textareas', theme : 'advanced' });") ((:form :method "post") (:table (:tr (:td "title") Modified: trunk/projects/bos/worldpay-test/news-tags.lisp =================================================================== --- trunk/projects/bos/worldpay-test/news-tags.lisp 2007-04-03 06:38:50 UTC (rev 2138) +++ trunk/projects/bos/worldpay-test/news-tags.lisp 2007-04-03 06:41:27 UTC (rev 2139) @@ -19,17 +19,11 @@ :key #'news-item-time) 0 (unless archive 3)))) (labels ((show-news-entry (news-item) - (html (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil)) - " - " - (:princ-safe (news-item-title news-item language))) - :br - (:princ-safe (subseq (news-item-text news-item language) 0 - (min *news-item-snippet-length* - (length (news-item-text news-item language))))) - " " - ((:a :href (format nil "javascript:window_news('news/~a')" (store-object-id news-item)) + (html ((:a :href (format nil "javascript:window_news('news/~a')" (store-object-id news-item)) :class "more") - "... mehr")))) + (:strong (:princ-safe (format-date-time (news-item-time news-item) :show-time nil)) + " - " + (:princ-safe (news-item-title news-item language))))))) (loop for news-item in news-items for index from 1 do (if archive @@ -46,4 +40,4 @@ ", " (:princ-safe (news-item-title news-item language))) ((:p :class "text_content") - (text-with-linebreaks (news-item-text news-item language)))))) \ No newline at end of file + (:princ (news-item-text news-item language)))))) \ No newline at end of file