Merge

Author: mgadzhi

src/word_keeper/core.clj

@@ -34,6 +34,7 @@
   (GET "/" [] action-index)
   (POST "/api/translations/:uid/create" [uid] #(post-translation % (Integer/parseInt uid)))
   (GET "/api/translations/:uid" [uid] #(flat-user-translations % uid))
+  (GET "/api/translations/:uid/word/:word/translation/:translation/delete" [uid, word, translation] #(action-delete-user-translation % uid word translation))
   (GET "/vocabulary" [] (-> action-vocabulary auth-middleware))
   (GET "/signin" [] action-signin)
   (GET "/signout" [] action-signout)

src/word_keeper/frontend.clj

@@ -51,6 +51,11 @@
                   :notice "Something went wrong. Please try again."
                   :show_notice true)})))
 
+(defn action-delete-user-translation [req uid word translation]
+  ; call yesql
+  {:status 301
+   :headers {"location" "/vocabulary"}})
+
 (defn action-signout [req]
   (let [session (assoc (:session req)
                   :request-token nil