{-# LANGUAGE TemplateHaskell #-}
module Simple.UI.Widgets.Text (
TextAlign (..),
Text,
TextClass,
castToText,
textNew,
text,
align
) where
import Control.Lens (makeLensesFor)
import Simple.UI.Core.Internal.UIApp
import Simple.UI.Core.Attribute
import Simple.UI.Widgets.Widget
data TextAlign = TextAlignLeft
| TextAlignRight
| TextAlignCenter
data Text = Text
{ _textParent :: Widget
, _textText :: Attribute (Maybe String)
, _textAlign :: Attribute TextAlign
}
makeLensesFor [("_textParent", "textParent")] ''Text
class WidgetClass w => TextClass w where
castToText :: w -> Text
text :: w -> Attribute (Maybe String)
text = _textText . castToText
align :: w -> Attribute TextAlign
align = _textAlign . castToText
instance TextClass Text where
castToText = id
instance WidgetClass Text where
castToWidget = _textParent
overrideWidget = overrideWidgetHelper textParent
textNew :: Maybe String -> UIApp u Text
textNew s = do
parent <- widgetNew
t <- attributeNew s
a <- attributeNew TextAlignLeft
return Text
{ _textParent = parent
, _textText = t
, _textAlign = a
}