 (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"}))))
+(defn http-delete [url callback]
+  (xhr/send url callback "DELETE" (structs/Map. (clj->js {:Content-Type "application/json"}))))
 
 (declare render-documents)
 

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


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

(defn main
  []
