Skip to content

Instantly share code, notes, and snippets.

@Jaretbinford
Last active September 16, 2022 15:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Jaretbinford/4592318cdabb41487e2c9365bf4eb8b8 to your computer and use it in GitHub Desktop.
Save Jaretbinford/4592318cdabb41487e2c9365bf4eb8b8 to your computer and use it in GitHub Desktop.
jaret.binford at Jaret-Binford in ~/Jaret/releases/on-prem/datomic-pro-1.0.6397
$ bin/repl
Clojure 1.11.0
user=> (require '[datomic.client.api :as d])
nil
user=> (def cfg {:server-type :peer-server
:access-key "myaccesskey"
:secret "mysecret"
:endpoint "localhost:8998"
:validate-hostnames false })
#'user/cfg
user=> (def client (d/client cfg))
#'user/client
user=> (def conn (d/connect client {:db-name "hello"}))
#'user/conn
user=> (def user-schema [
{
:db/ident :User/name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one
:db/unique :db.unique/value
}
])
#'user/user-schema
user=> (d/transact conn {:tx-data user-schema})
{:db-before {:database-id "hello-7f0caa3f-0708-400e-ba28-7657f53e0f81", :db-name "hello", :t 66, :next-t 1000, :type :datomic.client/db}, :db-after {:database-id "hello-7f0caa3f-0708-400e-ba28-7657f53e0f81", :db-name "hello", :t 1000, :next-t 1001, :type :datomic.client/db}, :tx-data [#datom[13194139534312 50 #inst "2022-09-16T15:28:16.074-00:00" 13194139534312 true] #datom[72 10 :User/name 13194139534312 true] #datom[72 40 23 13194139534312 true] #datom[72 41 35 13194139534312 true] #datom[72 42 37 13194139534312 true] #datom[0 13 72 13194139534312 true]], :tempids {-9223301668109598143 72}}
user=> (def user-1-name "User")
#'user/user-1-name
user=> (def user-data [
{
:User/name user-1-name
}
])
#'user/user-data
user=> (d/transact conn {:tx-data user-data})
{:db-before {:database-id "hello-7f0caa3f-0708-400e-ba28-7657f53e0f81", :db-name "hello", :t 1000, :next-t 1001, :type :datomic.client/db}, :db-after {:database-id "hello-7f0caa3f-0708-400e-ba28-7657f53e0f81", :db-name "hello", :t 1001, :next-t 1003, :type :datomic.client/db}, :tx-data [#datom[13194139534313 50 #inst "2022-09-16T15:28:37.303-00:00" 13194139534313 true] #datom[17592186045418 72 "User" 13194139534313 true]], :tempids {-9223301668109598142 17592186045418}}
user=> (def db (d/db conn))
#'user/db
user=> (d/pull db '[*]' [:User/name user-1-name] )
#:db{:id nil}
user=> (d/pull db '[*] [:User/name user-1-name] )
{:db/id 17592186045418, :User/name "User"}
user=>
=============== TESTING ON NEW DEV
user=> (require '[datomic.client.api :as d])
user=> (def cfg {:server-type :peer-server
:access-key "myaccesskey"
:secret "mysecret"
:endpoint "localhost:8998"
:validate-hostnames false })
#'user/cfg
user=> (def client (d/client cfg))
#'user/client
user=> (def conn (d/connect client {:db-name "hello"}))
#'user/conn
user=> (def user-schema [
{
:db/ident :User/name
:db/valueType :db.type/string
:db/cardinality :db.cardinality/one
:db/unique :db.unique/value
}
])
#'user/user-schema
user=> (d/transact conn {:tx-data user-schema})
{:db-before {:database-id "hello-ba4242c4-3851-41ac-8ce2-0f4f3735ceb0", :db-name "hello", :t 66, :next-t 1000, :type :datomic.client/db}, :db-after {:database-id "hello-ba4242c4-3851-41ac-8ce2-0f4f3735ceb0", :db-name "hello", :t 1000, :next-t 1001, :type :datomic.client/db}, :tx-data [#datom[13194139534312 50 #inst "2022-09-16T15:06:57.478-00:00" 13194139534312 true] #datom[72 10 :User/name 13194139534312 true] #datom[72 40 23 13194139534312 true] #datom[72 41 35 13194139534312 true] #datom[72 42 37 13194139534312 true] #datom[0 13 72 13194139534312 true]], :tempids {-9223300668110598134 72}}
user=> (def user-1-name "User")
#'user/user-1-name
user=> (def user-data [
{
:User/name user-1-name
}
])
#'user/user-data
user=> (d/transact conn {:tx-data user-data})
{:db-before {:database-id "hello-ba4242c4-3851-41ac-8ce2-0f4f3735ceb0", :db-name "hello", :t 1000, :next-t 1001, :type :datomic.client/db}, :db-after {:database-id "hello-ba4242c4-3851-41ac-8ce2-0f4f3735ceb0", :db-name "hello", :t 1001, :next-t 1003, :type :datomic.client/db}, :tx-data [#datom[13194139534313 50 #inst "2022-09-16T15:07:27.890-00:00" 13194139534313 true] #datom[17592186045418 72 "User" 13194139534313 true]], :tempids {-9223300668110598133 17592186045418}}
user=> (def db (d/db conn))
#'user/db
user=> (d/pull db '[*]' [:User/name user-1-name] )
#:db{:id nil}
user=> (d/pull db '[*] [:User/name user-1-name] )
{:db/id 17592186045418, :User/name "User"}
========
Clojure 1.11.1
user=> (require '[datomic.api :as d])
nil
user=> (def uri "datomic:dev://localhost:4334/hello")
#'user/uri
user=> (def conn (d/connect uri))
#'user/conn
user=> (def db (d/db conn))
#'user/db
user=> (d/pull db '[*]' [:User/name user-1-name] )
#:db{:id nil}
user=> (def user-1-name "User")
#'user/user-1-name
user=> (d/pull db '[*]' [:User/name user-1-name] )
#:db{:id nil}
user=> (d/pull db '[*] [:User/name user-1-name] )
{:db/id 17592186045418, :User/name "User"}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment