module Chart.Api exposing
  ( from
  , withSize
  , withTitle
  , withOrdinate
  , toHtml
  )

import Html exposing (Html)
import Svg exposing (..)
import Svg.Attributes exposing (..)

import Chart.Model as Chart exposing (Chart, Serie, Vec2, View)
import Chart.View as Chart

from : List String -> List Serie -> Chart
from keys series =
  { keys = keys
  , series = series
  , size = { x = 600, y = 400 }
  , title = ""
  , scaleColor = "#DDDDDD"
  , formatOrdinate = toString
  , ordinateLines = 5
  }

withSize : Vec2 -> Chart -> Chart
withSize size chart = { chart | size = size }

withTitle : String -> Chart -> Chart
withTitle title chart = { chart | title = title }

withOrdinate : Int -> (Float -> String) -> Chart -> Chart
withOrdinate lines format chart =
  { chart
  | formatOrdinate = format
  , ordinateLines = lines
  }

toHtml : Chart -> Html msg
toHtml chart = Chart.view chart