GridSystemSketch.elm

module Html.Custom 
    exposing 
        ( container
        , row
        , column
        )

import Html.Grid as Grid
import Html exposing (Html)


container : List (Attributes msg) -> List (Html msg) -> Html msg
container =
    grid.container


row : Grid.Position -> List (Attributes msg) -> List (Html msg) -> Html msg
row =
    grid.row


column : Grid.Position -> List (Attributes msg) -> List (Html msg) -> Html msg
column =
    grid.column


grid : Grid.System
grid =
    { columns =
        [ (Grid.px 40) 
        , (Grid.auto)
        , (Grid.px 120)
        ]
    , rows =
        [ Grid.px 100 ]
    }
        |> Grid.init


-- In Html.Grid.elm -- 


type alias System =
    { row : Position -> List (Attributes msg) -> List (Html msg) -> Html msg 
    , column : Position -> List (Attributes msg) -> List (Html msg) -> Html msg 
    , contianer : List (Attributes msg) -> List (Html msg) -> Html msg 
    }


init : { columns : List Spacing  , rows : List Spacing } -> System

type Spacing
    = Auto
    | Px Float
    | Label String --???


type Position
    = Index Int
    | Label