undoing commit.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user