          :content [:div
                    [:div.row
                     [:div.col-sm-4
-                     [:section
+                     [:section.var-data
                       [:h1 name]
                       [:h2 ns]]]
                     [:div.col-sm-4

                         [:a {:href (source-url v)} "Source"]])]]]
                   [:div.row
                    [:div.col-sm-12
                     [:div.docstring
                      [:pre (-> doc
                                (str/replace #"\n\s\s" "\n"))]
                      [:div.copyright
                       "&copy; Rich Hickey. All rights reserved."
                       " "
                       [:a {:href "http://www.eclipse.org/legal/epl-v10.html"}
                        "Eclipse Public License 1.0"]]]
                     [:h3 (count examples) " Examples"]
                     (map $example examples)
                     [:h3 "See Alsos"]
                     (map $see-also see-alsos)]]]}))))

(defn $example-history-point [{:keys [user body created-at updated-at] :as ex}]
  [:div.row

(defn source-url [{:keys [file line]}]
  (str "https://github.com/clojure/clojure/blob/clojure-1.5.1/src/clj/" file "#L" line))

(defn $see-also [{:keys [ns name created-at doc user] :as sa}]
  [:div.col-sm-6.see-also
   [:div
    (util/$var-link ns name
      [:span.ns ns "/"]
      [:span.name name])]
   [:p
    (->> doc
         (take 100)
         (apply str))
    (when (> (count doc) 100)
      "...")]
   [:div.meta
    "Added by " [:a {:href (str "/u/" (:login user))} (:login user)]]])

(defn lookup-var [ns name]
  (or (mon/fetch-one :vars :where {:name name :ns ns})
      (search/lookup (str ns "/" name))))

(defn var-page [ns name]
  (fn [{:keys [user]}]
    (let [name (util/unmunge-name name)
          {:keys [arglists name ns doc runtimes added file] :as v}
          (lookup-var ns name)
          examples (examples-for v)
          see-alsos (see-alsos-for v)]
      (common/$main
