Parse accept header into prioritized seq

accept.clj

(require '[thi.ng.strf.core :as strf])
(require '[clojure.string :as str])

(defn parse-accept-header
  [accept]
  (->> accept
       (re-seq #"((([\w\*\-]+/[\w\*\-\+]+,?)+)(;q=(\d+\.\d+))?)")
       (mapcat
        (fn [[_ _ a _ _ q]]
          (let [q (if q (strf/parse-float q 0) 1)]
            (map vector (str/split a #",") (repeat q)))))
       (sort-by peek)
       reverse))

(parse-accept-header
  "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8,application/json")
;; (["application/json" 1] ["application/xml" 0.9] ["application/xhtml+xml" 0.9] ["text/html" 0.9] ["*/*" 0.8])