map-of

src/compojure/api/common.clj

@@ -44,6 +44,12 @@
    thus retaining the insertion order. O(n)."
   [m k v] (apply array-map (into (vec (apply concat m)) [k v])))
 
+(defmacro map-of
+  "creates map with symbol names as keywords as keys and
+   symbol values as values."
+  [& syms]
+  `(zipmap ~(vec (map keyword syms)) ~(vec syms)))
+
 ;;
 ;; meta-data-container
 ;;

src/compojure/api/core.clj

@@ -183,7 +183,7 @@
                 body]} (reduce
                          (fn [acc [k _]]
                            (or (restructure-param k acc) acc))
-                         {:lets lets :letks letks :parameters parameters :body body}
+                         (map-of lets letks parameters body)
                          parameters)]
     `(~method-symbol
        ~path

test/compojure/api/common_test.clj

@@ -64,6 +64,10 @@
   (fact "assoc-map-ordered for array-map retains its order"
     (keys (reduce (partial apply assoc-map-ordered) (array-map) (map-indexed vector (range 100)))) => (range 100)))
 
+(fact "map-of"
+  (let [a 1 b true c [:abba :jabba]]
+    (map-of a b c) => {:a 1 :b true :c [:abba :jabba]}))
+
 (fact "unwrapping meta-container"
   (fact "meta-data is returned"
     (unwrap-meta-container '(meta-container {:a 1} identity)) => {:a 1})