diff --git a/src/import.clj b/src/import.clj index 427637a..f88ba0d 100644 --- a/src/import.clj +++ b/src/import.clj @@ -206,10 +206,10 @@ :currency "USD"}]] {:date date :desc (format "Monthly Payroll - %s - TAXES - %s" period name) :meta (assoc-project projects name {:project "Conservancy" - :program "Conservancy:Payroll" - :entity name - :receipt receipt-no - :approval "Financial/Employment-Records/memo-re-board-approval-of-payroll.txt"}) + :program "Conservancy:Payroll" + :entity name + :receipt receipt-no + :approval "Financial/Employment-Records/memo-re-board-approval-of-payroll.txt"}) :postings (concat retirement-postings liability-postings @@ -231,9 +231,9 @@ ;; Use eg. "US:Medicare", not "US:Tax:Medicare" as ;; in individual-taxes as confirmed by Rosanne. :meta (assoc-project projects - name - {:entity name - :payroll-type (str/replace (cat->payroll-type category) "Tax:" "")})}) + name + {:entity name + :payroll-type (str/replace (cat->payroll-type category) "Tax:" "")})}) total-liabilities (->> liability-postings (map :amount) (reduce + 0M)) unemploy-lines (filter (fn [{:keys [category type]}] (and (= type "Liability") @@ -243,10 +243,10 @@ :amount amount :currency "USD" :meta (assoc-project projects - name - {:entity (first (str/split category #" ")) - :memo name ; distinguishes multiple employees in one state - :payroll-type (str "US:" (cat->payroll-type category))})}) + name + {:entity (first (str/split category #" ")) + :memo name ; distinguishes multiple employees in one state + :payroll-type (str "US:" (cat->payroll-type category))})}) total-unemploy (->> unemploy-postings (map :amount) (reduce + 0M)) asset-postings [{:account "Assets:FR:Check2721" :amount (- (+ total-liabilities total-unemploy))