|
Revision 3671, 1.0 kB
(checked in by ksprotte, 4 months ago)
|
again whitespace cleanup + removed tabs
|
| Line | |
|---|
| 1 |
(in-package :bos.m2) |
|---|
| 2 |
|
|---|
| 3 |
(defmethod rss-item-channel ((contract contract)) |
|---|
| 4 |
"news") |
|---|
| 5 |
|
|---|
| 6 |
(defmethod rss-item-published ((contract contract)) |
|---|
| 7 |
(contract-paidp contract)) |
|---|
| 8 |
|
|---|
| 9 |
(defmethod rss-item-title ((contract contract)) |
|---|
| 10 |
(format nil (case (intern (bos.web::request-language)) |
|---|
| 11 |
(de "~A Quadratmeter wurden ~@[von ~A ~]gekauft") |
|---|
| 12 |
(t "~A square meters bought~@[ by ~A~]")) |
|---|
| 13 |
(length (contract-m2s contract)) |
|---|
| 14 |
(user-full-name (contract-sponsor contract)))) |
|---|
| 15 |
|
|---|
| 16 |
(defmethod rss-item-description ((contract contract)) |
|---|
| 17 |
(rss-item-title contract)) |
|---|
| 18 |
|
|---|
| 19 |
(defmethod rss-item-link ((contract contract)) |
|---|
| 20 |
#+(or) |
|---|
| 21 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (bos.web::request-language) (store-object-id item))) |
|---|
| 22 |
|
|---|
| 23 |
(defmethod rss-item-guid ((item contract)) |
|---|
| 24 |
#+(or) |
|---|
| 25 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (bos.web::request-language) (store-object-id item))) |
|---|
| 26 |
|
|---|
| 27 |
(defmethod rss-item-pub-date ((contract contract)) |
|---|
| 28 |
(contract-date contract)) |
|---|
