                   "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)

(enable-console-print!)

(defonce app-state (atom {:title "Org UI"
                          :data {}}))

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

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

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

(defn entry-view [entry owner]
  (reify
    om/IRender
    (render [_]
      (html
       [:li.list-group-item {:on-click (fn [] (select-entry entry))
                             :style {:cursor "pointer"}} (:name entry)]))))

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