gered/mtgcoll
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

format prices with 2 decimal places always

Browse source
This commit is contained in:
Gered 2016-07-10 17:15:53 -04:00
parent ac93a58829
commit f8d858e821
3 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/mtgcoll/client/components/cards.cljs
View file

@ -7,7 +7,8 @@
[webtools.reagent.components :refer [raw-html]]
[mtgcoll.common :refer [max-search-results]]
[mtgcoll.client.components.utils :refer [set-short-label symboled-markup th-sortable]]
[mtgcoll.client.components.inventory :refer [inventory]]))
[mtgcoll.client.components.inventory :refer [inventory]]
[mtgcoll.client.utils :refer [format-currency]]))
(defn card-image
[card-id & {:keys [width height]}]
@ -86,8 +87,8 @@
(if (or power toughness)
(str " (" power "/" toughness ")")))]
[:td rarity]
[:td paper_price]
[:td online_price]
[:td (format-currency paper_price true)]
[:td (format-currency online_price true)]
[:td [inventory id
{:num-owned owned_count
:button-size "xsmall"

6
src/mtgcoll/client/routes/cards.cljs
View file

@ -9,7 +9,7 @@
[mtgcoll.client.components.cards :refer [card-image card-link]]
[mtgcoll.client.components.utils :refer [symbol-image set-heading set-label symboled-markup]]
[mtgcoll.client.components.inventory :refer [inventory]]
[mtgcoll.client.utils :refer [format-date format-datetime]]))
[mtgcoll.client.utils :refer [format-date format-datetime format-currency]]))
(defn detail
[& components]
@ -178,8 +178,8 @@
^{:key idx}
[:tr
[:td source]
[:td paper-price]
[:td online-price]
[:td (format-currency paper-price true)]
[:td (format-currency online-price true)]
[:td (format-datetime last-updated)]]))))]]])
(if (and (seq @printings)
(> (count @printings) 1))

4
src/mtgcoll/client/utils.cljs
View file

@ -60,6 +60,6 @@
(string/replace (str n) #"\B(?=(\d{3})+(?!\d))" ",")))
(defn format-currency
[n]
[n & [number-only?]]
(if n
(str "$" (pprint/cl-format nil "~,2f" n))))
(str (if-not number-only? "$") (pprint/cl-format nil "~,2f" n))))