Implement /atom link handling.

Ignore-this: 4bf94a6b2b36c823aea563f248fbeff7

darcs-hash:e7a223d376d972513716b2b9ab6604cb1e9f6bc6

1 files changed, 2 insertions, 0 deletions

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))