proxy.clj

(ns se.raek.kerodon.util)

(defn proxy* [class-and-interfaces ctor-args & method-fn-pairs]
  (let [proxy-class (apply get-proxy-class class-and-interfaces)
        proxy-object (apply construct-proxy proxy-class ctor-args)]
    (doto proxy-object
      (init-proxy (apply hash-map method-fn-pairs)))))

(comment ; Usage

  (defn run [this]
    (println "Hello, world!"))

  (def r (proxy* [Runnable] []
           "run" #'run))

  (.run r))