named-kwargs.clj

;; improved version from chouser
(defmacro named [kwargs defaults & body]
  `(let [{:keys [~@(take-nth 2 defaults)] :or ~(apply array-map defaults)}
         (apply array-map ~kwargs)]
     ~@body))


;; Example

(defn draw [x & args]
  (named args [size 42
               color :blue]
    (print "draw" size color)))

(draw [])                       ;; => draw 42 :blue
(draw [] :size 666)             ;; => draw 666 :blue
(draw [] :color :red)           ;; => draw 42 :red
(draw [] :size 666 :color :red) ;; => draw 666 :red
(draw [] :color :red :size 666) ;; => draw 666 :red