Add text-overflow CSS property

Author: vyorkin

src/CSS.purs

@@ -21,6 +21,8 @@ import CSS.String (class IsString, fromString) as X
 import CSS.Stylesheet (App(..), CSS, Feature(..), Keyframes(..), MediaQuery(..), MediaType(..), NotOrOnly(..), Rule(..), StyleM(..), fontFace, importUrl, key, keyframes, keyframesFromTo, prefixed, query, rule, runS, select, (?)) as X
 import CSS.Text (TextDecoration(..), blink, letterSpacing, lineThrough, noneTextDecoration, overline, textDecoration, underline) as X
 import CSS.Text.Whitespace (TextWhitespace, textWhitespace, whitespaceNoWrap, whitespaceNormal, whitespacePre, whitespacePreLine, whitespacePreWrap) as X
+import CSS.Text.Transform (TextTransform, textTransform) as X
+import CSS.Text.Overflow (TextOverflow, textOverflow) as X
 import CSS.Time (Time(..), ms, sec) as X
 import CSS.Transform (TransformOrigin(..), TransformOriginOffset(..), Transformation(..), offset, offsetBottom, offsetCenter, offsetLeft, offsetRight, offsetTop, rotate, transform, transformOrigin, transforms, translate) as X
 import CSS.Transition (TimingFunction(..), easeOut, linear) as X

src/CSS/Text/Overflow.purs

@@ -0,0 +1,39 @@
+module CSS.Text.Overflow
+  ( TextOverflow
+  , textOverflow
+  , clip
+  , ellipsis
+  , placeholder
+  ) where
+
+import CSS.Property (class Val, quote)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Eq (class Eq)
+import Data.Function (($))
+import Data.Ord (class Ord)
+
+data TextOverflow
+  = Clip
+  | Ellipsis
+  | Placeholder String
+
+derive instance eqTextOverflow :: Eq TextOverflow
+derive instance ordTextOverflow :: Ord TextOverflow
+
+instance valTextOverflow :: Val TextOverflow where
+  value Clip = fromString "clip"
+  value Ellipsis = fromString "ellipsis"
+  value (Placeholder v) = fromString $ quote v
+
+textOverflow :: TextOverflow -> CSS
+textOverflow = key $ fromString "text-overflow"
+
+clip :: TextOverflow
+clip = Clip
+
+ellipsis :: TextOverflow
+ellipsis = Ellipsis
+
+placeholder :: String -> TextOverflow
+placeholder = Placeholder

src/CSS/Text/Transform.purs

@@ -27,14 +27,14 @@ derive instance eqTextTransform :: Eq TextTransform
 derive instance ordTextTransform :: Ord TextTransform
 
 instance valTextTransform :: Val TextTransform where
-  value (Uppercase)  = fromString "uppercase"
-  value (Lowercase)  = fromString "lowercase"
-  value (Capitalize) = fromString "capitalize"
-  value (None)       = fromString "none"
-  value (Initial)    = fromString "initial"
-  value (Inherit)    = fromString "inherit"
+  value Uppercase  = fromString "uppercase"
+  value Lowercase  = fromString "lowercase"
+  value Capitalize = fromString "capitalize"
+  value None       = fromString "none"
+  value Initial    = fromString "initial"
+  value Inherit    = fromString "inherit"
 
-instance showTextTransform :: Show (TextTransform) where
+instance showTextTransform :: Show TextTransform where
   show Uppercase = "Uppercase"
   show Lowercase = "Lowercase"
   show Capitalize = "Capitalize"

test/Main.purs

@@ -4,7 +4,8 @@ import Prelude
 
 import Effect (Effect)
 import Effect.Exception (error, throwException)
-import CSS (Rendered, Path(..), Predicate(..), Refinement(..), Selector(..), FontFaceSrc(..), FontFaceFormat(..), renderedSheet, renderedInline, fromString, selector, block, display, render, borderBox, boxSizing, contentBox, blue, color, body, px, dashed, border, inlineBlock, red, (?), fontFaceSrc, zIndex)
+import CSS (Rendered, Path(..), Predicate(..), Refinement(..), Selector(..), FontFaceSrc(..), FontFaceFormat(..), renderedSheet, renderedInline, fromString, selector, block, display, render, borderBox, boxSizing, contentBox, blue, color, body, px, dashed, border, inlineBlock, red, (?), fontFaceSrc, zIndex, textOverflow)
+import CSS.Text.Overflow as TextOverflow
 import Data.Maybe (Maybe(..))
 import Data.NonEmpty (singleton)
 
@@ -41,6 +42,14 @@ example7 :: Rendered
 example7 = render do
   zIndex 11
 
+exampleTextOverflow1 :: Rendered
+exampleTextOverflow1 = render do
+  textOverflow TextOverflow.ellipsis
+
+exampleTextOverflow2 :: Rendered
+exampleTextOverflow2 = render do
+  textOverflow $ TextOverflow.placeholder "foobar"
+
 nestedNodes :: Rendered
 nestedNodes = render do
   fromString "#parent" ? do
@@ -76,3 +85,6 @@ main = do
   renderedInline example6 `assertEqual` Just "src: url(\"font.woff\") format(\"woff\")"
 
   renderedInline example7 `assertEqual` Just "z-index: 11"
+
+  renderedInline exampleTextOverflow1 `assertEqual` Just "text-overflow: ellipsis"
+  renderedInline exampleTextOverflow2 `assertEqual` Just "text-overflow: \"foobar\""