     (keyword (namespace overlay-key))
     overlay-key))
 
+(defn get-component [overlay-key]
+  (get overlay-components (overlay-component-key overlay-key)))
+
 (defn overlay [app owner]
   (reify
     om/IDisplayName (display-name [_] "Overlay")

                 (:title component))]))]
          [:div.menu-body
           (for [overlay-key (get-in app state/overlays-path)
                 :let [component (get overlay-components (overlay-component-key overlay-key))]]
             (om/build (:component component) app {:react-key overlay-key
                                                   :opts {:submenu (when (namespaced? overlay-key)
                                                                     (keyword (name overlay-key)))}}))]])))))

         [:div.menu
          [:div.menu-header
           (for [overlay-key (get-in app state/overlays-path)
                 :let [component (get-component overlay-key)]]
             (html
              [:h4.menu-heading {:title (:title component) :react-key (:title component)}
               (if (namespaced? overlay-key)
