fixed warnings.

src/clj/auto_ap/datomic/migrate/account_sorting.clj

@@ -2,7 +2,7 @@
   (:require [datomic.api :as d]))
 
 
-(defn add-account-visibility-fields [conn]
+(defn add-account-visibility-fields [_]
   [[
     {:db/ident :bank-account/visible
      :db/valueType :db.type/boolean

src/clj/auto_ap/datomic/migrate/add_bank_account_codes.clj

@@ -1,9 +1,9 @@
 (ns auto-ap.datomic.migrate.add-bank-account-codes
-  (:require [datomic.api :as d]
-            [auto-ap.datomic :refer [uri]]
-            [clojure.string :as str]))
+  (:require
+   [clojure.string :as str]
+   [datomic.api :as d]))
 
-(defn add-bank-account-codes-schema [conn]
+(defn add-bank-account-codes-schema [_]
   [[{:db/ident :bank-account/code
      :db/valueType :db.type/string
      :db/unique :db.unique/identity

src/clj/auto_ap/datomic/migrate/add_client_codes.clj

@@ -1,6 +1,7 @@
 (ns auto-ap.datomic.migrate.add-client-codes
-  (:require [auto-ap.datomic :refer [uri]]
-            [datomic.api :as d]))
+  (:require
+   [datomic.api :as d]))
+
 (def name->code
   (->>
    [["Moscini Pizza Inc" "MPI"]

src/clj/auto_ap/datomic/migrate/add_new_vendors.clj

@@ -1,28 +1,3 @@
-(ns auto-ap.datomic.migrate.add-new-vendors
-  (:require [datomic.api :as d]
-            [auto-ap.datomic :refer [uri]]
-            [clojure.data.csv :as csv]
-            [clojure.java.io :as io]
-            [clojure.string :as str])
-  (:import [org.apache.commons.io.input BOMInputStream]))
+(ns auto-ap.datomic.migrate.add-new-vendors)
+
 
-(defn add-new-vendors [conn]
-  [[]]
-  #_(let [[header & rows] (-> "vendor-list.csv" (io/resource) io/input-stream (BOMInputStream.) (io/reader) csv/read-csv)
-        headers (map read-string header)
-        new-vendors [(reduce
-                      (fn [rows r]
-                        (conj rows (reduce
-                                    (fn [r [header value]]
-                                      (condp  = header
-                                        [:vendor/address] r
-                                        [:vendor/default-expense-account] (assoc-in r header (Integer/parseInt (str/replace value #"A" ""))) 
-                                        [:vendor/invoice-reminder-schedule] r
-                                        (assoc-in r header value)))
-                                    {}
-                                    (map vector headers r))))
-                      []
-                      rows)]]
-    (println (ffirst new-vendors))
-    new-vendors
-    ))

src/clj/auto_ap/datomic/migrate/check_numbers.clj

@@ -3,6 +3,6 @@
 
 (defn fix-check-numbers [conn]
   (let [max-check-numbers (d/query {:query {:find '[?e ?check-number (max ?d)] :in ['$] :where ['[?e :bank-account/check-number ?check-number] '[?c :payment/bank-account ?e] '[?c :payment/check-number ?d]]} :args [(d/db conn)]})]
-    [(for [[bank-account check-number max-check client] max-check-numbers 
+    [(for [[bank-account check-number max-check _] max-check-numbers 
            :when (>= max-check check-number)]
        {:db/id bank-account :payment/check-number (inc max-check)})]))

src/clj/auto_ap/datomic/migrate/invoice_converter.clj

@@ -34,7 +34,7 @@
                                   :location-match/matches ["campbell brewing company"]}]}]]
     [[]]))
 
-(defn add-default-location [conn]
+(defn add-default-location [_]
   [[{:db/ident :client/default-location
      :db/valueType :db.type/string
      :db/cardinality :db.cardinality/one

src/clj/auto_ap/datomic/migrate/rename_codes.clj

@@ -26,7 +26,7 @@
     )
   )
 
-(defn rename-codes-1 [conn]
+(defn rename-codes-1 [_]
   (let [result (apply concat [(rename  "WE" "WME" (d/connect uri))
                               (rename  "HM" "HIM" (d/connect uri))
                               (rename  "BES" "SBE" (d/connect uri))