module Component.Table
  ( table
  , TableIn(..)
  , TableOut(..)
  ) where

import           Data.Text       (Text)
import           Reflex.Dom      (Dynamic, Event, MonadWidget)
import qualified Reflex.Dom      as R

import           Component.Pages (PagesIn (..), PagesOut (..))
import qualified Component.Pages as Pages

data TableIn h r t = TableIn
  { _tableIn_headerLabel :: h -> Text
  , _tableIn_rows        :: Dynamic t [r]
  , _tableIn_cell        :: h -> r -> Text
  , _tableIn_perPage     :: Int
  , _tableIn_resetPage   :: Event t ()
  }

data TableOut = TableOut
  {}

table :: forall t m h r. (MonadWidget t m, Bounded h, Enum h)  => TableIn h r t -> m (TableOut)
table tableIn =
  R.divClass "table" $ do
    rec
      R.divClass "lines" $ do

        R.divClass "header" $
          flip mapM_ [minBound..] $ \header ->
            R.divClass "cell" . R.text $
              _tableIn_headerLabel tableIn header

        let rows = getRange
              (_tableIn_perPage tableIn)
                <$> (_pagesOut_currentPage pages)
                <*> (_tableIn_rows tableIn)

        R.simpleList rows $ \r ->
          R.divClass "row" $
            flip mapM_ [minBound..] $ \h ->
              R.divClass "cell name" $
                R.dynText $
                  R.ffor r (_tableIn_cell tableIn h)

      pages <- Pages.widget $ PagesIn
        { _pagesIn_total = length <$> (_tableIn_rows tableIn)
        , _pagesIn_perPage = _tableIn_perPage tableIn
        , _pagesIn_reset = _tableIn_resetPage tableIn
        }

      return ()

    return $ TableOut
      {}

getRange :: forall a. Int -> Int -> [a] -> [a]
getRange perPage currentPage =
  take perPage . drop ((currentPage - 1) * perPage)