module Component.Tag
  ( In(..)
  , view
  ) where

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

data In = In
  { _in_text  :: Text
  , _in_color :: Text
  }

view :: forall t m a. MonadWidget t m => In -> m ()
view input =
  R.elAttr "span" attrs $
    R.text $ _in_text input

  where
    attrs =
      M.fromList
        [ ("class", "tag")
        , ("style", T.concat [ "background-color: ", _in_color input ])
        ]