tapestry-inject.clj

(ns com.myapp.tapestry.serviceregistry
  (:import (org.apache.tapestry5.ioc ObjectLocator)))

(def ^:dynamic ^ObjectLocator *tapestry-registry-ref* (promise))

(defn init-registry [^ObjectLocator registry]
  "Must be called during service initialization to set up Tapestry registry object"
  (deliver *tapestry-registry-ref* registry))

(defmacro with-tapestry-services [service-bindings & body]
  "Apply service bindings to body"
  (let [service-binding-pairs# (partition-all 2 service-bindings)
        service-binding-exprs# (map #(vector (first %1) `(.getService (deref *tapestry-registry-ref*) ~(second %1))) service-binding-pairs#)
        service-binding-final# (vec (reduce concat service-binding-exprs#))]
    `(let ~service-binding-final# ~@body)))

;; Usage

(with-tapestry-services [hibernate-session Session my-service MyService]
  (defn do-something [arg & args]
    ;; use hibernate-session and my-service normally
  )
)