gistfile1.clj

(defmacro mk-property-tap [property-id property-name property-class]
  `(let [md# (thrift-meta-data (str ~property-class "Value"))]
     (for [f# (.keySet md#)]
               (let [val-id# (.getThriftFieldId f#)
                     val-name# (.getFieldName 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))))))))