((juxe :a a :b b :c c) x) => {:a (a x) :b (b x) :c (c x)}

(defn juxe [& kf-pairs]
  (let [pairs (partition 2 kf-pairs)
        [ks fs] (apply mapv vector pairs)]
    (fn [x] (zipmap ks (map #(% x) fs)))))

=> ((juxe :a inc :b dec :c -) 99)
{:a 100, :b 98, :c -99}