From 3eddfe6e6a91e4d91b1c05a524371dc111a2f303 Mon Sep 17 00:00:00 2001 From: Rhiannon Morris Date: Tue, 10 Dec 2024 02:52:11 +0100 Subject: [PATCH] put minor swatches behind major so the shadows work --- rainbow-quox/make-palette/make-palette.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/rainbow-quox/make-palette/make-palette.hs b/rainbow-quox/make-palette/make-palette.hs index f2ce368..1634793 100644 --- a/rainbow-quox/make-palette/make-palette.hs +++ b/rainbow-quox/make-palette/make-palette.hs @@ -76,8 +76,8 @@ makeOnly layer display index = makeMinor :: Text -> Maybe Text -> Text -> Maybe Text -> Int -> Element makeMinor layer1 display1 layer2 _display2 index = itemGroup layer1 index - [makeRect layer1 RMaj, - makeRect layer2 RMin, + [makeRect layer2 RMin, + makeRect layer1 RMaj, makeTextBg layer1, makeName (fromMaybe layer1 display1) Two, makeHex layer1 SFirst, @@ -86,8 +86,8 @@ makeMinor layer1 display1 layer2 _display2 index = makeUse :: Text -> Maybe Text -> Text -> Int -> Element makeUse layer1 display1 layer2 index = itemGroup layer1 index - [makeRect layer1 RMaj, - use_ [makeAttribute "href" $ "#s-" <> layer2], + [use_ [makeAttribute "href" $ "#s-" <> layer2], + makeRect layer1 RMaj, makeTextBg layer1, makeName (fromMaybe layer1 display1) Two, makeHex layer1 SFirst,