hash-by-names.clj

;; {:x x, :y y}みたいなhash-mapを毎回作るのがダルくなってきたので...
(defmacro hash-map-by-names [& names]
  `(let [pairs# (map (fn [name#]
		       (list (keyword name#) (deref (resolve name#))))
		     '~names)]
     (apply hash-map (flatten pairs#))))

(def x 1)
(def y 2)

(hash-map-by-names x y) ; {:y 2, :x 1}