    [_]
    (let [{:keys [opts children]} (om/get-props owner)
          [bs props] (t/separate Nav opts {:bs-class "nav"})
+         classes {:navbar-collapse (:collapsible? bs)}
          ul-props {:ref "ul"
                    :class (d/class-set
                            (merge (t/bs-class-set bs)

      (u/clone-with-props child prop-fn))))

(defn render-navbar-child [owner child bs]
  (let [nav-open? (om/get-state owner :nav-open?)
        changing? (om/get-state owner :changing?)
        f (fn [props]
            (let [opts (:opts props)
                  collapsible? (when (:toggle-nav-key bs)
                                 (= (:key opts) (:toggle-nav-key bs)))
                  expanded? (and collapsible?
                                 (or (:nav-expanded? bs)
                                     nav-open?))
                  collapsed? (not expanded?)
                  base {:navbar? true
                        :class (d/class-set {:navbar-collapse collapsible?

             (when (or (:brand bs)
                       (:toggle-button bs)
                       (:toggle-nav-key bs))
               (render-header owner bs))
             (map #(render-navbar-child owner % bs) children))))))

