夜中のテンションで超便利とか思ってたけど実際作ったらそんなに便利でもなかったマクロ

gistfile1.clj

(use '[clojure.string :only (join split capitalize)])

(defn split-hyphen [string]
  (split string #"\-"))

(defn upper-camel [string]
  (join (map capitalize (split-hyphen string))))

(defn lower-camel [string]
  (let [strings (split-hyphen string)]
    (join (cons (first strings) (map capitalize (rest strings))))))

(defmacro x [class constructor methods]
  `(doto (new ~class ~@constructor)
     ~@(map #(let [[method# value#] %] `(. ~(symbol (lower-camel (str (if (empty? value#) "" "set-") (subs (str method#) 1)))) ~@value#)) methods)))