out.clj

(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"