       (when-let [{:keys [type message]} (flash/get)]
         (let [type (name type)]
           [:div {:id "flash" :class (str "alert alert-" type)}
-           [:a.close {:data-dismiss "alert"} "x"]
+           [:a.close {:data-dismiss "alert"} "&times;"]
            [:strong (string/capitalize type) ": "] message]))
       content]]))
 

       [:a.brand.dropdown-toggle {:href "#"} "Cadence"]
       [:div.nav-collapse
        [:ul.nav
         [:li [:a {:href "/"}
               [:i.icon-home.icon-white] " Home"]]
         [:li [:a {:href "/about"} "About"]]]
        [:ul.nav.pull-right
         [:li.divider-vertical]

    [:div.form-actions
     (map form-button buttons)]]])

(defpartial input [{:keys [eclass type name placeholder params]}]
  [(keyword (str "input" (as-css-id eclass)))
   (merge params {:type type
    :name (string/lower-case name)
    :placeholder (or placeholder name)})])

(defpartial default-form [id+class params items buttons]
  [(keyword (str "form" (as-css-id id+class))) params
