gistfile1.clj

; copy from https://github.com/daveray/seesaw/blob/develop/src/seesaw/options.clj

(defrecord Option [name setter getter examples])

(defmacro bean-option 
  [name-arg target-type & [set-conv get-conv examples]]
  (let [[option-name bean-property-name] (split-bean-option-name name-arg)
        target (gensym "target")]
  `(Option. ~option-name 
      (fn [~(with-meta target {:tag target-type}) value#]
        (. ~target ~(setter-name bean-property-name) (~(or set-conv `identity) value#)))
      (fn [~(with-meta target {:tag target-type})]
        (~(or get-conv `identity) (. ~target ~(getter-name bean-property-name))))
      ~examples)))