expand-set-values.clj

(defn collify [x-or-coll]
  (if (coll? x-or-coll)
    x-or-coll
    [x-or-coll]))

(defn keyword->symbol [k]
  (symbol (name k)))

(defmacro expand-set-values
  [attributes]
  (let [ks (keys attributes)]
    `(into []
       (for
        ~(into [] (mapcat (juxt (comp keyword->symbol first) (comp collify second)) attributes))
        ~(into {} (mapv vector ks (map keyword->symbol ks)))))))
        
(comment
  (expand-set-values {:k1 [:v1 :v2]
                      :k2 :v3
                      :k3 [:v4 :v5 :v6]})
  (macroexpand-1
    `(expand-set-values {:k1 [:v1 :v2]
                         :k2 :v3
                         :k3 [:v4 :v5 :v6]})))