boot & lein '[[dependencies]]: stripping aot classifiers

strip-aot.clj

;; useful for test / dev tasks

(defn dep-to-attrs [dep]
  (into {} (map vec (partition 2 dep))))

(defn attrs-to-dep [attrs]
  (->> attrs
       (apply vector)
       (apply concat)
       vec))

(defn strip-aot [dep]
  (let [{:keys [classifier] :as attrs} (dep-to-attrs dep)]
    (attrs-to-dep (if (= "aot" classifier) 
                    (dissoc attrs :classifier)
                    attrs))))

;; in dev/test tasks:

(deftask xyz []
  (set-env! :dependencies #(mapv strip-aot %))
  ;; .. 
  )