diff options
| author | Chris Wells <chris@mathematicaster.org> | 2025-02-03 16:24:25 -0600 |
|---|---|---|
| committer | Chris Wells <chris@mathematicaster.org> | 2025-02-03 16:24:25 -0600 |
| commit | f2a3c23634c7a5f8c23f68f24ff5dde95d472e16 (patch) | |
| tree | d60ac3cb766075a4d16a496a90f2726ef7b4d132 /src/WWW/Css.hs | |
| parent | c9cc52175073c5e690ea7eb30aad23d0d1776435 (diff) | |
| download | assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar.gz assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar.bz2 assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar.lz assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar.xz assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.tar.zst assets-f2a3c23634c7a5f8c23f68f24ff5dde95d472e16.zip | |
Working on assets
Diffstat (limited to 'src/WWW/Css.hs')
| -rw-r--r-- | src/WWW/Css.hs | 10 |
1 files changed, 9 insertions, 1 deletions
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 |