module Model exposing
  ( Model
  , init
  )

import Time exposing (Time)
import Json.Decode as Json

import Page exposing (Page)
import Init as Init exposing (Init)
import Msg exposing (Msg)

import Model.View exposing (..)
import Model.Translations exposing (..)
import Model.Conf exposing (..)
import Model.InitResult exposing (..)
import LoggedIn.Model as LoggedInModel

import SignIn.Model as SignInModel

import Utils.Maybe exposing (isJust)

type alias Model =
  { view : View
  , currentTime : Time
  , translations : Translations
  , conf : Conf
  , page : Page
  }

init : Json.Value -> Result String Page -> (Model, Cmd Msg)
init payload result =
  let page =
        case result of
          Err _ -> Page.Home
          Ok page -> page
      model =
        case Json.decodeValue Init.decoder payload of
          Ok { time, translations, conf, result } ->
            { view =
                case result of
                  InitEmpty ->
                    SignInView (SignInModel.init Nothing)
                  InitSuccess init ->
                    LoggedInView (LoggedInModel.init init)
                  InitError error ->
                    SignInView (SignInModel.init (Just error))
            , currentTime = time
            , translations = translations
            , conf = conf
            , page = page
            }
          Err error ->
            { view = SignInView (SignInModel.init (Just error))
            , currentTime = 0
            , translations = []
            , conf = { currency = "" }
            , page = page
            }
  in  (model, Cmd.none)