Gateway resolver

gistfile1.clj

(defn gateway-fn
  "Retrieves a function given it's full name"
  [gateway access method]
  {:post [(not (nil? %))]}
  (let [sym (symbol (str "project-namespace." (name gateway) "." (name access) "/" (name method)))]
    (resolve sym)))

(defn gateway-call
  "Dispatches to a function on the given provider"
  [access method & args]
  (let [gateway (gateway-provider)
        f (gateway-fn gateway access method)]
    (if args
      (apply f args)
      (f))))