less dry, easier to digest

gistfile1.clj

(-> [jay john mike chris]
    (->> (filter (comp (partial = "new york") :current-city)))
    (->> (group-by :employer))
    (update-in ["drw.com"] (partial map :name)))

Nifty! I've bumped into the same issue before, and came up with a small, not that clever but occasionally useful macro:

(defmacro thr
  "Like the threading macros, but lets you provide a symbol to which the result
   of each successive form will be bound before calling the next. Example:

   (thr x value
     (fn1 :a :b x :c)
     (fn2 x :x :y x)
     (for [v x] (fn3 v)))" 
  ([sym x form]
    `(let [~sym ~x] 
       ~form))
  ([sym x form & more]
    `(thr ~sym (thr ~sym ~x ~form) ~@more)))