/
Transform.purs
64 lines (52 loc) · 1.56 KB
/
Transform.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
module CSS.Text.Transform
( TextTransform
, textTransform
, lowercase
, uppercase
, capitalize
) where
import CSS.Common (class Inherit, class Initial, class None)
import CSS.Property (class Val)
import CSS.String (fromString)
import CSS.Stylesheet (CSS, key)
import Data.Eq (class Eq)
import Data.Function (($))
import Data.Ord (class Ord)
import Data.Show (class Show)
data TextTransform
= Uppercase
| Lowercase
| Capitalize
| None
| Initial
| Inherit
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"
instance showTextTransform :: Show TextTransform where
show Uppercase = "Uppercase"
show Lowercase = "Lowercase"
show Capitalize = "Capitalize"
show None = "None"
show Initial = "Initial"
show Inherit = "Inherit"
instance noneTextTransform :: None TextTransform where
none = None
instance initialTextTransform :: Initial TextTransform where
initial = Initial
instance inheritTextTransform :: Inherit TextTransform where
inherit = Inherit
textTransform :: TextTransform -> CSS
textTransform = key $ fromString "text-transform"
uppercase :: TextTransform
uppercase = Uppercase
lowercase :: TextTransform
lowercase = Lowercase
capitalize :: TextTransform
capitalize = Capitalize