/
TextAlign.purs
42 lines (28 loc) · 1019 Bytes
/
TextAlign.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
module CSS.TextAlign where
import Prelude
import Data.Generic (class Generic)
import CSS.Property (class Val, Value)
import CSS.String (fromString)
import CSS.Stylesheet (CSS, key)
newtype TextAlign = TextAlign Value
derive instance eqTextAlign :: Eq TextAlign
derive instance ordTextAlign:: Ord TextAlign
derive instance genericTextAlign :: Generic TextAlign
instance valTextAlign :: Val TextAlign where
value (TextAlign v) = v
textAlign :: TextAlign -> CSS
textAlign = key $ fromString "text-align"
center :: TextAlign
center = TextAlign $ fromString "center"
justify :: TextAlign
justify = TextAlign $ fromString "justify"
leftTextAlign :: TextAlign
leftTextAlign = TextAlign $ fromString "left"
rightTextAlign :: TextAlign
rightTextAlign = TextAlign $ fromString "right"
inheritTextAlign :: TextAlign
inheritTextAlign = TextAlign $ fromString "inherit"
startTextAlign :: TextAlign
startTextAlign = TextAlign $ fromString "start"
endTextAlign :: TextAlign
endTextAlign = TextAlign $ fromString "end"