|
Revision 3656, 0.7 kB
(checked in by ksprotte, 4 months ago)
|
whitespace cleanup
|
| Line | |
|---|
| 1 |
;; 2008-01-15: currently not used in the production core |
|---|
| 2 |
|
|---|
| 3 |
(in-package :bos.web) |
|---|
| 4 |
|
|---|
| 5 |
(defmethod rss-item-channel ((item news-item)) |
|---|
| 6 |
"news") |
|---|
| 7 |
|
|---|
| 8 |
(defmethod rss-item-published ((item news-item)) |
|---|
| 9 |
(format t "Language: ~A~%" (request-language)) |
|---|
| 10 |
t) |
|---|
| 11 |
|
|---|
| 12 |
(defmethod rss-item-title ((item news-item)) |
|---|
| 13 |
(news-item-title item (request-language))) |
|---|
| 14 |
|
|---|
| 15 |
(defmethod rss-item-description ((item news-item)) |
|---|
| 16 |
(news-item-text item (request-language))) |
|---|
| 17 |
|
|---|
| 18 |
(defmethod rss-item-link ((item news-item)) |
|---|
| 19 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (request-language) (store-object-id item))) |
|---|
| 20 |
|
|---|
| 21 |
(defmethod rss-item-guid ((item news-item)) |
|---|
| 22 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (request-language) (store-object-id item))) |
|---|
