Add taglinks to individual posts.

src/indices.lisp

@@ -10,9 +10,9 @@
   (reduce (lambda (x y) (union x y :test #'string=))
           (mapcar #'post-tags (hash-table-values *posts*))))
 
-(defun taglinks ()
-  "Generate links to all the tag indices."
-  (loop for tag in (sort (all-tags) #'string<)
+(defun taglinks (&optional tags)
+  "Generate links to all the tag indices or those in TAGS."
+  (loop for tag in (or tags (sort (all-tags) #'string<))
      collect (list :url (format nil "~a/tag/~a.html" (domain *config*) tag)
                    :name tag)))
 

src/posts.lisp

@@ -66,7 +66,7 @@
   (render-page (post-url post)
                (funcall (theme-fn "POST")
                         (list :title (post-title post)
-                              :tags (post-tags post)
+                              :tags (taglinks (post-tags post))
                               :date (post-date post)
                               :content (render-content (post-content post)
                                                        (post-format post))

themes/hyde/post.tmpl

@@ -4,7 +4,10 @@
 <div class="article-meta">{\n}
   <h1 class="title">{$title}</h1>{\n}
   <div class="tags">{\n}
-    Tagged as {$tags}
+    Tagged as {foreach $tag in $tags}
+                <a href="{$tag.url |noAutoescape}">{$tag.name}</a>
+                    {if not isLast($tag)}, {/if}
+              {/foreach}
   </div>{\n}
   <div class="date">{\n}
     Written on {$date}