module Component.Input
  ( InputIn(..)
  , InputOut(..)
  , input
  ) where

import           Data.Text  (Text)
import           Reflex.Dom (Dynamic, Event, MonadWidget, (&), (.~), (=:))
import qualified Reflex.Dom as R

data InputIn t a b = InputIn
  { _inputIn_reset       :: Event t a
  , _inputIn_placeHolder :: Text
  }

data InputOut t = InputOut
  { _inputOut_value :: Dynamic t Text
  , _inputOut_enter :: Event t ()
  }

input :: forall t m a b. MonadWidget t m => InputIn t a b -> m (InputOut t)
input inputIn = do
  let placeHolder = R.constDyn ("placeHolder" =: _inputIn_placeHolder inputIn)
  let value = fmap (const "") (_inputIn_reset inputIn)
  textInput <- R.textInput $ R.def & R.attributes .~ placeHolder
                                   & R.setValue .~ value
  let enter = fmap (const ()) $ R.ffilter ((==) 13) . R._textInput_keypress $ textInput
  return $ InputOut
    { _inputOut_value = R._textInput_value textInput
    , _inputOut_enter = enter
    }