                   "command" "list"} (create-handler :list cursor owner)))
     om/IRender
     (render [_]
-      (html
-       [:div.container
-        [:div.page-header
-         [:h1 (:title cursor)]]]))))
+      (let [current (:selected cursor)]
+        (html
+         [:div.container
+          [:div.page-header
+           [:h1 (:title cursor)]]
+          [:h3 (:name current)]
+          [:div.list-group
+           (om/build-all entry-view (:children current))]])))))
 
 (defn main []
   (setup-connection)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Views

(defn application [cursor owner]
  (reify
    om/IWillMount

(enable-console-print!)

(defonce app-state (atom {:title "Org UI"
                          :data {}
                          :selected {:children []}}))

(defn uuid []
  (uuid-string (make-random-uuid)))

(defn select-entry [entry]
  (om/update! (om/root-cursor app-state) :selected entry))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; WebSocket
