gistfile1.txt

;; (def related-posts
;;   ^{:doc "Returns n posts related to `post`."}
;;   (memoize
;;    (fn [in-dir post n]
;;      (->> (:tags post)
;;           (map #(get (tag-buckets (all-pages in-dir)) %))
;;           (apply concat)
;;           (map #(dissoc % :file :tags))
;;           (remove #{post})
;;           (frequencies)
;;           (sort-by second)
;;           (take n)
;;           (map key)))))