   (let [stext (.-value (.getElementById js/document "sText"))
         onres (fn [json]
                 (r/render [render-documents (getdata json)]
-                          (.-body js/document)))]
+                          (.getElementById js/document "app1")))]
     (http-get (str "http://localhost:8193/documents/title/" stext) onres)))
 (defn row [label input]
   [:div.row

(defn http-post [url callback data]
  (xhr/send url callback "POST" data  (structs/Map. (clj->js {:Content-Type "application/json"}))))

(defn http-delete [url callback data]
  (xhr/send url callback "DELETE" data  (structs/Map. (clj->js {:Content-Type "application/json"}))))

(declare render-documents)



(defroute "*" []
  (js/alert "<h1>Not Found Page</h1>"))

(defn main
  []
