Merge pull request #9 from glosa/develop

Fix Delete request

README.md

@@ -532,7 +532,7 @@ Delete a comment for ID. [Authorization required](#authorization).
 **Method**: `DELETE`
 
 ``` sh
-/api/v1/comments/
+/api/v1/comments/{id}
 ```
 
 | Param | Value | Description |
@@ -544,9 +544,7 @@ Delete a comment for ID. [Authorization required](#authorization).
 Delete comment with id `1234`.
 
 ``` sh
-curl -XDELETE -H "Authorization: Bearer mysecret" -H "Content-type: application/json" -d '{
-    "id": 1234
-}' 'http://localhost:4000/api/v1/comments/
+curl -XDELETE -H "Authorization: Bearer mysecret" -H "Content-type: application/json" http://localhost:4000/api/v1/comments/1234
 ```
 
 ##### Success response

project.clj

@@ -1,4 +1,4 @@
-(defproject glosa "1.3.6"
+(defproject glosa "1.3.8"
   :description "glosa"
   :url "https://github.com/tanrax/glosa"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

src/glosa/core.clj

@@ -13,7 +13,7 @@
       (wrap-defaults (assoc-in site-defaults [:security :anti-forgery] false))
       (wrap-cors
         :access-control-allow-origin [(re-pattern (if (config :debug) ".*" (config :domain-cli)))]
-        :access-control-allow-methods [:get :post])
+        :access-control-allow-methods [:get :post :put :delete])
       (#(if (config :debug) (wrap-reload %) %))))
 
 (defn -main [& args]

src/glosa/urls.clj

@@ -22,7 +22,7 @@
            (POST "/comments/latest/:pag" [] view-private/get-latest-comments)
            (POST "/threads/search/:query" [] view-private/get-search-threads)
            (PUT "/comments/" [] view-private/update-comment)
-           (DELETE "/comments/" [] view-private/delete-comment)))
+           (DELETE "/comments/:id" [] view-private/delete-comment)))
 
 (defroutes resources-routes
   ;; Resources (statics)

src/glosa/views/private.clj

@@ -38,10 +38,10 @@
     (response-401 req))))
 
 (defn delete-comment
-"Delete one comment"
-[req]
-(let [id (:id (get-JSON req))]
-  (if (check-bearer-token req)
-    (render-JSON req {:deleted (database/delete-comment id) :id (bigint id)})
-    (response-401 req))))
+  "Delete one comment"
+  [req]
+  (let [id (-> req :params :id)]
+    (if (check-bearer-token req)
+      (render-JSON req {:deleted (database/delete-comment id) :id (bigint id)})
+      (response-401 req))))