undoing commit.

This commit is contained in:
2022-04-01 10:23:44 -07:00
parent e06861158e
commit 442e9799c7
6 changed files with 48 additions and 170 deletions

View File

@@ -14,7 +14,7 @@
(defn date->str [d]
#?(:clj
(atime/unparse-local d atime/normal-date)
:cljs (au/date->str d au/pretty)))
:cljs (au/date->str d au/standard)))
(def ranges
@@ -407,8 +407,8 @@
(defn balance-sheet-headers [pnl-data]
[(cond-> [{:value "Period Ending"}
{:value (date->str (:date (:args pnl-data)))}]
(:include-comparison (:args pnl-data)) (into [{:value (date->str (:comparison-date (:args pnl-data)))} {:value "+/-"}]))])
{:value (:date (:args pnl-data))}]
(:include-comparison (:args pnl-data)) (into [{:value (:comparison-date (:args pnl-data))} {:value "+/-"}]))])
(defn append-deltas [table]
(->> table
@@ -420,6 +420,7 @@
(:value b))})]))))
(defn summarize-balance-sheet [pnl-data]
(println (:periods (:args pnl-data)))
(let [table (-> []
(into (detail-rows pnl-data
:assets