doto$.clj

(use '[clojure.walk :only [prewalk-replace]])

(defmacro doto$
  "Like doto, but replaces $ with a reference to the object."
  [object & forms]
  (let [object-sym (gensym "object")]
    `(let [~object-sym ~object]
       (doto ~object-sym
         ~@(prewalk-replace {'$ object-sym} forms)))))

;;; Usage example
(comment
  (doto$ (JSpinner. (SpinnerNumberModel. default min max step))
         (.setEditor (JSpinner$NumberEditor. $ "#"))))

;; Expands to:
; (let [object3906 (JSpinner. (SpinnerNumberModel. default min max step))]
;   (doto object3906
;     (.setEditor (JSpinner$NumberEditor. object3906 "#"))))

(doto (JSpinner. (SpinnerNumberModel. default min max step) (-> (JSpinner$NumberEditor. "#") .setEditor))