Slighly better form styling

1 files changed, 13 insertions, 1 deletions

diff --git a/Biz/Look.hs b/Biz/Look.hs
index a6bb626..9cd4ad9 100644
--- a/Biz/Look.hs
+++ b/Biz/Look.hs
@@ -22,6 +22,9 @@ module Biz.Look
     hoverButton,
     -- | Geometry
     marginAll,
+    marginX,
+    marginY,
+    paddingAll,
   )
 where
 
@@ -124,4 +127,13 @@ textDecorationWidth :: Size LengthUnit -> Css
 textDecorationWidth = Clay.key "text-decoration-width"
 
 marginAll :: Size a -> Css
-marginAll x = Clay.margin x x x x
+marginAll x = margin x x x x
+
+marginX :: Size a -> Css
+marginX n = marginLeft n <> marginRight n
+
+marginY :: Size a -> Css
+marginY n = marginTop n <> marginBottom n
+
+paddingAll :: Size a -> Css
+paddingAll x = Clay.padding x x x x