updated to 0.10

Author: cryogenian

.travis.yml

@@ -1,9 +1,8 @@
 language: node_js
-node_js:
-  - 0.12.7
+node_js: stable
 install:
-  - npm install gulp bower -g
+  - npm install bower -g
   - npm install
   - bower install
 script:
-  - gulp
+  - npm run build

README.md

@@ -7,3 +7,4 @@ An adapter between the `purescript-halogen` and `purescript-css` libraries.
 ## Module documentation
 
 - [Halogen.HTML.CSS](docs/Halogen/HTML/CSS.md)
+- [Halogen.HTML.CSS.Indexed](docs/Halogen/HTML/CSS/Indexed.md)

bower.json

@@ -20,7 +20,7 @@
     "test"
   ],
   "dependencies": {
-    "purescript-css": "^0.4.0",
-    "purescript-halogen": "^0.5.3"
+    "purescript-css": "^2.0.0",
+    "purescript-halogen": "^0.12.0"
   }
 }

docs/Halogen/HTML/CSS.md

@@ -6,23 +6,23 @@ This module defines an adapter between the `purescript-halogen` and
 #### `style`
 
 ``` purescript
-style :: forall i. Css -> Prop i
+style :: forall i. CSS -> Prop i
 ```
 
 Render a set of rules as an inline style.
 
 For example:
 
 ```purescript
-H.div [ Css.style do color red
+HH.div [ CSS.style do color red
                      display block ]
       [ ... ]
 ```
 
 #### `stylesheet`
 
 ``` purescript
-stylesheet :: forall p i. Css -> HTML p i
+stylesheet :: forall p i. CSS -> HTML p i
 ```
 
 Render a set of rules as a `style` element.

docs/Halogen/HTML/CSS/Indexed.md

@@ -0,0 +1,15 @@
+## Module Halogen.HTML.CSS.Indexed
+
+#### `style`
+
+``` purescript
+style :: forall i r. CSS -> IProp (style :: I | r) i
+```
+
+#### `stylesheet`
+
+``` purescript
+stylesheet :: forall p i. CSS -> NoninteractiveNode (media :: I, onError :: I, onLoad :: I, scoped :: I, mediaType :: I) p i
+```
+
+

gulpfile.js

@@ -2,12 +2,13 @@
   "name": "purescript-halogen-css",
   "private": true,
   "license": "Apache-2.0",
+  "scripts": {
+    "clean": "rm -rf output .pulp-cache docs",
+    "build": "pulp build --censor-lib --strict"
+  },
   "devDependencies": {
-    "gulp": "^3.8.11",
-    "gulp-jscs": "^1.6.0",
-    "gulp-jshint": "^1.11.2",
-    "gulp-purescript": "^0.7.0",
-    "purescript": "0.7.4",
-    "rimraf": "^2.4.1"
+    "pulp": "^9.0.1",
+    "purescript": "0.10.1",
+    "purescript-psa": "^0.3.9"
   }
 }

package.json

@@ -7,60 +7,65 @@ module Halogen.HTML.CSS
 
 import Prelude
 
-import Data.Array (mapMaybe)
-import Data.Either (Either(), either)
-import Data.List (fromList, toList)
+import Data.Array (mapMaybe, concatMap, singleton)
+import Data.Either (Either)
+import Data.Foldable (foldMap)
 import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Newtype (class Newtype)
 import Data.String (joinWith)
 import Data.Tuple (Tuple(..))
-import qualified Data.StrMap as SM
+import Data.StrMap as SM
 
-import Css.Property (Key(), Value())
-import Css.Render (render, renderedSheet, collect)
-import Css.Stylesheet (Css(), Rule(..), runS)
+import CSS.Property (Key, Value)
+import CSS.Render (render, renderedSheet, collect)
+import CSS.Stylesheet (CSS, Rule(..), runS)
 
-import Halogen.HTML.Core (HTML(), Prop(), IsProp, prop, propName, attrName)
-import qualified Halogen.HTML as H
-import qualified Halogen.HTML.Elements as H
-import qualified Halogen.HTML.Properties as P
+import Halogen.HTML.Core (HTML, Prop, class IsProp, prop, propName, attrName)
+import Halogen.HTML as HH
+import Halogen.HTML.Elements as HE
+import Halogen.HTML.Properties as P
 
 -- | A newtype for CSS styles
 newtype Styles = Styles (SM.StrMap String)
 
--- | Unpack CSS styles
-runStyles :: Styles -> SM.StrMap String
-runStyles (Styles m) = m
+derive instance newtypeStyles ∷ Newtype Styles _
 
-instance stylesIsProp :: IsProp Styles where
-  toPropString _ _ (Styles m) = joinWith "; " $ (\(Tuple key value) -> key <> ": " <> value) <$> fromList (SM.toList m)
+instance stylesIsProp ∷ IsProp Styles where
+  toPropString _ _ (Styles m) =
+    joinWith "; " $ SM.foldMap (\key value → [key <> ": " <> value]) m
 
 -- | Render a set of rules as an inline style.
 -- |
 -- | For example:
 -- |
 -- | ```purescript
--- | H.div [ Css.style do color red
+-- | HH.div [ CSS.style do color red
 -- |                      display block ]
 -- |       [ ... ]
 -- | ```
-style :: forall i. Css -> Prop i
-style = prop (propName "style") (Just $ attrName "style") <<< Styles <<< rules <<< runS
+style ∷ ∀ i. CSS → Prop i
+style =
+  prop (propName "style") (Just $ attrName "style")
+    <<< Styles
+    <<< rules
+    <<< runS
   where
-  rules :: Array Rule -> SM.StrMap String
-  rules rs = SM.fromList (toList properties)
+  rules ∷ Array Rule → SM.StrMap String
+  rules rs = SM.fromFoldable properties
     where
-    properties :: Array (Tuple String String)
+    properties ∷ Array (Tuple String String)
     properties = mapMaybe property rs >>= collect >>> rights
 
-  property :: Rule -> Maybe (Tuple (Key Unit) Value)
+  property ∷ Rule → Maybe (Tuple (Key Unit) Value)
   property (Property k v) = Just (Tuple k v)
   property _              = Nothing
 
-  rights :: forall a b. Array (Either a b) -> Array b
-  rights = mapMaybe (either (const Nothing) Just)
+  rights ∷ ∀ a b. Array (Either a b) → Array b
+  rights = concatMap $ foldMap singleton
 
 -- | Render a set of rules as a `style` element.
-stylesheet :: forall p i. Css -> HTML p i
-stylesheet css = H.style [ P.type_ "text/css" ] [ H.text content ]
+stylesheet ∷ ∀ p i. CSS → HTML p i
+stylesheet css =
+  HE.style [ P.type_ "text/css" ] [ HH.text content ]
   where
   content = fromMaybe "" $ renderedSheet $ render css

src/Halogen/HTML/CSS.purs

@@ -2,14 +2,20 @@ module Halogen.HTML.CSS.Indexed where
 
 import Unsafe.Coerce (unsafeCoerce)
 
-import Css.Stylesheet (Css())
+import CSS.Stylesheet (CSS)
 
-import Halogen.HTML.Elements.Indexed (NoninteractiveNode())
-import Halogen.HTML.Properties.Indexed (IProp(), I())
-import qualified Halogen.HTML.CSS as CSS
+import Halogen.HTML.Elements.Indexed (NoninteractiveNode)
+import Halogen.HTML.Properties.Indexed (IProp, I)
+import Halogen.HTML.CSS as CSS
 
-style :: forall i r. Css -> IProp (style :: I | r) i
-style = unsafeCoerce CSS.style
+style
+  ∷ ∀ i r. CSS → IProp (style ∷ I | r) i
+style =
+  unsafeCoerce CSS.style
 
-stylesheet :: forall p i. Css -> NoninteractiveNode (media :: I, onError :: I, onLoad :: I, scoped :: I, mediaType :: I) p i
-stylesheet = unsafeCoerce CSS.stylesheet
+stylesheet
+  ∷ ∀ p i
+  . CSS
+  → NoninteractiveNode (media ∷ I, onError ∷ I, onLoad ∷ I, scoped ∷ I, mediaType ∷ I) p i
+stylesheet =
+  unsafeCoerce CSS.stylesheet