From eacb4c9653df0112e6921f8fa35922284773fec5 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 20 Dec 2024 21:18:31 +0100 Subject: style form --- frontend/app/Form/Input.hs | 8 +++++--- frontend/app/Main.hs | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+), 3 deletions(-) (limited to 'frontend/app') diff --git a/frontend/app/Form/Input.hs b/frontend/app/Form/Input.hs index 3539e96..0b4f1ca 100644 --- a/frontend/app/Form/Input.hs +++ b/frontend/app/Form/Input.hs @@ -120,7 +120,9 @@ inputNumber label = let parse :: MisoString -> Either MisoString Double parse i = let i' = strip i - in if Miso.String.null i' then Left "required" else Right (read (fromMisoString i')) + in if Miso.String.null i' + then Left "required" + else Right (read (fromMisoString i')) in Form { view = \i -> [ div_ [] $ @@ -149,7 +151,7 @@ inputText label = in if Miso.String.null i' then Left "required" else Right i' in Form { view = \i -> - [ div_ [] $ + [ div_ [class_ "input text"] $ [ label_ [] $ [ text label, div_ [] $ @@ -158,7 +160,7 @@ inputText label = value_ i, onInput id ], - div_ [] $ + div_ [ class_ "error-helper" ] $ [either text (\_ -> text "") (parse i)] ] ] diff --git a/frontend/app/Main.hs b/frontend/app/Main.hs index d851cca..bf8ada3 100644 --- a/frontend/app/Main.hs +++ b/frontend/app/Main.hs @@ -295,6 +295,39 @@ table td { overflow: hidden; text-overflow: ellipsis; max-width: 480px; } + +/* form */ +.input label { + display: block; + padding-left: 6px; } + +.input .error-helper { + display: block; + padding-left: 6px; } + +.input label > div { + margin-left: -6px; + margin-right: -6px; } + +.input input { + font-size: 1rem; + margin-top: 4px; + margin-bottom: 4px; } + +.input input[type=text] { + padding: 2px 6px; } + +form { + margin: -12px 0; } + +.error-helper { + color: red; + line-height: 1rem; + height: 1rem; } + +.input { + margin: 12px 0; } + |] ) ] -- cgit v1.2.3