transform-keys (clj)

(source)

function

(transform-keys t coll)

Recursively transforms all map keys in coll with t.

Examples

camel-snake-kebab

(ns camel-snake-kebab.extras-test
  (:require [camel-snake-kebab.core :as csk]
            [camel-snake-kebab.extras :refer [transform-keys]]
            #?(:clj [clojure.test :refer :all]
               :cljs [cljs.test :refer-macros [deftest testing is are]])))

(deftest transform-keys-test
  (are [x y] (= x (transform-keys csk/->kebab-case-keyword y))
    nil nil
    {} {}
    [] []
    {:total-books 0 :all-books []} {'total_books 0 "allBooks" []}
    [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]
    [{'the-Author "Dr. Seuss" "The_Title" "Green Eggs and Ham"}]
    {:total-books 1 :all-books [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]}
    {'total_books 1 "allBooks" [{'THE_AUTHOR "Dr. Seuss" "the_Title" "Green Eggs and Ham"}]}))

(deftest transform-keys-with-metadata-test
  (are [x y metadata]
    (let [y-with-metadata (with-meta y metadata)
          y-transformed (transform-keys csk/->kebab-case-keyword y-with-metadata)]
      (and (= x y-transformed)
           (= metadata (meta y-transformed))))
    {} {} {:type-name :metadata-type}
    [] [] {:type-name :check}
    {:total-books 0 :all-books []} {'total_books 0 "allBooks" []} {:type-name :metadata-type}

babashka/babashka

(ns camel-snake-kebab.extras-test
  (:require [camel-snake-kebab.core :as csk]
            [camel-snake-kebab.extras :refer [transform-keys]]
            #?(:clj [clojure.test :refer :all]
               :cljs [cljs.test :refer-macros [deftest testing is are]])))

(deftest transform-keys-test
  (are [x y] (= x (transform-keys csk/->kebab-case-keyword y))
    nil nil
    {} {}
    [] []
    {:total-books 0 :all-books []} {'total_books 0 "allBooks" []}
    [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]
    [{'the-Author "Dr. Seuss" "The_Title" "Green Eggs and Ham"}]
    {:total-books 1 :all-books [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]}
    {'total_books 1 "allBooks" [{'THE_AUTHOR "Dr. Seuss" "the_Title" "Green Eggs and Ham"}]}))

clj-commons/camel-snake-kebab

(ns camel-snake-kebab.extras-test
  (:require [camel-snake-kebab.core :as csk]
            [camel-snake-kebab.extras :refer [transform-keys]]
            #?(:clj [clojure.test :refer :all]
               :cljs [cljs.test :refer-macros [deftest testing is are]])))

(deftest transform-keys-test
  (are [x y] (= x (transform-keys csk/->kebab-case-keyword y))
    nil nil
    {} {}
    [] []
    {:total-books 0 :all-books []} {'total_books 0 "allBooks" []}
    [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]
    [{'the-Author "Dr. Seuss" "The_Title" "Green Eggs and Ham"}]
    {:total-books 1 :all-books [{:the-author "Dr. Seuss" :the-title "Green Eggs and Ham"}]}
    {'total_books 1 "allBooks" [{'THE_AUTHOR "Dr. Seuss" "the_Title" "Green Eggs and Ham"}]}))

(deftest transform-keys-with-metadata-test
  (are [x y metadata]
    (let [y-with-metadata (with-meta y metadata)
          y-transformed (transform-keys csk/->kebab-case-keyword y-with-metadata)]
      (and (= x y-transformed)
           (= metadata (meta y-transformed))))
    {} {} {:type-name :metadata-type}
    [] [] {:type-name :check}
    {:total-books 0 :all-books []} {'total_books 0 "allBooks" []} {:type-name :metadata-type}

Flexiana/framework

(ns xiana.interceptor.kebab-camel
  (:require
    [camel-snake-kebab.core :as csk]
    [camel-snake-kebab.extras :as cske]
    [clojure.core.memoize :as mem]))

(def camel-to-kebab
  (fn [resp]
    (cske/transform-keys
      (mem/fifo csk/->kebab-case {} :fifo/threshold 512) resp)))

(def kebab-to-camel
  (fn [resp]
    (cske/transform-keys
      (mem/fifo csk/->camelCase {} :fifo/threshold 512) resp)))