From d13896ecbc3c94acdcbd90b857855d8807c73199 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 7 Jan 2009 22:39:57 +0100 Subject: Add a comment feed. darcs-hash:f7082552f0f6aac46b15956740661b8b74237fec --- main.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'main.lisp') 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)))) -- cgit v1.2.3