color-theme attribute +

lue-bird · Oct 22, 2023 · df0824c · df0824c
1 parent a90061b
commit df0824c
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Main.elm b/src/Main.elm
@@ -272,6 +272,18 @@ ui state =
             , Element.WithContext.withContextAttribute
                 (\context -> Element.WithContext.Font.color (foregroundColor context.theme))
             , Element.WithContext.Font.size 19
+            , Element.WithContext.withContextAttribute
+                (\context ->
+                    Html.Attributes.style "color-scheme"
+                        (case context.theme of
+                            BlackTheme ->
+                                "dark"
+
+                            WhiteTheme ->
+                                "light"
+                        )
+                        |> Element.WithContext.htmlAttribute
+                )
             ]