From eacb4c9653df0112e6921f8fa35922284773fec5 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
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