Declaratively initialize an object having setter methods

init-with-setters.clj

(defmacro with-attrs [obj-exp & args]
  `(doto ~obj-exp
     ~@(for [[key val] (partition 2 args)]
         (list (->> key
                 name
                 capitalize
                 (str ".set")
                 symbol)
           val))))
  
 ;; For example, this code:
 (with-attrs (SomeObject.)
    :name (str "Hello" "World")
    :type 'SomeType
    :description (format "Description: %s" "a description"))
    
  ;; ...expands to (via macroexpand-1):
  (doto (SomeObject.)
     (.setName (str "Hello World")
     (.setType 'SomeType)
     (.setDescription (format "Description: %s" "a description"))))