aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Price.elm
blob: cb8abd2a8a981a5e6ac84c6192b96db87c061cbe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
module View.Price
  ( price
  ) where

import String exposing (..)

import Model exposing (Model)
import Model.Translations exposing (getMessage)

price : Model -> Int -> String
price model amount =
  (  formatInt amount
  ++ " "
  ++ getMessage "MoneySymbol" model.translations
  )

formatInt : Int -> String
formatInt n =
  abs n
    |> toString
    |> toList
    |> List.reverse
    |> group 3
    |> List.intersperse [' ']
    |> List.concat
    |> List.reverse
    |> fromList
    |> append (if n < 0 then "-" else "")

group : Int -> List a -> List (List a)
group n xs =
  if List.length xs <= n
    then
      [xs]
    else
      let take = List.take n xs
          drop = List.drop n xs
      in  take :: (group n drop)