Deprecate run! infavor of screen! to avoid conflict with clojure 1.7
This commit is contained in:
@@ -551,14 +551,19 @@ is the atom storing the screen map behind the scenes. Returns the updated
|
|||||||
[screen & args]
|
[screen & args]
|
||||||
((:update-fn! screen) assoc args))
|
((:update-fn! screen) assoc args))
|
||||||
|
|
||||||
(defn run!
|
(defn screen!
|
||||||
"Runs a function defined in another screen. You may optionally pass a series
|
"Runs a function defined in another screen. You may optionally pass a series
|
||||||
of key-value pairs, which will be given to the function via its screen map.
|
of key-value pairs, which will be given to the function via its screen map.
|
||||||
|
|
||||||
(run! my-other-screen :on-show)
|
(screen! my-other-screen :on-show)
|
||||||
(run! my-other-screen :on-change-color :color :blue)"
|
(screen! my-other-screen :on-change-color :color :blue)"
|
||||||
[screen-object fn-name & options]
|
[screen-object fn-name & options]
|
||||||
(let [execute-fn! (:execute-fn! screen-object)
|
(let [execute-fn! (:execute-fn! screen-object)
|
||||||
screen-fn (-> screen-object :options (get fn-name))]
|
screen-fn (-> screen-object :options (get fn-name))]
|
||||||
(apply execute-fn! screen-fn options)
|
(apply execute-fn! screen-fn options)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
|
(defn run!
|
||||||
|
"Deprecated. Please use `screen!` instead."
|
||||||
|
[& args]
|
||||||
|
(apply screen! args))
|
||||||
|
|||||||
Reference in New Issue
Block a user