Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns dire-vec.core
- (:require [dire.core :refer :all]))
- (defn f-a [] (prn "Called A"))
- (defn f-b [] (prn "Called B"))
- (def fs [{:f #'f-a :m "In before A"} {:f #'f-b :m "In before B"}])
- (doseq [f fs]
- (with-pre-hook! (:f f)
- (λ [& _]
- (prn (:m f)))))
- (f-a)
- (f-b)
- ;;; Console:
- "In before A"
- "Called A"
- "In before B"
- "Called B"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement