let-keys-macro.clj

(defmacro let-keys [bindings & body] 
  (let [into-keys (fn [[k v]] [{:keys k} v])
        key-bindings (->> bindings
                         (partition-all 2)
                         (mapcat into-keys))]
   `(let [~@key-bindings] ~@body)))

(def my-map { :var1 1
              :another 2
              :hello "world" })


(let [{:keys [var1 another hello]} my-map]
  (println var1 another hello))

; vs

(let-keys [[var1 another hello] my-map]
  (println var1 another hello))