cond-transform.clj

(defn cond-transform [x & pairs]
  (reduce (fn [x [test-fn transform-fn]]
            (if (test-fn x)
              (transform-fn x)
              x))
          x
          pairs))

;; example

(cond-transform x
  [test1 transform1]
  [test2 transform2]
  [test3 transform3])