functional interface implementation in clojure

func-interface.clj

(defmacro fi
  [interface args & code]
  (let [interface-type (.getMapping *ns* interface)

        methods        (-> (.getMethods interface-type)
                           seq)
        method-sym     (.getName (first methods))]

    (when-not (= (count methods) 1)
      (throw (new Exception "cant take a interface with more then one method")))
    
    `(proxy [~interface] []
       (~method-sym ~args
         ~@code))))


(comment
  (import java.awt.event.ActionListener)

  (def action (fi ActionListener [e]
                  (println "hello world"))))