Merge pull request #32 from adarqui/white-space

Implements the white-space property

Author: garyb

src/CSS.purs

@@ -19,6 +19,7 @@ import CSS.Size as X
 import CSS.String as X
 import CSS.Stylesheet as X
 import CSS.Text as X
+import CSS.Text.Whitespace as X
 import CSS.Time as X
 import CSS.Transform as X
 import CSS.Transition as X

src/CSS/Text/Whitespace.purs

@@ -0,0 +1,38 @@
+module CSS.Text.Whitespace (
+  TextWhitespace,
+  whitespaceNormal,
+  whitespacePre,
+  whitespaceNoWrap,
+  whitespacePreWrap,
+  whitespacePreLine,
+  textWhitespace
+) where
+
+import Prelude (($))
+
+import CSS.Property (class Val, Value)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS(), key)
+
+newtype TextWhitespace = TextWhitespace Value
+
+instance valTextWhitespace :: Val TextWhitespace where
+  value (TextWhitespace v) = v
+
+whitespaceNormal :: TextWhitespace
+whitespaceNormal = TextWhitespace $ fromString "normal"
+
+whitespacePre :: TextWhitespace
+whitespacePre = TextWhitespace $ fromString "pre"
+
+whitespaceNoWrap :: TextWhitespace
+whitespaceNoWrap = TextWhitespace $ fromString "nowrap"
+
+whitespacePreWrap :: TextWhitespace
+whitespacePreWrap = TextWhitespace $ fromString "pre-wrap"
+
+whitespacePreLine :: TextWhitespace
+whitespacePreLine = TextWhitespace $ fromString "pre-line"
+
+textWhitespace :: TextWhitespace -> CSS
+textWhitespace = key $ fromString "white-space"