Merge pull request #39 from clanhr/key-transform-utils

Add keys transform util fns

project.clj

@@ -1,4 +1,4 @@
-(defproject clanhr/postgres-gateway "1.8.2"
+(defproject clanhr/postgres-gateway "1.9.0"
   :description "ClanHR postgres-gateway"
   :url "https://github.com/clanhr/postgres-gateway"
 

src/clanhr/postgres_gateway/utils.clj

@@ -63,3 +63,21 @@
       (into [] (flatten query-with-sql)))
     query))
 
+(defn- change-keys-case
+  "Change the case of the keys"
+  [model from-char to-char]
+  (when model
+    (reduce-kv (fn [m k v]
+                (assoc m (keyword (clojure.string/replace (name k) from-char to-char)) v))
+      {}
+      model)))
+
+(defn ->snake-case-keys
+  "Transforms lisp case keys with - in database keys with _"
+  [model]
+  (change-keys-case model "-" "_"))
+
+(defn ->lisp-case-keys
+  "Transforms database keys with _ in clojure keys with -"
+  [model]
+  (change-keys-case model "_" "-"))

test/clanhr/postgres_gateway/utils_test.clj

@@ -25,3 +25,9 @@
 (deftest add-in-logic
   (is (= (utils/add-in-logic ["name in ($1)" ["a" "b"]] {:in-param 1})
          ["name in ($1,$2)" "a" "b"])))
+
+(deftest snake-case-keys
+  (is (= {:some_key 1} (utils/->snake-case-keys {:some-key 1}))))
+
+(deftest lisp-case-keys
+  (is (= {:some-key 1} (utils/->lisp-case-keys {:some_key 1}))))