From 308fba10204b8898b6b14fb481fb7de2088abf09 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 29 Jan 2021 04:02:15 -0500 Subject: Slighly better form styling --- Biz/Look.hs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'Biz/Look.hs') 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 -- cgit v1.2.3