datomic

hello.clj

(ns tut.hello
  (:use [datomic.api :only [db q] :as d]))

(defn add-get-user [uri]
  (d/create-database uri)
  (let [conn (d/connect uri)
        dbase (d/db conn)]
    (d/transact conn [{:db/id #db/id [:db.part/user]
                       :db/doc "Hello World!"}])

    (->>
     (q '[:find ?e :where [?e :db/doc "Hello World!"]]
        dbase conn)
     (map #(d/entity dbase (first %)))
     (map (juxt :db/id :db/doc))
     )))

(add-get-user "datomic:mem://test")