   []
   (fn []
     [:g
-     [navbar]
-     ;; lang selection could be moved into the header potentially?
-     [story]
-     [find-us]
-     [gifts]
-     #_[rvsp]]))
+     (into [navbar]
+           (vals SECTIONS))]))


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

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

(declare find-us)
(declare rvsp)
(declare accommodation)
(declare contacts)
(declare story)
(declare gifts)

(def SECTIONS
  {:story story
   :find-us find-us
   :rvsp rvsp
   :gifts gifts
   :accomodation accommodation
   :contacts contacts})

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