From 1b348bbe20f10ef3ad684a7e5dd5f4c114e733d2 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 16 Jan 2021 07:35:20 -0500
Subject: Fix colors and structure HTML better

My qutebrowser dark filter messed up my colors. Also now I'm using  header and
main HTML elements.
---
 Biz/Look.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Biz/Look.hs')

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
-- 
cgit v1.2.3