commit - 9221e3affb31ecc0f1fd785cf1577f2be6255dc7
commit + ae1de95cb47c75c4bb5a9eeb544dd103729914ad
blob - 0bc6f132724c391a9d57356953ef508faedcefa1
blob + 8c87ce55d35b1b4a595e3ef9fa8bbf191fdba8a9
--- src/blog/templates.clj
+++ src/blog/templates.clj
@@ -45,7 +45,7 @@
 
 (defn post-fragment
   [{:keys [full? title-with-link?]}
-   {:keys [title date slug tags short body toot music], :as post}]
+   {:keys [title date slug tags short body toot music xkcd], :as post}]
   [:article
    [:header
     [(if full?
@@ -67,6 +67,11 @@
     [:ul.tags (map #(vector :li [:a {:href (str "/tag/" (name %) ".html")}
                                  (str "#" (name %))])
                    tags)]
+    (when xkcd
+      [:p [:a {:href (str "https://xkcd.com/" xkcd)
+               :target "_blank"
+               :rel "noopener"}
+           "Related XKCD"]])
     (when toot
       [:p [:a {:href   toot,
                :target "_blank"