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

src/mtgcoll/models/lists.clj

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

src/mtgcoll/routes/lists.clj

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