rowtype-yoga/ry-blocks
1
0
Fork 0
mirror of https://github.com/rowtype-yoga/ry-blocks.git synced 2024-09-11 21:38:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

Style more

Browse Source
This commit is contained in:
Mark Eibes 2022-07-26 10:32:19 +02:00
parent 8e1d09855d
commit b34e248e70
1 changed files with 2 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/Yoga/Block/Container/Style.purs
View File

@ -502,27 +502,8 @@ col ∷ FlatTheme StyleProperty
col = colour # mapRecord str
autoSwitchColourTheme ∷ Style
autoSwitchColourTheme = lightT
where
darkT ∷ Style
darkT = unsafeCoerce darkObj
darkObj ∷ Object StyleProperty
darkObj =
Object.fromHomogeneous defaultColours.dark
# Object.foldMap \k v →
Object.singleton ("--" <> k) (str (Color.cssStringRGBA v))
lightObj ∷ Object StyleProperty
lightObj =
Object.fromHomogeneous defaultColours.light
# Object.foldMap \k v →
Object.singleton ("--" <> k) (str (Color.cssStringRGBA v))
# Object.insert "@media (prefers-color-scheme: dark)" (nested darkT)
# Object.insert "&:th" (nested darkT)
lightT ∷ Style
lightT = unsafeCoerce lightObj
autoSwitchColourTheme =
lightModeStyle <> css { "@media (prefers-color-scheme: dark)": (nested darkModeStyle) }
lightModeVariables ∷ Object StyleProperty
lightModeVariables =