diff options
Diffstat (limited to 'Biz/Look.hs')
| -rw-r--r-- | Biz/Look.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Biz/Look.hs b/Biz/Look.hs index 51224a9..c2ef55e 100644 --- a/Biz/Look.hs +++ b/Biz/Look.hs @@ -9,7 +9,9 @@ module Biz.Look fuckingStyle, -- | Clay.Media extensions prefersLight, + whenLight, prefersDark, + whenDark, noColorPreference, -- | Font fontStack, @@ -59,6 +61,12 @@ noColorPreference = "prefers-color-scheme" (Just (Clay.value ("no-preference" :: Text))) +whenDark :: Css -> Css +whenDark = query Clay.all [prefersDark] + +whenLight :: Css -> Css +whenLight = query Clay.all [prefersLight] + -- | The stylesheet from <https://perfectmotherfuckingwebsite.com> ported to -- Clay. fuckingStyle :: Css |