BDM is super simple, fully declarative clj/cljc bi directional mapper that allow convert your data from A to B and back.
(ns user
(:require [bdm.core as bdm]))
(def person
{:name "John"
:lastname "Smith"
:contacts [{:type "email"
:value "[email protected]"}
{:type "phone"
:use "home"
:value "12223334455"}
{:type "phone"
:use "work"
:value "15556667788"}]})
(def mapping
[[[:name]]
[[:lastname]]
[[:emails] [:contacts {:get [:= :type "email"]} :#]]
[[:phones] [:contacts {:get [:= :type "phone"]} :#]]])
(bdm/import person mapping)
;; Will return
;; {:name "John",
;; :lastname "Smith",
;; :emails [{:type "email", :value "[email protected]"}],
;; :phones [{:type "phone", :use "home", :value "12223334455"}
;; {:type "phone", :use "vork", :value "15556667788"}]}
;; We can do import/export roundtrip
(= person (bdm/export (bdm/import person mapping) mapping)) ;; => true
Mapping is a array of paths pairs. First path of pair used as setter rule and second as a getter rule.
(def mapping
[[[:username] [:login]]])
(def user
{:login "super-user"})
(bdm/import user mapping)
;; will return
;; {:username "super-user"}
(def imported-user
{:username "super-user"})
(bdm/export imported-user mapping)
;; will return
;; {:login "super-user"}In this sample we take value from user by path [:login] and set this value into result with path [:username].
Path can be deep
(def window-mapping
[[[:hash] [:window :location :hash]]
[[:path] [:window :location :pathname]]])
(def window
{:window {:location {:hash "#about"
:pathname "/index.html"}}})
(bdm/import window window-mapping)
;; Will return
;; {:hash "#about"
;; :path "/index.html"}
(def location
{:hash "#contact"
:path "/spa.html"})
(bdm/export location window-mapping)
;; Will return
;; {:window {:location {:hash "#contact"
;; :pathname "/spa.html"}}})...
...
...
...
...
# run repl
$ make repl
# run test
$ make test
For more details and usage details see tests.
MIT License Copyright (c) 2020 Marat Surmashev