diff --git a/src/clj/auto_ap/datomic.clj b/src/clj/auto_ap/datomic.clj index 427b8763..28298240 100644 --- a/src/clj/auto_ap/datomic.clj +++ b/src/clj/auto_ap/datomic.clj @@ -12,7 +12,9 @@ [clj-time.core :as time] [clj-time.coerce :as coerce])) - (def uri "datomic:sql://invoices?jdbc:postgresql://database:5432/datomic?user=datomic&password=datomic") +#_ (def uri "datomic:sql://invoices?jdbc:postgresql://database:5432/datomic?user=datomic&password=datomic") + +(def uri "datomic:mem://datomic-transactor:4334/invoice") (defn create-database [] (d/create-database uri)) diff --git a/src/clj/auto_ap/datomic/migrate.clj b/src/clj/auto_ap/datomic/migrate.clj index 5f5ef6d6..62a0cf46 100644 --- a/src/clj/auto_ap/datomic/migrate.clj +++ b/src/clj/auto_ap/datomic/migrate.clj @@ -48,8 +48,8 @@ :invoice-status/unpaid)]])})}]] ) (defn -main [& args] - (println "Creating database...") - (d/create-database uri) + (println "Creating database ..." uri) + (doto (d/create-database uri) println) (let [ conn (d/connect uri) @@ -138,7 +138,9 @@ }] (println "Conforming database...") (println (c/ensure-conforms conn norms-map)) - (d/release conn) + (when (not (seq args)) + (d/release conn)) (println "Done"))) -#_(-main) +#_(-main false) + diff --git a/src/cljs/auto_ap/views/pages/admin/rules/form.cljs b/src/cljs/auto_ap/views/pages/admin/rules/form.cljs index 03b32b4a..3f47ddc1 100644 --- a/src/cljs/auto_ap/views/pages/admin/rules/form.cljs +++ b/src/cljs/auto_ap/views/pages/admin/rules/form.cljs @@ -264,7 +264,6 @@ (defn test-results-modal [] (when (:visible? @(re-frame/subscribe [::subs/modal-state ::test-results])) - (println "TEST" @(re-frame/subscribe [::test-results])) [modal {:title "Rule results" :hide-event [::events/modal-status ::test-results {:visible? false}]} [:table.table.is-fullwidth.compact