Better errors for 1 or n unique constraints

src/coast/db/errors.clj

@@ -1,6 +1,7 @@
 (ns coast.db.errors
   (:require [coast.utils :as utils]
-            [clojure.string :as string]))
+            [clojure.string :as string]
+            [clojure.edn :as edn]))
 
 (defn not-null-constraint [s]
   (let [col (-> (re-find #"null value in column \"(.*)\" violates not-null constraint" s)
@@ -12,13 +13,23 @@
        :db.constraints/not-null (keyword col)})))
 
 (defn unique-constraint [s]
-  (let [col (-> (re-find #"(?s)duplicate key value violates unique constraint.*Detail: Key \((.*)\)=\((.*)\)" s)
-                (second))]
-    (if (nil? col)
-      {}
-      {(keyword col) (str (utils/humanize col) " is already taken")
-       ::error :unique-constraint
-       :db.constraints/unique (keyword col)})))
+  (let [[name cs vs] (->> (re-seq #"(?s)duplicate key value violates unique constraint \"(.*)\".*Detail: Key \((.*)\)=\((.*)\)" s)
+                          (first)
+                          (drop 1))
+        table (first (string/split name #"_"))
+        cols (->> (string/split cs #",")
+                  (map string/trim)
+                  (map keyword))
+        msg-values (map #(str (utils/humanize %) " already exists") cols)
+        values (->> (string/split vs #",")
+                    (map string/trim)
+                    (map edn/read-string))
+        m (zipmap cols values)
+        message-map (zipmap cols msg-values)]
+    (merge message-map {:db.constraints/unique name
+                        ::error :unique-constraint
+                        ::value m
+                        ::message (str "That " table " already exists")})))
 
 (defn error-map [ex]
   (let [s (.getMessage ex)