split mixed kw/raw args

gistfile1.clj

(defn split-keyword-args [args]
  (loop [remaining-args args
         keywords-found {}
         args-found []]
    (cond
     (empty? remaining-args)
     [keywords-found args-found]

     (keyword? (first remaining-args))
     (let [[kw arg & rest] remaining-args]
       (recur rest (assoc keywords-found kw arg) args-found))

     :else
     (let [[arg & rest] remaining-args]
       (recur rest keywords-found (conj args-found arg))))))