Clojure datafy/nav example

#datafy-nav-example

#datafy-nav-example

core.clj

(ns datafy_test.core
  (:require [clojure.datafy :as d]
            [clojure.core.protocols :as p]))

(defprotocol PName
  (getFirst [this])
  (getLast [this]))
(deftype Name
    [^String first
     ^String last]
  PName
  (getFirst [this] (.-first this))
  (getLast [this] (.-last this)))

(defprotocol PPerson
  (getName [this]))
(deftype Person
    [^Name name]
  PPerson
  (getName [this] (.-name this)))

(def p (Person. (Name. "John" "Dow")))

(extend-protocol
    p/Datafiable
  Name
  (datafy [o]
    (vary-meta
     (into {} (bean o))
     merge
     {`p/nav (fn [coll k _]
               (get coll k))}))
  Person
  (datafy [o]
    (vary-meta
     (into {} (bean o))
     merge
     {`p/nav (fn [coll k _]
               (get coll k))})))

(as-> (d/datafy p) <>
  (d/nav <> :name (:name <>))
  (d/datafy <>)
  (d/nav <> :last (:last <>)))