paredit.clj

(defn getopt-map
  "Turn an option seq into a map of keyword=>[values] pairs. If 

=> (getopt-map (getopt-seq nil \"ab:c::d\" (into-array String [\"-ab\" \"10\"])))
{:b [\"10\"], :a [nil]}
=> (getopt-map (getopt-seq nil \"ab:c::d\" (into-array String [\"-ab\" \"10\" \"-b\" \"1\"])))
{:b [\"10\" \"1\"], :a [nil]}"
  [[opt-seq non-opts]]
  (assoc
   (reduce
    (fn [m [opt arg]]
      (update-in m [opt]
                 (fnil conj []) arg))
    {} opt-seq)
   :getopt/more non-opts))