Main.elm

module Main exposing (..)

import Html exposing (Html, div, button, text, programWithFlags)
import Html.Attributes exposing (class)
import ControlsView exposing (view)
import MainModel exposing (..)
import MainMessages exposing (..)
import MainUpdate exposing (update)
import Stylesheet exposing (view)
import TableView exposing (view)
import MobileView exposing (view)
import Api
import Ports exposing (..)
import Window


-- import Json.Decode as Json exposing (int, string, float, Decoder)
-- import Json.Decode.Pipeline exposing (decode, required, optional, hardcoded)


init : Flags -> ( Model, Cmd Msg )
init flags =
    ( { initialModel
        | eventId = flags.eventId
        , host = flags.host
        , showPreviewUi = flags.showPreviewUi
        , showPublishPage = flags.showPublishPage
        , showBasicPage = flags.showBasicPage
      }
    , Api.getModelFromDb flags.eventId
    )



-- VIEW


view : Model -> Html Msg
view model =
    -- publishView
    if model.showPreviewUi || model.showPublishPage || model.showBasicPage then
        div [ class "container" ]
            [ Stylesheet.view
            , if model.showMobileView then
                MobileView.view model
              else
                TableView.view model
            ]
    else
        div [ class "container" ]
            [ Stylesheet.view
            , ControlsView.view model
            , if model.showMobileView then
                MobileView.view model
              else
                TableView.view model
            ]



-- UPDATE
-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.batch
        [ changeDates UpdateDates
        , changePickedDates UpdatePickedDates
        , deleteSession DeleteSession
        , deleteInformation DeleteSavedInfo
        , Window.resizes UpdateShowMobileView
        , fileContentRead FileRead
        , changedFileContentRead ChangedFileRead
        ]



-- MAIN


main : Program Flags Model Msg
main =
    programWithFlags
        { init = init
        , view = view
        , update = update
        , subscriptions = subscriptions
        }