Add list-style rules.

Author: alexmingoia

src/CSS/ListStyle.purs

@@ -0,0 +1,20 @@
+module CSS.ListStyle where
+
+import CSS.ListStyle.Image (ListStyleImage)
+import CSS.ListStyle.Position (ListStylePosition)
+import CSS.ListStyle.Type (ListStyleType)
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Function (($))
+import Data.Semigroup ((<>))
+import Data.Show (show)
+
+data ListStyle = ListStyle ListStyleType ListStylePosition ListStyleImage
+
+instance valueListStyle :: Val ListStyle where
+  value (ListStyle t p i) =
+    fromString $ (show t) <> " " <> (show p) <> " " <> (show i)
+
+listStyle :: ListStyleType -> ListStylePosition -> ListStyleImage -> CSS
+listStyle t p i = key (fromString "list-style") (ListStyle t p i)

src/CSS/ListStyle/Image.purs

@@ -0,0 +1,44 @@
+module CSS.ListStyle.Image where
+
+import CSS.Common (class Inherit, class Initial, class None, class Unset, class URL)
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Function (($))
+import Data.Semigroup ((<>))
+import Data.Show (class Show, show)
+
+data ListStyleImage
+  = ListStyleImage String
+  | Initial
+  | Inherit
+  | Unset
+  | None
+
+instance valListStyleImage :: Val ListStyleImage where
+  value s = fromString (show s)
+
+instance showListStyleImage :: Show ListStyleImage where
+  show (Initial) = "initial"
+  show (Inherit) = "inherit"
+  show (Unset) = "unset"
+  show (None) = "none"
+  show (ListStyleImage url) = ("url('" <> url <> "')")
+
+instance initialListStyleImage :: Initial ListStyleImage where
+  initial = Initial
+
+instance inheritListStyleImage :: Inherit ListStyleImage where
+  inherit = Inherit
+
+instance unsetListStyleImage :: Unset ListStyleImage where
+  unset = Unset
+
+instance noneListImageImage :: None ListStyleImage where
+  none = None
+
+instance urlListStyleImage :: URL ListStyleImage where
+  url s = ListStyleImage s
+
+listStyleImage :: ListStyleImage -> CSS
+listStyleImage = key $ fromString "list-style-image"

src/CSS/ListStyle/Position.purs

@@ -0,0 +1,43 @@
+module CSS.ListStyle.Position where
+
+import CSS.Common (class Inherit, class Initial, class Unset)
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Function (($))
+import Data.Show (class Show, show)
+
+data ListStylePosition
+  = Inside
+  | Outside
+  | Inherit
+  | Initial
+  | Unset
+
+instance valListStylePosition :: Val ListStylePosition where
+  value s = fromString (show s)
+
+instance showListStylePosition :: Show ListStylePosition where
+  show (Inside) = "inside"
+  show (Outside) = "outside"
+  show (Inherit) = "inherit"
+  show (Initial) = "initial"
+  show (Unset) = "unset"
+
+instance initialListStylePosition :: Initial ListStylePosition where
+  initial = Initial
+
+instance inheritListStylePosition :: Inherit ListStylePosition where
+  inherit = Inherit
+
+instance unsetListStylePosition :: Unset ListStylePosition where
+  unset = Unset
+
+inside :: ListStylePosition
+inside = Inside
+
+outside :: ListStylePosition
+outside = Outside
+
+listStylePosition :: ListStylePosition -> CSS
+listStylePosition = key $ fromString "list-style-position"

src/CSS/ListStyle/Type.purs

@@ -0,0 +1,84 @@
+module CSS.ListStyle.Type where
+
+import CSS.Common (class Inherit, class Initial, class None, class Unset)
+import CSS.Property (class Val)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+import Data.Function (($))
+import Data.Semigroup ((<>))
+import Data.Show (class Show, show)
+
+data ListStyleType
+  = Disc
+  | Circle
+  | Square
+  | Decimal
+  | Georgian
+  | CJKIdeographic
+  | Kannada
+  | None
+  | Inherit
+  | Initial
+  | Unset
+  | CustomStyleType String
+  | StringStyleType String
+
+instance valListStyleType :: Val ListStyleType where
+  value s = fromString (show s)
+
+instance showListStyleType :: Show ListStyleType where
+  show (Disc) = "disc"
+  show (Circle) = "circle"
+  show (Square) = "square"
+  show (Decimal) = "decimal"
+  show (Georgian) = "georgian"
+  show (CJKIdeographic) = "cjk-ideographic"
+  show (Kannada) = "kannada"
+  show (None) = "none"
+  show (Initial) = "initial"
+  show (Inherit) = "inherit"
+  show (Unset) = "unset"
+  show (CustomStyleType s) = ("custom-" <> s)
+  show (StringStyleType s) = s
+
+instance initialListStyleType :: Initial ListStyleType where
+  initial = Initial
+
+instance inheritListStyleType :: Inherit ListStyleType where
+  inherit = Inherit
+
+instance unsetListStyleType :: Unset ListStyleType where
+  unset = Unset
+
+instance noneListTypeType :: None ListStyleType where
+  none = None
+
+disc :: ListStyleType
+disc = Disc
+
+circle :: ListStyleType
+circle = Circle
+
+square :: ListStyleType
+square = Square
+
+decimal :: ListStyleType
+decimal = Decimal
+
+georgian :: ListStyleType
+georgian = Georgian
+
+cjkIdeographic :: ListStyleType
+cjkIdeographic = CJKIdeographic
+
+kannada :: ListStyleType
+kannada = Kannada
+
+customListStyleType :: String -> ListStyleType
+customListStyleType s = CustomStyleType s
+
+stringListStyleType :: String -> ListStyleType
+stringListStyleType s = StringStyleType s
+
+listStyleType :: ListStyleType -> CSS
+listStyleType = key $ fromString "list-style-type"