Getting Datomic query results as a sequence of maps.

q_maps.clj

(defn q-maps
  [query & args]
  {:pre [(map? query)]} 
  (let [ks (map #(-> % name (subs 1) keyword) (:find query))
        rs (apply datomic.api/q query args)]
    (map (partial zipmap ks) rs)))

(q-maps {:find  '[?id ?val] 
         :where '[[?e :id ?id] [?e :val ?val]]} 
        db)
;;=> ({:val 150, :id "d"} {:val 122, :id "a"} {:val 123, :id "b"})

(q-maps {:find '[?i ?v] :where '[[?e :id ?i] [?e :val ?v]]} @d)
;;=> ({:v 150, :i "d"} {:v 122, :i "a"} {:v 123, :i "b"})