module View.Income.Income
  ( init
  , view
  , IncomeIn(..)
  ) where

import           Data.Aeson         (FromJSON)
import           Prelude            hiding (init)
import           Reflex.Dom         (Dynamic, MonadWidget)
import qualified Reflex.Dom         as R

import           Common.Model       (Currency)

import           Loadable           (Loadable (..))
import qualified Loadable
import qualified Util.Ajax          as AjaxUtil
import           View.Income.Header (HeaderIn (..), HeaderOut (..))
import qualified View.Income.Header as Header
import           View.Income.Init   (Init (..))
import           View.Income.Table  (IncomeTableIn (..))
import qualified View.Income.Table  as Table

data IncomeIn t = IncomeIn
  { _incomeIn_currency :: Currency
  , _incomeIn_init     :: Dynamic t (Loadable Init)
  }

init :: forall t m. MonadWidget t m => m (Dynamic t (Loadable Init))
init = do
  users <- AjaxUtil.getNow "api/users"
  incomes <- AjaxUtil.getNow "api/incomes"
  payments <- AjaxUtil.getNow "api/payments"
  return $ do
    us <- users
    is <- incomes
    ps <- payments
    return $ Init <$> us <*> is <*> ps

view :: forall t m. MonadWidget t m => IncomeIn t -> m ()
view incomeIn = do
  R.dyn . R.ffor (_incomeIn_init incomeIn) . Loadable.view $ \init ->

    R.elClass "main" "income" $ do

      rec

        incomes <- R.foldDyn
          (:)
          (_init_incomes init)
          (_headerOut_addIncome header)

        header <- Header.view $ HeaderIn
          { _headerIn_init = init
          , _headerIn_currency = _incomeIn_currency incomeIn
          , _headerIn_incomes = incomes
          }

      Table.view $ IncomeTableIn
        { _tableIn_init = init
        , _tableIn_currency = _incomeIn_currency incomeIn
        , _tableIn_incomes = incomes
        }

      return ()

  return ()