notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

datomic progress.

Browse Source
This commit is contained in:
BC
2018-08-10 07:21:41 -07:00
parent 29eb684d6f
commit f0512085ab
1 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
src/clj/auto_ap/datomic.clj
View File

@@ -40,10 +40,12 @@
:db/valueType :db.type/ref :db/valueType :db.type/ref
:db/cardinality :db.cardinality/one :db/cardinality :db.cardinality/one
:db/doc "The vendor's secondary contact"} :db/doc "The vendor's secondary contact"}
{:db/ident :vendor/address {:db/id #db/id[:db.part/db]
:db/ident :vendor/address
:db/valueType :db.type/ref :db/valueType :db.type/ref
:db/cardinality :db.cardinality/one :db/cardinality :db.cardinality/one
:db/isComponent true :db/isComponent true
:db.install/_attribute :db.part/db
:db/doc "The vendor's address"} :db/doc "The vendor's address"}
{:db/ident :address/street1 {:db/ident :address/street1
@@ -92,28 +94,28 @@
(d/transact (d/transact
(d/connect uri) (d/connect uri)
(let [all-vendors (v/get-all)] (let [all-vendors (v/get-all)]
(doto (map (doto (take 5 (map
(fn [{:keys [primary-phone address email primary-contact secondary-email secondary-contact primary-email name default-expense-account id code secondary-phone invoice-reminder-schedule print-as]}] (fn [{:keys [primary-phone address email primary-contact secondary-email secondary-contact primary-email name default-expense-account id code secondary-phone invoice-reminder-schedule print-as]}]
(cond-> #:vendor {#_#_:db/ident id (cond-> #:vendor {:db/ident (keyword (str "vendor-" id))
:name name} :name name}
email (assoc :vendor/email email) email (assoc :vendor/email email)
invoice-reminder-schedule (assoc :vendor/invoice-reminder-schedule invoice-reminder-schedule) invoice-reminder-schedule (assoc :vendor/invoice-reminder-schedule invoice-reminder-schedule)
(and address (and address
(:street1 address) (:street1 address)
(:street2 address) (:street2 address)
(:city address) (:city address)
(:state address) (:state address)
(:zip address)) (:zip address))
(assoc :vendor/address #:address { (assoc :vendor/address #:address {
:street1 (:street1 address) :street1 (:street1 address)
:street2 (:street2 address) :street2 (:street2 address)
:city (:city address) :city (:city address)
:state (:state address) :state (:state address)
:zip (:zip address)}))) :zip (:zip address)})))
all-vendors) all-vendors))
clojure.pprint/pprint) clojure.pprint/pprint)
))) )))
@@ -124,6 +126,5 @@
(create-database uri) (create-database uri)
@(create-schema ) @(create-schema )
@(load-entities) @(load-entities)
@(load-vendors) @(load-vendors))
(count (query-entities)))