{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE OverloadedStrings         #-}
{-# LANGUAGE RecursiveDo               #-}

module View.Payment.Pages
  ( widget
  , PagesIn(..)
  , PagesOut(..)
  ) where

import qualified Data.Text as T
import Reflex.Dom (MonadWidget)
import qualified Reflex.Dom as R

import Common.Model (Payment(..))

import qualified Icon

data PagesIn = PagesIn
  { _pagesIn_payments :: [Payment]
  }

data PagesOut = PagesOut
  {
  }

widget :: forall t m. MonadWidget t m => PagesIn -> m PagesOut
widget _ = do
  R.divClass "pages" $ do
    page Icon.doubleLeftBar
    page Icon.doubleLeft
    page (R.text . T.pack . show $ (1 :: Integer))
    page (R.text . T.pack . show $ (2 :: Integer))
    page (R.text . T.pack . show $ (3 :: Integer))
    page (R.text . T.pack . show $ (4 :: Integer))
    page (R.text . T.pack . show $ (5 :: Integer))
    page Icon.doubleRight
    page Icon.doubleRightBar
  return $ PagesOut {}

page :: forall t m. MonadWidget t m => m () -> m ()
page content = R.elClass "button" "page" $ content