set-with!

set_with.clj

;; funny little macro to make interop bit less painful

(set! *warn-on-reflection* true)

(defmacro set-with! [obj [sym prop] & body]
  `(let [obj# ~obj
         ~sym (. obj# ~prop)]
     (set! (. obj# ~prop) (do ~@body))))

;; use: ----------------------------------------
(use 'arcadia.core)
(import '[UnityEngine Transform GameObject Vector3])

(defn v+ ^Vector3 [^Vector3 v1 ^Vector3 v2]
  (Vector3/op_Addition v1 v2))

(defn travel [^GameObject obj]
  (doto (get-component obj Transform)
    (set-with! [pos localPosition]
      (v+ pos (Vector3. 1 2 3)))))

(defn travel-weirdly [^GameObject obj]
  (let [^Transform trns (get-component obj Transform)]
    (set-with! trns [pos localPosition]
      (set-with! trns [eua localEulerAngles]
        (v+ eua pos))
      (v+ pos (Vector3. 1 2 3)))))