From f2a3c23634c7a5f8c23f68f24ff5dde95d472e16 Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Mon, 3 Feb 2025 16:24:25 -0600
Subject: Working on assets

---
 src/WWW/Css.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/WWW/Css.hs')

diff --git a/src/WWW/Css.hs b/src/WWW/Css.hs
index 164b2af..05aec62 100644
--- a/src/WWW/Css.hs
+++ b/src/WWW/Css.hs
@@ -3,6 +3,8 @@ module WWW.Css where
 import Control.Monad
 import Clay
 import Clay.Flexbox qualified as F
+import Clay.Stylesheet
+import Data.Foldable (fold)
 import Data.Text (Text)
 import Diagrams.Attributes (SomeColor)
 
@@ -12,7 +14,13 @@ import WWW.Colors qualified as G
 
 colorVariables :: G.Gruvbox SomeColor -> Css
 colorVariables gb = do
-    "--html-bg" -: "test"
+    fold $ key <$> (("--" <>) <$> G.gruvboxVar) <*> gb
+    key "--html-bg" $ G._bg1 gb
+    key "--href" $ G._orange gb
+    key "--href-hover" $ G._orange' gb
+    key "--hr" $ G._gray gb
+    key "--code-bg" $ G._bg gb
+
 
 rootColors :: Css
 rootColors = do
-- 
cgit v1.2.3