From e9ccc931b920753767f6f73b012380548de86094 Mon Sep 17 00:00:00 2001
From: "Brian J. Cardiff" <bcardiff@gmail.com>
Date: Thu, 30 Sep 2021 16:36:58 -0300
Subject: [PATCH 1/2] Wrap style node to deal with DarkReader

---
 src/Css/Global.elm        |  3 +++
 src/VirtualDom/Styled.elm | 14 +++++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/Css/Global.elm b/src/Css/Global.elm
index 7aeb4db0..cd7fbd01 100644
--- a/src/Css/Global.elm
+++ b/src/Css/Global.elm
@@ -104,6 +104,9 @@ global snippets =
         |> VirtualDom.text
         |> List.singleton
         |> VirtualDom.node "style" []
+        -- wrap the style node in a div to prevent `Dark Reader` from blowin up the dom.
+        |> List.singleton
+        |> VirtualDom.node "div" []
         |> VirtualDom.Styled.unstyledNode
 
 
diff --git a/src/VirtualDom/Styled.elm b/src/VirtualDom/Styled.elm
index daffe411..4659815c 100644
--- a/src/VirtualDom/Styled.elm
+++ b/src/VirtualDom/Styled.elm
@@ -437,11 +437,15 @@ toKeyedStyleNode allStyles keyedChildNodes =
 
 toStyleNode : Dict Classname (List Style) -> VirtualDom.Node msg
 toStyleNode styles =
-    -- this <style> node will be the first child of the requested one
-    toDeclaration styles
-        |> VirtualDom.text
-        |> List.singleton
-        |> VirtualDom.node "style" []
+    -- wrap the style node in a div to prevent `Dark Reader` from blowin up the dom.
+    VirtualDom.node "div"
+        []
+        [ -- this <style> node will be the first child of the requested one
+          toDeclaration styles
+            |> VirtualDom.text
+            |> List.singleton
+            |> VirtualDom.node "style" []
+        ]
 
 
 

From 79eb0fa8e30d3d4077667fa9dee4290a518983a6 Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Fri, 15 Oct 2021 12:07:21 -0400
Subject: [PATCH 2/2] Use `span` instead of `div` for DarkReader fix

See https://github.com/rtfeldman/elm-css/pull/542
---
 src/Css/Global.elm        | 2 +-
 src/VirtualDom/Styled.elm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Css/Global.elm b/src/Css/Global.elm
index cd7fbd01..344823c6 100644
--- a/src/Css/Global.elm
+++ b/src/Css/Global.elm
@@ -106,7 +106,7 @@ global snippets =
         |> VirtualDom.node "style" []
         -- wrap the style node in a div to prevent `Dark Reader` from blowin up the dom.
         |> List.singleton
-        |> VirtualDom.node "div" []
+        |> VirtualDom.node "span" []
         |> VirtualDom.Styled.unstyledNode
 
 
diff --git a/src/VirtualDom/Styled.elm b/src/VirtualDom/Styled.elm
index 4659815c..849e592f 100644
--- a/src/VirtualDom/Styled.elm
+++ b/src/VirtualDom/Styled.elm
@@ -438,7 +438,7 @@ toKeyedStyleNode allStyles keyedChildNodes =
 toStyleNode : Dict Classname (List Style) -> VirtualDom.Node msg
 toStyleNode styles =
     -- wrap the style node in a div to prevent `Dark Reader` from blowin up the dom.
-    VirtualDom.node "div"
+    VirtualDom.node "span"
         []
         [ -- this <style> node will be the first child of the requested one
           toDeclaration styles