defaulting_defrecord.clj

(defmacro defrecord+
  [name slots & rest]
  (let [fields (->> slots (partition 2) (map first) vec)
        defaults (->> slots (partition 2) (map second) vec)]
    `(do
       (defrecord ~name
         ~fields
         ~@rest)
       (defn ~(symbol (str "new-" name))
         []
         (~(symbol (str name \.)) ~@defaults))
       ~name)))

com.snowtide.pdf=> (defrecord+ Defaulting
                     [a 5 b 7 c {:crazy true}]
                     Object
                     (toString [a] "yay!"))
com.snowtide.pdf.Defaulting
com.snowtide.pdf=> (new-Defaulting)
{:a 5,
 :b 7,
 :c {:crazy true}}
com.snowtide.pdf=> (.toString *1)
"yay!"
com.snowtide.pdf=>