vendors.

src/clj/auto_ap/db/vendors.clj

@@ -0,0 +1,22 @@
+(ns auto-ap.db.vendors
+  (:require [clojure.java.jdbc :as j]
+            [auto-ap.db.utils :refer [clj->db db->clj get-conn]]
+            [clojure.edn :as edn]))
+
+(defn merge-data [{:keys [data] :as x}]
+  (merge x (edn/read-string data)))
+
+(defn parse [x]
+  (-> x
+      (db->clj)
+      merge-data
+      ))
+
+
+(defn get-all []
+  (->> (j/query (get-conn) "SELECT * FROM vendors")
+       (map parse)))
+
+(defn upsert [id data]
+  (j/update! (get-conn) :vendors (clj->db data) ["id = ?" (Integer/parseInt id)] )
+  (merge-data (db->clj (first (j/query (get-conn) ["SELECT * FROM vendors WHERE id = ?" (Integer/parseInt id)])))))