(ns auto-ap.datomic.migrate
  (:require [auto-ap.datomic :refer [uri]]
            [datomic.api :as d]
            [auto-ap.datomic.migrate.add-client-codes :refer [add-client-codes]]
            [auto-ap.datomic.migrate.add-bank-account-codes :refer [add-bank-account-codes]]
            [clojure.java.io :as io]
            [io.rkn.conformity :as c])
  (:import [datomic Util])
  (:gen-class))


(defn read-dtm
  "Reads a dtm file (i.e., an edn file with datomic tags in it) from the classpath
  and returns a vector of all forms contained within."
  [filename]
  (-> (io/resource filename) (io/reader) (Util/readAll)))

(defn functions [conn]
  [[{:db/ident :pay
    :db/doc "Data function that increments value of attribute a by amount."
    :db/fn (d/function '{:lang "clojure"
                        :params [db e amount]
                        :code (let [current-outstanding-balance (-> (d/entity db e) :invoice/outstanding-balance)
                                new-outstanding-balance (- current-outstanding-balance amount)]
                            [[:db/add e :invoice/outstanding-balance new-outstanding-balance]
                             [:db/add e :invoice/status (if (> new-outstanding-balance 0)
                                                          :invoice-status/unpaid
                                                          :invoice-status/paid)]])})}
   {:db/ident :inc
    :db/doc "Data function that increments value of attribute a by amount."
    :db/fn (d/function '{:lang "clojure"
                        :params [db e a amount]
                        :code [[:db/add e a
                            (-> (d/entity db e) a (+ amount))]] })}]] )

(defn -main [& args]
    (println "Creating database...")
  #_(d/delete-database uri)
  (d/create-database uri)
  
  (let [
        conn (d/connect uri)
          norms-map {:auto-ap/base-schema {:txes auto-ap.datomic/base-schema}
                     :auto-ap/functions {:txes-fn 'auto-ap.datomic.migrate/functions :requires [:auto-ap/base-schema]}
                     :auto-ap/migrate-vendors {:txes-fn 'auto-ap.datomic/migrate-vendors :requires [:auto-ap/base-schema]}
                     :auto-ap/migrate-clients {:txes-fn 'auto-ap.datomic/migrate-clients :requires [:auto-ap/migrate-vendors]}
                     :auto-ap/migrate-users {:txes-fn 'auto-ap.datomic/migrate-users :requires [:auto-ap/migrate-clients]}
                     :auto-ap/migrate-invoices {:txes-fn 'auto-ap.datomic/migrate-invoices :requires [:auto-ap/migrate-vendors :auto-ap/migrate-clients]}
                     :auto-ap/migrate-payments {:txes-fn 'auto-ap.datomic/migrate-payments :requires [:auto-ap/migrate-invoices]}
                     :auto-ap/migrate-invoices-payments {:txes-fn 'auto-ap.datomic/migrate-invoices-payments :requires [:auto-ap/migrate-payments :auto-ap/migrate-invoices]}
                     :auto-ap/migrate-invoices-expense-accounts {:txes-fn 'auto-ap.datomic/migrate-invoices-expense-accounts :requires [:auto-ap/migrate-invoices-payments]}
                     :auto-ap/migrate-transactions {:txes-fn 'auto-ap.datomic/migrate-transactions :requires [:auto-ap/migrate-invoices-expense-accounts]}
                     :auto-ap/add-client-codes {:txes-fn 'auto-ap.datomic.migrate.add-client-codes/add-client-codes :requires [:auto-ap/migrate-transactions]}
                     :auto-ap/add-bank-account-codes-schema {:txes-fn 'auto-ap.datomic.migrate.add-bank-account-codes/add-bank-account-codes-schema :requires [:auto-ap/add-client-codes]}
                     :auto-ap/add-bank-account-codes {:txes-fn 'auto-ap.datomic.migrate.add-bank-account-codes/add-bank-account-codes :requires [:auto-ap/add-bank-account-codes-schema]}
                     :auto-ap/add-nick-the-greek {:txes [[{:client/name "Nick the Greek" :client/code "NGAK" :client/locations ["MH"] :client/bank-accounts [{:bank-account/code "NGAK-0" :bank-account/type :bank-account-type/cash :bank-account/name "Cash"}]}]] :requires [:auto-ap/add-bank-account-codes]}
                     :auto-ap/rename-codes-3 {:txes-fn 'auto-ap.datomic.migrate.rename-codes/rename-1 :requires [:auto-ap/add-nick-the-greek]}
                     }]
      (println "Conforming database...")
      (println (c/ensure-conforms  conn norms-map))
      (d/release conn)
      (println "Done")))
#_(-main)