27 lines
1.0 KiB
Clojure
27 lines
1.0 KiB
Clojure
(ns quil.middlewares.deprecated-options)
|
|
|
|
(def ^:private deprecated
|
|
{:decor ["2.0" "Try :features [:present] for similar effect"]
|
|
:target ["2.0" "Use :features [:keep-on-top] instead."]
|
|
:safe-draw-fn ["2.0" "Use :features [:no-safe-fns] instead."]})
|
|
|
|
(defn- check-features-vector [features]
|
|
(let [features (set features)]
|
|
(when (features :no-safe-draw)
|
|
(println "Feature :no-safe-draw was renamed to :no-safe-fns in Quil 2.1."
|
|
"Use :feature [:no-safe-fns] now."))
|
|
(disj features :no-safe-draw)))
|
|
|
|
(defn deprecated-options
|
|
"Checks if options map contains deprected options and removes them.
|
|
Prints messages how to fix deprecated functions."
|
|
[options]
|
|
(let [options (update-in options [:features] check-features-vector)]
|
|
(->> (for [[name value] options]
|
|
(if-let [[version message] (deprecated name)]
|
|
(do (println name "option was removed in Quil" version "." message)
|
|
nil)
|
|
[name value]))
|
|
(remove nil?)
|
|
(into {}))))
|