diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 20:12:41 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-22 20:12:41 +0100 |
commit | c34ea8f4bfdeda74c30542db22c4a3f9445a5113 (patch) | |
tree | 3fa39f72ce5d9896a475d3af4c8e848c45be0d69 /mulkcms.lisp | |
parent | 916e3feddbdb95d5e664520d57cfbb4b7865a1eb (diff) |
Add a <link rel="canonical"/> to all article pages.
Diffstat (limited to 'mulkcms.lisp')
-rw-r--r-- | mulkcms.lisp | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 3a13215..0119418 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -240,7 +240,8 @@ path))) (ecase action (:index "") - (:full-index "/?full") + (: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"))) @@ -596,8 +597,10 @@ :root *base-uri* :site-name *site-name* :site-subtitle "" - :link "" - :full-archive-link "" + :link (link-to :journal-index + :absolute t) + :full-archive-link (link-to :full-journal-index + :absolute t) :full-archive-label "Full archive (slow!)" :archive-title "Older posts" :archive-table-caption "Posts by date" @@ -1163,6 +1166,8 @@ (expand-page page-template (getf article-params :title) (list* :articles (list article-params) + :link (getf article-params :link) + :info-messages (if submission-notice (list submission-notice) nil) |