gistfile1.clj

; I have a bunch of these "example"-type functions:
(defn example [a b c] (str a b c))

; Imagine incoming calls which look like this:
(def testing '(example 2 3))

; My naive first attempt. Prints the string "123"
(println (apply (partial (resolve (first testing)) 1) (rest testing)))

; So, I've pre-applied the first argument to the function!
; What I'm looking for would look like this:
(with-account account
  (do-first-thing arg2 arg3)
  (do-second-thing arg2 arg3)
  (do-third-thing arg2 arg3))

; Which would expand to:
(do-first-thing account arg2 arg3)
(do-second-thing account arg2 arg3)
(do-third-thing account arg2 arg3)