aboutsummaryrefslogtreecommitdiff
path: root/src/server/Design
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Design')
-rw-r--r--src/server/Design/Global.hs18
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)