diff options
Diffstat (limited to 'src/server/Design/Global.hs')
| -rw-r--r-- | src/server/Design/Global.hs | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index 68cff68..7d4a1bb 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -8,14 +8,16 @@ import Clay import Data.Text.Lazy (Text) -import qualified Design.Header as HeaderDesign -import qualified Design.SignIn as SignInDesign -import qualified Design.LoggedIn as LoggedInDesign +import qualified Design.Header as Header +import qualified Design.SignIn as SignIn +import qualified Design.LoggedIn as LoggedIn import qualified Design.Form as Form import Design.Animation.Keyframes import Design.Color as Color +import Design.Helper as Helper +import Design.Constants as Constants globalDesign :: Text globalDesign = renderWith compact [] global @@ -23,9 +25,9 @@ globalDesign = renderWith compact [] global global :: Css global = do - header ? HeaderDesign.design - ".signIn" ? SignInDesign.design - ".loggedIn" ? LoggedInDesign.design + header ? Header.design + ".signIn" ? SignIn.design + ".loggedIn" ? LoggedIn.design Form.design allKeyframes @@ -54,4 +56,8 @@ global = do "margin-left" -: "3vh" "margin-top" -: "2vh" + ".dialog" ? ".content" ? button ? do + ".confirm" & Helper.defaultButton Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten + ".undo" & Helper.defaultButton Color.silver Color.white (px Constants.inputHeight) Constants.focusLighten + svg ? height (pct 100) |