module View.Payment.Add
  ( view
  , Input(..)
  ) where

import           Control.Monad             (join)
import           Control.Monad.IO.Class    (liftIO)
import qualified Data.Text                 as T
import qualified Data.Time.Clock           as Time
import           Reflex.Dom                (Dynamic, Event, MonadWidget)
import qualified Reflex.Dom                as R

import           Common.Model              (Category (..), CreatePayment (..),
                                            Frequency (..), Payment (..),
                                            PaymentCategory (..),
                                            SavedPayment (..))
import qualified Common.Msg                as Msg
import qualified Common.Util.Time          as TimeUtil
import qualified Common.Validation.Payment as PaymentValidation
import qualified Component.Modal           as Modal
import qualified Util.Reflex               as ReflexUtil
import qualified View.Payment.Form         as Form

data Input t = Input
  { _input_categories        :: [Category]
  , _input_paymentCategories :: Dynamic t [PaymentCategory]
  , _input_frequency         :: Dynamic t Frequency
  }

view :: forall t m. MonadWidget t m => Input t -> Modal.Content t m SavedPayment
view input cancel = do

  currentDay <- liftIO $ Time.getCurrentTime >>= TimeUtil.timeToDay

  formOutput <- R.dyn $ do
    paymentCategories <- _input_paymentCategories input
    frequency <- _input_frequency input
    return $ Form.view $ Form.Input
      { Form._input_cancel = cancel
      , Form._input_headerLabel = Msg.get Msg.Payment_Add
      , Form._input_categories = _input_categories input
      , Form._input_paymentCategories = paymentCategories
      , Form._input_name = ""
      , Form._input_cost = ""
      , Form._input_date = currentDay
      , Form._input_category = -1
      , Form._input_frequency = frequency
      , Form._input_mkPayload = CreatePayment
      , Form._input_httpMethod = Form.Post
      }

  hide <- ReflexUtil.flatten (Form._output_hide <$> formOutput)
  addPayment <- ReflexUtil.flatten (Form._output_addPayment <$> formOutput)

  return (hide, addPayment)