            [:ul.dropdown-menu
             [:li [:a {:href (str "/user/profile/" (m/identity))}
                   [:i.icon-th-list] " View Profile"]]
-            [:li [:a {:href "/logout"} [:i.icon-off] " Log Out"]]]))])
+            [:li [:a {:href "/user/logout"} [:i.icon-off] " Log Out"]]]))])
 
 (defn alert
   "Displays an alert box."

(defn- as-css-id [s]
  (name (if (nil? s) "" s)))

(defpartial form-button [{:keys [eclass value]}]
  [(keyword (str "button.btn" (as-css-id eclass)))
   {:type "submit"} value])

(defpartial control-group-form [id+class params items buttons]
  [(keyword (str "form" (as-css-id id+class))) params
   [:fieldset
    (map control-group items)
    [: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
   (interpose " " (map input items)) " "
   (map form-button buttons)])

(defpartial phrase-fields [id phrase]
  [:div.row-fluid
   [:div#given-phrase.input-xlarge.uneditable-input.span12
    phrase]]

  ([class type message] (alert class type message true))
  ([type message] (alert type type message true)))

(defn layout [& content]
  (base-layout
    [:div#navbar.navbar.navbar-fixed-top
     [:div.navbar-inner
