Add a comment feed.

darcs-hash:f7082552f0f6aac46b15956740661b8b74237fec

1 files changed, 2 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index 463106c..0c17fbe 100644
--- a/main.lisp
+++ b/main.lisp
@@ -47,6 +47,7 @@
                                            :junk-allowed t  #|| :radix 12 ||#))
          (*action*          (or (keywordify (getf *query* :action))
                                 (cond ((string= "feed" (first *subpath*)) :view-atom-feed)
+                                      ((string= "comment-feed" (first *subpath*)) :view-comment-feed)
                                       ((string= "debug" (first *subpath*)) :view-debugging-page)
                                       ((string= "preview" (car (last *subpath*))) :preview-entry)
                                       ((string= "save" (car (last *subpath*))) :save-entry)
@@ -165,6 +166,7 @@
                            (mail-comment *notification-email* comment entry))))
                      (show-web-journal))
     (:view-atom-feed (show-atom-feed))
+    (:view-comment-feed (show-comment-feed))
     (:view-debugging-page (show-debugging-page))
     (otherwise       (show-web-journal))))