       om/IRender
       (render [_]
         (dom/div (clj->js bar-attrs) 
-                 (dom/div #js {:className "col-xs-3"}
-                         (app-title "{{name}}"))
-                 (dom/div #js {:className "col-xs-5"} nil)
+                 (dom/div #js {:className "navbar-header"}
+                          app-title)
                  (button-section button-pairs)
                  )))))
 

(defn new-container-el
  "get a new container element"
  []
  (let [new-el (.createElement js/document "div")]
    (.setAttribute new-el "id" container-id) 
    (.setAttribute new-el "class" "container") 
    new-el))

(def bar-attrs
  {:style {:width "100%"
           :borderStyle "solid"
           :borderWidth "1px"
           :borderTop "none"
           ;:heig;t "50pt"
           }
   :className "row"})

(defn get-body-div
  "gets a container div at the top of the body, creating it if necessary."


(defn dev-button
  [[f label]]
  (dom/li nil 
          (dom/a #js {:href "#"
                      :onClick f} 
                 label)))

(defn button-section
  [button-pairs]
  (apply dom/ul #js {:className "nav navbar-nav navbar-right"}  
         (mapv dev-button button-pairs))) 

(def app-title
  (dom/h3 #js {:style #js {:className "navbar-brand"}}
          (str "dev: “{{name}}”")))


(defn dev-bar
