Allow css to be rendered separately using toLayoutCss or toViewportCss

Author: opsb

src/Element.elm

@@ -62,6 +62,8 @@ module Element
         , layout
         , viewport
         , toHtml
+        , toLayoutCss
+        , toViewportCss
         , embedStylesheet
         , Device
         , classifyDevice
@@ -196,7 +198,7 @@ Some convient elements for working with forms.
 
 ## Advanced Rendering
 
-@docs toHtml, embedStylesheet
+@docs toHtml, embedStylesheet, toLayoutCss, toViewportCss
 
 
 ### Deprecated
@@ -1252,6 +1254,20 @@ toHtml stylesheet el =
         (Render.render stylesheet el)
 
 
+{-| Renders the stylesheet generated by 'layout' to css
+-}
+toLayoutCss : StyleSheet style variation -> String
+toLayoutCss stylesheet =
+    Render.layoutCss stylesheet
+
+
+{-| Renders the stylesheet generated by 'viewport' to css
+-}
+toViewportCss : StyleSheet style variation -> String
+toViewportCss stylesheet =
+    Render.viewportCss stylesheet
+
+
 {-| Embed a stylesheet.
 -}
 embedStylesheet : StyleSheet style variation -> Html msg

src/Element/Internal/Render.elm

@@ -45,15 +45,25 @@ root stylesheet elm =
         (embed False stylesheet :: render stylesheet elm)
 
 
+viewportCss : Internal.StyleSheet elem variation -> String
+viewportCss stylesheet =
+    normalizeFull () ++ stylesheet.css
+
+
+layoutCss : Internal.StyleSheet elem variation -> String
+layoutCss stylesheet =
+    normalize ++ stylesheet.css
+
+
 embed : Bool -> Internal.StyleSheet elem variation -> Html msg
 embed full stylesheet =
     Html.node "style"
         []
         [ Html.text <|
             if full then
-                normalizeFull () ++ stylesheet.css
+                viewportCss stylesheet
             else
-                normalize ++ stylesheet.css
+                layoutCss stylesheet
         ]