Port of part of the datomic tutorial to Clojure

datomic-tutorial-snippet.clj

(ns datomic-tutorial (:import [datomic Peer Util]
                              [java.io FileReader]))

;;create database
(Peer/createDatabase "datomic:mem://seattle")

(Peer/createDatabase "datomic:mem://seattle")
(let [conn (Peer/connect "datomic:mem://seattle")]
  ;; setup sample schema
  (.get (.transact conn
                   (first (Util/readAll
                           (FileReader. "samples/seattle/seattle-schema.dtm")))))

  ;; load sample data
  (.get (.transact conn
                   (first (Util/readAll
                           (FileReader. "samples/seattle/seattle-data0.dtm")))))

  ;; query the database
  (let [results (Peer/q "[:find ?c :where [?c :community/name]]"
                        (to-array [(.db conn)]))
        e (.entity (.db conn) (first (first results)))]
    (:community/name e)))

There is a native Clojure API btw:
http://www.datomic.com/company/resources/clojure-api

Notably, the Clojure API lets you write the datalog as clojure data-structure literals, rather than strings:

  (q '[:find ?c :where [?c :community/name]] (db conn)))

Here's my version of their "getting started" page in clojure https://gist.github.com/3132207