summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2018-08-10 19:52:34 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2018-08-10 19:52:34 +0200
commita6ad67903c3192974abd73c9224912bc3080f9d9 (patch)
tree5d40712ef41dd48ff222c7fab8a03776caf26de1
parent6700312a0b523a82b6dcf1a096e6ae1726d04e75 (diff)
Remove comment feed links.
The functionality was never implemented, so the links have always been dead.
-rw-r--r--mulkcms.lisp7
-rw-r--r--templates/article.html2
2 files changed, 0 insertions, 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 @@
</div>
</form>
|
- <a href="{comment-feed|html-attr-value}">{comment-feed-label|html}</a>
- |
<a href="{comments-link|html-attr-value}">{comments-label|html}</a>
</footer>
</div>