| 1 | ;;+----------------------------------------------------------------------------- |
|---|
| 2 | ;;+ Isidorus |
|---|
| 3 | ;;+ (c) 2008-2010 Marc Kuester, Christoph Ludwig, Lukas Georgieff |
|---|
| 4 | ;;+ |
|---|
| 5 | ;;+ Isidorus is freely distributable under the LLGPL license. |
|---|
| 6 | ;;+ You can find a detailed description in trunk/docs/LLGPL-LICENSE.txt and |
|---|
| 7 | ;;+ trunk/docs/LGPL-LICENSE.txt. |
|---|
| 8 | ;;+----------------------------------------------------------------------------- |
|---|
| 9 | |
|---|
| 10 | (in-package :atom) |
|---|
| 11 | ;the configuration of the eGov application (at present) |
|---|
| 12 | ;TODO: convert to an XML configuration file for the site |
|---|
| 13 | ;of type |
|---|
| 14 | ;<tm-feeds><author><title>...</title> |
|---|
| 15 | ;<tm-feed><title>...</title><snapshopfeed>...</snapshotfeed> |
|---|
| 16 | ;...</tm-feed></tm-feeds> |
|---|
| 17 | ;generate the corresponding feed instances automatically |
|---|
| 18 | |
|---|
| 19 | (defun setup-feeds () |
|---|
| 20 | (setf *base-url* "http://london.ztt.fh-worms.de:8000") |
|---|
| 21 | (setf *source-locator* "http://psi.egovpt.org/") |
|---|
| 22 | (setf *author* "Isidor") |
|---|
| 23 | |
|---|
| 24 | (setf *tm-feed* |
|---|
| 25 | (make-instance 'feed |
|---|
| 26 | :title "List of TMs on this test server" |
|---|
| 27 | :subtitle "Test TMs" |
|---|
| 28 | :updated (datetime-in-iso-format (first (last (d:get-all-revisions)))) |
|---|
| 29 | :path "/feeds/" |
|---|
| 30 | :author *author*)) |
|---|
| 31 | |
|---|
| 32 | (setf *testtm-snapshots-feed* |
|---|
| 33 | (make-instance 'snapshot-feed |
|---|
| 34 | :title "A list of all Test TM snapshots" |
|---|
| 35 | :subtitle "Snapshots" |
|---|
| 36 | :source-locator *source-locator* |
|---|
| 37 | :updated (datetime-in-iso-format (first (last (d:get-all-revisions)))) |
|---|
| 38 | :path "/testtm/snapshots/" |
|---|
| 39 | :author *author*)) |
|---|
| 40 | |
|---|
| 41 | (setf *testtm-fragments-feed* |
|---|
| 42 | (make-instance 'fragment-feed |
|---|
| 43 | :title "A list of all Test TM fragments" |
|---|
| 44 | :subtitle "Changes" |
|---|
| 45 | :source-locator *source-locator* |
|---|
| 46 | :updated (datetime-in-iso-format (first (last (d:get-all-revisions)))) |
|---|
| 47 | :path "/testtm/fragments/" |
|---|
| 48 | :author *author*)) |
|---|
| 49 | |
|---|
| 50 | (setf *testtm-toplevel* |
|---|
| 51 | (make-instance 'entry |
|---|
| 52 | :title "Test TM" |
|---|
| 53 | :updated (datetime-in-iso-format (first (last (d:get-all-revisions)))) |
|---|
| 54 | :path "/feeds/testtm/")) |
|---|
| 55 | |
|---|
| 56 | (register-entry *tm-feed* *testtm-toplevel*) |
|---|
| 57 | |
|---|
| 58 | (setf *testtm-feed* |
|---|
| 59 | (make-instance 'feed |
|---|
| 60 | :title (title *testtm-toplevel*) |
|---|
| 61 | :subtitle "Entry-Feed for the Test TM" |
|---|
| 62 | :updated (updated *testtm-toplevel*) |
|---|
| 63 | :author *author* |
|---|
| 64 | :path (path *testtm-toplevel*))) |
|---|
| 65 | |
|---|
| 66 | (setf *testtm-snapshotfeed* |
|---|
| 67 | (make-instance 'tm-entry |
|---|
| 68 | :title (format nil "~a: Snapshots" (title *testtm-toplevel*)) |
|---|
| 69 | :feedtype "snapshotsfeed" |
|---|
| 70 | :updated (updated *testtm-toplevel*) |
|---|
| 71 | :path (self-link *testtm-snapshots-feed*) |
|---|
| 72 | :feed *testtm-snapshots-feed*)) |
|---|
| 73 | |
|---|
| 74 | (setf *testtm-fragmentfeed* |
|---|
| 75 | (make-instance 'tm-entry |
|---|
| 76 | :title (format nil "~a: Changes" (title *testtm-toplevel*)) |
|---|
| 77 | :feedtype "fragmentsfeed" |
|---|
| 78 | :updated (updated *testtm-toplevel*) |
|---|
| 79 | :path (self-link *testtm-fragments-feed*) |
|---|
| 80 | :feed *testtm-fragments-feed*)) |
|---|
| 81 | |
|---|
| 82 | (register-entry *testtm-feed* *testtm-snapshotfeed*) |
|---|
| 83 | (register-entry *testtm-feed* *testtm-fragmentfeed*)) |
|---|
| 84 | |
|---|
