@@ -502,27 +502,8 @@ col ∷ FlatTheme StyleProperty
502col = colour # mapRecord str
502col = colour # mapRecord str
504autoSwitchColourTheme ∷ Style
504autoSwitchColourTheme ∷ Style
505−autoSwitchColourTheme = lightT
505+autoSwitchColourTheme =
508− darkT = unsafeCoerce darkObj
510− darkObj ∷ Object StyleProperty
512− Object.fromHomogeneous defaultColours.dark
513− # Object.foldMap \k v →
514− Object.singleton ("--" <> k) (str (Color.cssStringRGBA v))
516− lightObj ∷ Object StyleProperty
518− Object.fromHomogeneous defaultColours.light
519− # Object.foldMap \k v →
520− Object.singleton ("--" <> k) (str (Color.cssStringRGBA v))
521− # Object.insert "@media (prefers-color-scheme: dark)" (nested darkT)
506+ lightModeStyle <> css { "@media (prefers-color-scheme: dark)": (nested darkModeStyle) }
522− # Object.insert "&:th" (nested darkT)
525− lightT = unsafeCoerce lightObj
527lightModeVariables ∷ Object StyleProperty
508lightModeVariables ∷ Object StyleProperty
528lightModeVariables =
509lightModeVariables =