FailessLib/CSSTypes.fs at master · Heather/FailessLib · GitHub

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
[<AutoOpen>]
module Failess.CSSTypes

open System
open System.ComponentModel

type Background =
    | NoRepeat
    | Center
    override this.ToString() =
        match this with
        | NoRepeat  -> "no-repeat"
        | Center    -> "center"
type Border =
    | None
    | Solid
    override this.ToString() =
        match this with
        | None  -> "none"
        | Solid -> "solid"
type Clear =
    | Both
    override this.ToString() =
        match this with
        | Both -> "both"
type Color =
    | White
    | Black
    | Red
    override this.ToString() =
        match this with
        | White -> "white"
        | Black -> "black"
        | Red   -> "red"
type Cursor =
    | Default
    | Pointer
    override this.ToString() =
        match this with
        | Default -> "default"
        | Pointer -> "pointer"
type Display =
    | Block
    | Inline
    override this.ToString() =
        match this with
        | Block -> "block"
        | Inline -> "inline"
type FontWeight =
    | Bold
    override this.ToString() =
        match this with
        | Bold -> "bold"
type FontVariant =
    | SmallCaps
    override this.ToString() =
        match this with
        | smallCaps -> "small-caps"
type Float =
    | Left
    | Right
    override this.ToString() =
        match this with
        | Left -> "left"
        | Right -> "right"
type LineHeight =
    | Normal
    override this.ToString() =
        match this with
        | Normal -> "normal"
type ListStyle =
    | None
    override this.ToString() =
        match this with
        | None -> "none"
type Overflow =
    | Auto
    | Hidden
    override this.ToString() =
        match this with
        | Auto   -> "auto"
        | Hidden -> "hidden"
type Position =
    | Absolute
    | Relative
    override this.ToString() =
        match this with
        | Absolute -> "absolute"
        | Relative -> "relative"
type TextDecoration =
    | None
    override this.ToString() =
        match this with
        | None -> "none"
type TextAlign =
    | Center
    | Left
    | Right
    override this.ToString() =
        match this with
        | Center    -> "center"
        | Left      -> "left"
        | Right     -> "right"
type WhiteSpace =
    | NoWrap
    override this.ToString() =
        match this with
        | NoWrap -> "nowrap"