From a6ad67903c3192974abd73c9224912bc3080f9d9 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Fri, 10 Aug 2018 19:52:34 +0200 Subject: Remove comment feed links. The functionality was never implemented, so the links have always been dead. --- mulkcms.lisp | 7 ------- templates/article.html | 2 -- 2 files changed, 9 deletions(-) diff --git a/mulkcms.lisp b/mulkcms.lisp index 0e53c2d..e7f8819 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -264,8 +264,6 @@ (:journal-index "/journal") (:full-journal-index "/journal?full") (:view-atom-feed (values "/feed")) - (:view-comment-feed (cond (article-id (values "/~A?comment-feed" article-base)) - (t "/comment-feed"))) (:view (cond (comment-id (values "/~A#comment-~D" article-base comment-id)) (article-id (values "/~A" article-base)) (t "/"))) @@ -395,10 +393,6 @@ :absolute t))) :edit-link (link-to :edit :article-id article) :edit-button-label "Edit" - :comment-feed (link-to :view-comment-feed - :article-id article - :absolute t) - :comment-feed-label "Comment feed" :comments-label (case comment-num (0 "no comments") (1 "1 comment") @@ -1295,7 +1289,6 @@ path params (cond ((assoc "edit" params :test #'equal) :edit) - ((assoc "comment-feed" params :test #'equal) :view-comment-feed) ((assoc "atom" params :test #'equal) :view-atom-entry) (t :view))) (find-transaction-key-handler path)))) diff --git a/templates/article.html b/templates/article.html index cde94fc..d5ac4d2 100644 --- a/templates/article.html +++ b/templates/article.html @@ -33,8 +33,6 @@ | - {comment-feed-label|html} - | {comments-label|html} -- cgit v1.2.3