diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-16 07:35:20 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-16 07:35:20 -0500 |
| commit | 1b348bbe20f10ef3ad684a7e5dd5f4c114e733d2 (patch) | |
| tree | 27fe20b34e822e2c271e7552a5b649f3d1ea92a6 /Biz/Look.hs | |
| parent | 0d84ad0c1812e1e977db50c7b708beee0946cd77 (diff) | |
Fix colors and structure HTML better
My qutebrowser dark filter messed up my colors. Also now I'm using header and
main HTML elements.
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 |