   "Renders a non-external screencast page"
   [request data]
   (main-layout request (:title data)
+               (old-entry-warning data)
                [:div.vimeo
                  [:iframe { :src (:url data)
                             :width "631"

           [optimus.hiccup    :as bundles]
           [cemerick.url      :refer [url-encode]]
           [slugger.core      :refer [->slug]]
           [hiccup.page       :refer [html5]]))

(declare main-layout)


    [:div.dater (pretty-date (:date data))]
    [:div.categories (published data)]))

(def ^:private six-months-ago 
  (minus (from-date (java.util.Date.) (months 6))))

(defn- old-entry-warning
  "Generates a warning for entries that are more than 6 months or so old"
  [data]
  (when (before? (:date data) six-months-ago)
    (hiccup.core/html
      [:blockquote.warning "This post is over 6 months old. 
      	Some details, especially technical, may have changed 
      	since posting."])))

(defn index
  "Renders the landing page of the site"
