Add text direction

Author: vyorkin

src/CSS.purs

@@ -20,6 +20,7 @@ import CSS.Size (Abs, Angle(..), Deg, Rad, Rel, Size(..), deg, em, ex, nil, pct,
 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.Direction (TextDirection(..), direction) as X
 import CSS.Text.Whitespace (TextWhitespace, textWhitespace, whitespaceNoWrap, whitespaceNormal, whitespacePre, whitespacePreLine, whitespacePreWrap) 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

src/CSS/Text.purs

@@ -12,7 +12,7 @@ letterSpacing = key $ fromString "letter-spacing"
 newtype TextDecoration = TextDecoration Value
 
 derive instance eqTextDecoration :: Eq TextDecoration
-derive instance ordTextDecoration:: Ord TextDecoration
+derive instance ordTextDecoration :: Ord TextDecoration
 
 instance valTextDecoration :: Val TextDecoration where
   value (TextDecoration v) = v

src/CSS/Text/Direction.purs

@@ -0,0 +1,24 @@
+module CSS.Text.Direction where
+
+import Prelude
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+
+data TextDirection = Ltr | Rtl
+
+derive instance eqTextDirection :: Eq TextDirection
+derive instance ordTextDirection :: Ord TextDirection
+
+instance valTextDirection :: Val TextDirection where
+  value Ltr = fromString "ltr"
+  value Rtl = fromString "rtl"
+
+direction :: TextDirection -> CSS
+direction = key $ fromString "direction"
+
+ltr :: TextDirection
+ltr = Ltr
+
+rtl :: TextDirection
+rtl = Rtl

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, direction)
+import CSS.Text.Direction as TextDirection
 import Data.Maybe (Maybe(..))
 import Data.NonEmpty (singleton)
 
@@ -41,6 +42,10 @@ example7 :: Rendered
 example7 = render do
   zIndex 11
 
+exampleDirection :: Rendered
+exampleDirection = render do
+  direction TextDirection.rtl
+
 nestedNodes :: Rendered
 nestedNodes = render do
   fromString "#parent" ? do
@@ -76,3 +81,5 @@ main = do
   renderedInline example6 `assertEqual` Just "src: url(\"font.woff\") format(\"woff\")"
 
   renderedInline example7 `assertEqual` Just "z-index: 11"
+
+  renderedInline exampleDirection `assertEqual` Just "direction: rtl"