scratch.clj

user> (def thrift-meta-data {"FooValue" {:key-set [{:field-id "foo" :field-name "bar"}]}})
#'user/thrift-meta-data
user> (defmacro mk-property-tap [property-id property-name property-class]
        (let [md (thrift-meta-data (str property-class "Value"))]
           (for [f (:key-set md)]
             (let [val-id (:field-id f)
                   val-name (:field-name f)
                   fn-name (symbol (str property-name "-" val-name "-tap"))]
               `(defn ~fn-name [source-dir#]
                 (let [tap# (split-data-tap source-dir# [~property-id val-id#])]
                   (<- [?id ?property ?pedigree]
                     (tap# _ ?data)
                     (expand-data ?data :> ?pedigree ?du)
                     (expand-property ?du :> ?id ?property))))))))
#'user/mk-property-tap
user> (macroexpand-1 '(mk-property-tap "blah" "blarg" "Foo"))
((clojure.core/defn blarg-bar-tap [source-dir__1782__auto__] (clojure.core/let [tap__1783__auto__ (user/split-data-tap source-dir__1782__auto__ ["blah" val-id__1784__auto__])] (user/<- [user/?id user/?property user/?pedigree] (tap__1783__auto__ user/_ user/?data) (user/expand-data user/?data :> user/?pedigree user/?du) (user/expand-property user/?du :> user/?id user/?property)))))