module LoggedIn.View.Format exposing
  ( price
  )

import String exposing (..)

import Model.Conf exposing (Conf)

price : Conf -> Int -> String
price conf amount =
  (  number amount
  ++ " "
  ++ conf.currency
  )

number : Int -> String
number 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)