type alias Model =
    {
    scrolled: Int
    , layout: BrickOrientation
    , itemCount: Int
    , columns: Int
    , testSizes: List (Int, Int)
    }


view : Model -> Html Msg
view model =
    let
        cols = List.repeat model.columns (div [style
                        [
                        ("width", (toString (toFloat model.columns / 100)) ++ "%")
                        ]]
                        [])
    in
        case model.layout of
            Vertical ->
                List.repeat model.columns (div [style
                                    [
                                    ("width", (toString (toFloat model.columns / 100)) ++ "%")
                                    ]
                                    ]
                (List.foldl (\a b -> Tpl.second <|
                    List.foldl (\current (newval, output) ->
                            let
                                addition = case (List.head newval) of
                                            Just x ->
                                                current ++ [x]
                                            Nothing ->
                                                current
                                newsie = output ++ addition
                                replacer = if isEmpty newval then
                                                []
                                            else
                                                drop 1 newval
                            in
                                (replacer, newsie)) (a, []) b)
                    (List.repeat model.columns [])
                    (splitUp (List.map generateGridBox model.testSizes)
                        (ceiling <| (toFloat model.itemCount) / (toFloat model.columns)) [])))
            _ ->
                div [] []

splitUp : List a -> Int -> List (List a) -> List (List a)
splitUp input splitAmount output =
    let
        outtie = if List.length input < splitAmount then
                    input
                else
                    take splitAmount input
        innie = if List.length input <= splitAmount then
                    []
                else
                    drop splitAmount input
        newie = if isEmpty output then
                    singleton outtie
                else
                    output ++ [outtie]
    in
        if isEmpty innie then
            newie
        else
            splitUp innie splitAmount newie

generateGridBox : (Int, Int) -> Html Msg
generateGridBox (wid, hei) =
    div [style [
                ("background", "#eee")
                , ("display", "inline-block")
                , ("width", "100%")
                , ("height", "auto")
                , ("margin", "0")
                --, ("vertical-align", "top")
                , ("box-shadow", "inset 5px 5px blue")
                ]] [img [src <| "http://placehold.it/" ++ (toString wid)
                    ++ "x" ++ (toString hei)
                        ] []]