Last active
September 16, 2022 15:29
-
-
Save Jaretbinford/4592318cdabb41487e2c9365bf4eb8b8 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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