ListStyleType to new Clay.List

src/Clay.hs

@@ -98,6 +98,7 @@ module Clay
 , module Clay.Geometry
 , module Clay.Gradient
 , module Clay.Text
+, module Clay.List
 , module Clay.Transform
 , module Clay.Transition
 , module Clay.Animation
@@ -139,6 +140,7 @@ import Clay.Geometry
 import Clay.Gradient
 import Clay.Size
 import Clay.Text       hiding (pre)
+import Clay.List
 import Clay.Transform
 import Clay.Transition
 import Clay.Animation

src/Clay/List.hs

@@ -0,0 +1,24 @@
+{-# LANGUAGE OverloadedStrings, GeneralizedNewtypeDeriving #-}
+module Clay.List
+( listStyleType
+, disc
+, decimal
+, hiragana
+)
+where
+
+import Clay.Common
+import Clay.Property
+import Clay.Stylesheet
+
+newtype ListStyleType = ListStyleType Value
+  deriving (Val, Auto, Inherit, Other)
+
+disc, decimal, hiragana  :: ListStyleType
+
+disc        = ListStyleType "disc"
+decimal     = ListStyleType "decimal"
+hiragana    = ListStyleType "hiragana"
+
+listStyleType :: ListStyleType -> Css
+listStyleType = key "list-style-type"