fable-react-grid-system/Fable.Helpers.ReactGridSystem.fs at master · 2sComplement/fable-react-grid-system · 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
module internal Fable.Helpers.ReactGridSystem
open Fable.Core
open Fable.Import
open Fable.Import.React
open Fable.Core.JsInterop
open React.Props
open System

[<KeyValueList>]
type VisibleProps =
    | Xs of bool
    | Sm of bool
    | Md of bool
    | Lg of bool
    | Xl of bool

[<KeyValueList>]
type ShapeProps =
    | Xs of int
    | Sm of int
    | Md of int
    | Lg of int
    | Xl of int

[<KeyValueList>]
type ScreenClassRenderProps =
    | Style of Func<string,obj,CSSProp list>

[<KeyValueList>]
type ContainerProps =
    | Fluid of bool
    | Xs of bool
    | Sm of bool
    | Md of bool
    | Lg of bool
    | Xl of bool

[<KeyValueList>]
type ColProps =
    | Xs of int
    | Sm of int
    | Md of int
    | Lg of int
    | Xl of int
    | Debug of bool
    | Offset of ShapeProps list
    | Push of ShapeProps list
    | Pull of ShapeProps list

let Container = importMember<Fable.Import.React.ComponentClass<ContainerProps list>> "react-grid-system"
let inline container b c = Fable.Helpers.React.from Container b c

let Row = importMember<Fable.Import.React.ComponentClass<IHTMLProp list>> "react-grid-system"
let inline row b c = Fable.Helpers.React.from Row b c

let Col = importMember<Fable.Import.React.ComponentClass<ColProps list>> "react-grid-system"
let inline col b c = Fable.Helpers.React.from Col b c

let Visible = importMember<Fable.Import.React.ComponentClass<VisibleProps list>> "react-grid-system"
let inline visible b c = Fable.Helpers.React.from Visible b c

let Hidden = importMember<Fable.Import.React.ComponentClass<VisibleProps list>> "react-grid-system"
let inline hidden b c = Fable.Helpers.React.from Hidden b c

let ClearFix = importMember<Fable.Import.React.ComponentClass<VisibleProps list>> "react-grid-system"
let inline clearFix b c = Fable.Helpers.React.from ClearFix b c

let ScreenClassRender = importMember<Fable.Import.React.ComponentClass<ScreenClassRenderProps list>> "react-grid-system"
let inline screenClassRender b c = Fable.Helpers.React.from ScreenClassRender b c