gered/mtgcoll
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

return new list id from the add list server-side route

Browse source
This commit is contained in:
Gered 2016-07-31 15:57:48 -04:00
parent 53ab0dd10c
commit ab66ca9a0a
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/mtgcoll/models/lists.clj
View file

@ -6,12 +6,14 @@
(defn add-list! (defn add-list!
[name public? requires-qualities?] [name public? requires-qualities?]
(vexec! view-system @db (let [result (vexec! view-system @db
["insert into lists ["insert into lists
(name, is_public, require_qualities) (name, is_public, require_qualities)
values values
(?, ?, ?)" (?, ?, ?)
(str name) (boolean public?) (boolean requires-qualities?)])) returning id"
(str name) (boolean public?) (boolean requires-qualities?)])]
(->> result first :id)))
(defn remove-list! (defn remove-list!
[list-id] [list-id]

6
src/mtgcoll/routes/lists.clj
View file

@ -10,8 +10,10 @@
(wrap-middleware (wrap-middleware
(routes (routes
(POST "/lists/add" [name public? requires-qualities? :as request] (POST "/lists/add" [name public? requires-qualities? :as request]
(lists/add-list! name public? requires-qualities?) (let [result (lists/add-list! name public? requires-qualities?)]
(response/json {:status "ok"})) (response/json
{:status "ok"
:id result})))
(POST "/lists/remove" [list-id :as request] (POST "/lists/remove" [list-id :as request]
(lists/remove-list! list-id) (lists/remove-list! list-id)