 
         (into
          [:ul {:class "nav navbar-nav"}]
-         (for [sec SECTIONS-SIMPLE]
+         (for [sec (keys SECTIONS)]
            [:li {:key (name sec)}
             [:a {:href (str "#" (name sec))} (tr sec)]]))
         

   [just-married.countdown :as countdown]
   [just-married.settings :as settings]))

(def SECTIONS-SIMPLE
  [:story
   :find-us
   :rvsp
   :accomodation
   :contacts])

(defn get-browser-language
  "Return the language set in the browser, assuming that

  []
  (fn []
    [:g
     (into [navbar]
           (vals SECTIONS))]))
