Clojure Scaffolding for deftype (Christophe Grand) - Show which methods a class implements and for which interfaces

clojure-deftype-scaffolding.clj

;; Big thanks to Christophe Grand - https://groups.google.com/d/msg/clojure/L1GiqSyQVVg/m-WJogaqU8sJ
(defn scaffold [iface]
  (doseq [[iface methods] (->> iface .getMethods 
                            (map #(vector (.getName (.getDeclaringClass %)) 
                                    (symbol (.getName %))
                                    (count (.getParameterTypes %))))
                            (group-by first))]
    (println (str "  " iface))
    (doseq [[_ name argcount] methods]
      (println 
        (str "    " 
          (list name (into ['this] (take argcount (repeatedly gensym)))))))))

;;user=>
;;(scaffold clojure.lang.IPersistentStack)
;;  clojure.lang.IPersistentStack
;;    (peek [this])
;;    (pop [this])
;;  clojure.lang.IPersistentCollection
;;    (count [this])
;;    (empty [this])
;;    (cons [this G__7960])
;;    (equiv [this G__7961])
;;  clojure.lang.Seqable
;;    (seq [this])
;;nil