acms/frontend/app/Form/Input.hs

module Form.Input
  ( string,
  )
where

import Data.Text qualified as T
import Form.Internal
import Miso
import Miso.String (fromMisoString, toMisoString)

string :: String -> Form T.Text T.Text
string label =
  Form
    { view = \i ->
        [ div_ [] $
            [ label_ [] $
                [ text (toMisoString label),
                  input_
                    [ type_ "text",
                      value_ (toMisoString i),
                      onInput fromMisoString
                    ]
                ]
            ]
        ],
      fill = \i -> Right i
    }