 
     ))
 
-(defn parse-uri [uri]
-  (apply assoc {} (clojure.string/split uri #"/")))
+
 (defn q-map [[node & children]]
   (let [results (apply merge {} (map q-map children))]
     (if (:path node)

  (swap! channels (fn [old]

                    (let [all (reduce (fn [accum key]
                                        (if (closed? (get old key))
                                          (do
                                            (println "Getting rid of old connection for " key)
                                           (dissoc old key))
                                          old)) old (keys old))
                          url-ch (or (get all url)
                                     (let [new-ch (channel)]
                                       (println "creating a channel for url " url)


   :list
   {:resource (fn [uri binding meta vals]
                (hic/html
                          [:ul {:class "list-binding nav nav-list"
                                             :data-uri uri
                                :data-binding binding
                                :data-description (:description meta)}
                           [:li.nav-header (:title meta)]
                           vals]
                          [:a
                           {:href "#"
                            :class "list-add-binding btn"
                            :data-uri uri
                            :data-binding binding} "Create"]))
    :value (fn [parent uri binding meta val]
             (hic/html val))

    :update (fn [uri pred data]
              {:type "create" :uri uri :predicate pred :value (uuid)})
