Get all the attributes of a datomic entity (1 deep)

pull_one.clj

(->> eid
     (d/q '[:find ?an ?v ?cn
            :in $ ?e
            :where
            [?e ?a ?v]
            [?a :db/ident ?an]
            [?a :db/cardinality ?c]
            [?c :db/ident ?cn]]
          db)
     (reduce (fn [m [k v c]]
               (update m k (fn [o]
                             (if (= :db.cardinality/many c)
                               (if o
                                 (conj o v)
                                 [v])
                               v))))
             {}))