test.clj

(ns cylon.test)

(defprotocol Mine
  (me [_]))

(defrecord TheMine [body condi place]
  Mine
  (me [this]
    (condi (get-in body place))
    ))


(defmacro the-condp [& o]
  `(fn [o#] (condp = o#   ~@o)))

(->TheMine
 {:body {:message false}}
 (the-condp true [:ey :tuay] false [:aaa :yyy])
 [:body :message])

(me (map->TheMine {:body {:body {:message false}}
                   :condi (the-condp true [:ey :tuay] false [:aaa :yyy])
                   :place [:body :message]}))


(defmacro other [body place & e]
  `(->TheMine
     ~body
     (the-condp ~@e)
     ~place))

(me  (other
      {:body {:message {:path true}}}
      [:body :message :path]
      true [:ey :tuay :true!!!]
      false [:aaa :yyy :false!!]))