billrobertson42

(defn builder
  ([^StringBuilder sb]
     (fn
       ([] (.toString sb))
       ([& args]
          (doseq [arg args]
            (.append sb arg)))))
  ([] (builder (StringBuilder.))))

(comment

billrobertson42

(ns autostub
  (require [clojure.string :as string]))

(set! *compile-path* "build/classes")

(defn export? [[var-symbol var-value]]
  (and (fn? (var-get var-value))                  ;; functions only
       (not (.contains (str var-symbol) "->"))))  ;; ignore record auto generated functions

(defn stub-fun-name [name]

billrobertson42

user=> (def buffer (StringBuilder.))                                                                                
#'user/buffer
user=> 
(defn appender [^StringBuilder buffer]
  (fn [& args]
    (when-let [arg (first args)]
      (.append buffer arg)
      (recur (rest args)))))
user=> #'user/appender
user=>