make functions, not macros :-)

(defn make-mover [method & attribs]
  (fn [xy]
    (reduce
     (fn [memo attrib]
       (update-in memo [attrib] method))
     xy
     attribs)))

(def movers {:horiz  (make-mover inc :x)
             :vert   (make-mover inc :y)
             :diag-r (make-mover inc :x :y)
             :diag-l (make-mover dec :x :y)})

((movers :diag-r) {:x 0, :y 0}) ;; {:x 1, :y 1}