Clojure Macros: get-it, assoc-it

get-it.clj

;;First rule of macros: Don't write a macro if you a function can do the job!

(defn assoc-it[obj & more]
  (let [path (vec (drop-last 1 more))
        val (last more)]
  (assoc-in obj path val)))

(assoc-it {:a {:b 6}} :a :b 5 ) ;; {:a {:b 5}}

(defn get-it[obj & path]
  (get-in obj path))

(get-it {:a {:b 3}} :a :b ) ;; 3


(defmacro assoc-it[obj & more]
  `(let [path# (vec (drop-last 1 (list ~@more)))
        val# (last (list ~@more))]
  (assoc-in ~obj path# val#)))

(assoc-it {:a {:b 6}} :a :b 5 ) ;; {:a {:b 5}}

(defmacro get-it[obj & path]
  `(get-in ~obj [~@path]))

(get-it {:a {:b 3}} :a :b ) ;; 3