   [:div.blogroll
    (blog-head)
    [:article
-    (for [slug (->> slugs (filter :display-in-overview) (map :slug))
+    (for [slug (->> slugs (filter display-in-overview?) (map :slug))
           :let [{:keys [title blurb author] :as content} ((post-fn slug))]]
       [:div.blogroll-post
        [:a.blogroll-post-title {:href (post-url slug)}

(defn post-url [slug]
  (str "/blog/" slug))

(def slugs
  "Sorted array of slugs, assumes the post content can be found in the
   function returned by post-fn"
  [
   {:slug "blue-ocean-made-of-ink"
    :display-in-overview false}
   {:slug "private-docs-early-access"
    :display-in-overview false}
   {:slug "product-hunt-wake-up-call"
    :display-in-overview true}
   {:slug "interactive-layers"
    :display-in-overview true}
   ;; "instrumenting-om-components"
   ;; "lets-replace-pen-and-paper"
   ])

(ns pc.views.blog
  (:require [hiccup.core :refer [html]]
            [clj-time.core :as time]
            [clj-time.format]
            [pc.profile :as profile]
            [pc.views.content]
            [pc.util.http :as http-util]))
