From a0b9bd579f52bb240bb15a0a6e817313a2a97ed2 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 8 Oct 2009 17:09:31 +0200 Subject: Implement /atom link handling. Ignore-this: 4bf94a6b2b36c823aea563f248fbeff7 darcs-hash:e7a223d376d972513716b2b9ab6604cb1e9f6bc6 --- main.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index 1d806a8..d6b6448 100644 --- a/main.lisp +++ b/main.lisp @@ -53,6 +53,7 @@ ((string= "trackback" (car (last *subpath*))) :post-trackback) ((string= "save" (car (last *subpath*))) :save-entry) ((string= "moderate" (car (last *subpath*))) :moderate) + ((string= "atom" (car (last *subpath*))) :view-atom-entry) (*post-number* :view) (t nil)))) (*method* (keywordify (gethash "REQUEST_METHOD" *http-env*))) @@ -242,6 +243,7 @@ (:view-atom-feed (show-atom-feed)) (:view-comment-feed (show-comment-feed)) (:view-debugging-page (show-debugging-page)) + (:view-atom-entry (show-atom-entry)) (otherwise (show-web-journal))) #.(restore-sql-reader-syntax-state)) -- cgit v1.2.3