Add bits

Author: Daniel Harvey

packages.dhall

@@ -27,7 +27,7 @@ let additions =
         , "unordered-collections"
         , "cssom"
         ]
-        "../purs-cssom"
+        "../purescript-stylesheet"
         "v0.0.1"
     }
 

src/Internal/Consumer.purs

@@ -7,7 +7,7 @@ import Data.Maybe (Maybe(..))
 import Data.Symbol (class IsSymbol)
 
 import React as React
-import PursUI (CSSRuleSet, PursUI, addStyle)
+import Stylesheet (CSSRuleSet, Stylesheet, addStyle)
 
 import React.Stylesheet.Internal.Types
 
@@ -16,7 +16,7 @@ import React.Stylesheet.Internal.Types
 styleConsumer
   :: forall props label localState
    . IsSymbol label
-  => React.Context (Maybe (PursUI label))
+  => React.Context (Maybe (Stylesheet label))
   -> props
   -> localState
   -> CSSRuleSet props

src/Internal/Provider.purs

@@ -4,20 +4,20 @@ import Prelude (bind, pure, ($))
 import Data.Maybe (Maybe(..))
 import Data.Symbol (class IsSymbol)
 import React as React
-import PursUI
+import Stylesheet
 
 -- | Internal function for creating a Purescript React class that providers the
 -- | Radox store through React Context
 styleProvider 
   :: forall label
    . IsSymbol label
-  => React.Context (Maybe (PursUI label))
+  => React.Context (Maybe (Stylesheet label))
   -> React.ReactClass { children :: Array React.ReactElement }
 styleProvider context 
   = React.pureComponent "Provider" component
   where
     component this = do
-        (stylesheet :: PursUI label) <- createBlankStyleSheet
+        (stylesheet :: Stylesheet label) <- createBlankStylesheet
         pure $ { state  : { }
                , render : render' this stylesheet
                }

src/Internal/StyleContext.purs

@@ -3,7 +3,7 @@ module React.Stylesheet.Internal.StyleContext where
 import Data.Maybe (Maybe(..))
 import Data.Symbol (class IsSymbol, SProxy)
 import React as React
-import PursUI (PursUI)
+import Stylesheet (Stylesheet)
 import React.Stylesheet.Internal.Types
 import React.Stylesheet.Internal.Provider (styleProvider)
 import React.Stylesheet.Internal.Consumer (styleConsumer)
@@ -16,7 +16,7 @@ createStyleContext
   => SProxy label
   -> StyleContext label
 createStyleContext label =
-  let myContext = React.createContext (Nothing :: Maybe (PursUI label))
+  let myContext = React.createContext (Nothing :: Maybe (Stylesheet label))
   in  { provider : styleProvider myContext
       , consumer : styleConsumer myContext
       }

src/Internal/Types.purs

@@ -1,7 +1,7 @@
 module React.Stylesheet.Internal.Types where
 
 import React as React
-import PursUI
+import Stylesheet
 
 type StyleRenderMethod props localState 
   = (

src/StyleProvider.purs

@@ -1,36 +1,46 @@
-module App.Components.Styled.Div (div) where
+module React.Stylesheet.Styled.Div where
 
 import Prelude (map, ($))
 import Data.Array (intercalate)
 import React.DOM.Props as Props
 import React as React
 import React.DOM as RDom
 
-import StyleProvider
+import React.Stylesheet.Internal.StyleContext
+import React.Stylesheet.Internal.Types
 
-import PursUI (CSSRuleSet, CSSSelector(..))
+import Stylesheet (CSSRuleSet, CSSSelector(..))
 
 construct
-  :: forall props
-   . (Array Props.Props -> Array React.ReactElement -> React.ReactElement) 
+  :: forall props label
+   . StyleContext label
+  -> (Array Props.Props -> Array React.ReactElement -> React.ReactElement) 
   -> CSSRuleSet props
   -> props
   -> Array React.ReactElement 
   -> React.ReactElement
-construct element cssRule props children
+construct styleContext element cssRule props children
   = styleContext.consumer props {} cssRule renderDiv
   where 
      renderDiv { classNames }
         = RDom.div [ Props.className (toClassNames classNames) ]
                       children
 
-div 
-  :: forall props
-   . CSSRuleSet props 
-  -> props 
-  -> Array React.ReactElement 
-  -> React.ReactElement
-div = construct RDom.div
+things styleContext
+  = let construct' = construct styleContext
+ in { a:            construct' RDom.a
+    , abbr:         construct' RDom.abbr
+    , address:      construct' RDom.address
+    , article:      construct' RDom.article
+    , aside:        construct' RDom.aside
+    , audio:        construct' RDom.audio
+    , b:            construct' RDom.b
+    , bdi:          construct' RDom.bdi
+    , bdo:          construct' RDom.bdo
+    , big:          construct' RDom.big
+    , blockquote:   construct' RDom.blockquote
+    , div:          construct' RDom.div
+    }
 
 toClassNames :: Array CSSSelector -> String
 toClassNames as