website/frontend/src/Pages/Nutridex.elm

module Pages.Nutridex exposing (Model, Msg, page)

import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Donate.Types exposing (..)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Donate exposing (donateHeader)
import Headers.Pages.NutriDex exposing (nutriDexHeader)
import Html
import Html.Attributes as H exposing (style)
import Layout exposing (..)
import Layouts
import Page exposing (Page)
import Products.Helpers exposing (..)
import Products.NutriDex.NutriDex exposing (productNutriDex)
import Route exposing (Route)
import Shared exposing (..)
import View exposing (View)


page : Shared.Model -> Route () -> Page Model Msg
page shared route =
    Page.new
        { init = init
        , update = update
        , subscriptions = subscriptions
        , view = view
        }
        |> Page.withLayout toLayout


toLayout : Model -> Layouts.Layout Msg
toLayout model =
    Layouts.Navbar {}



-- INIT


type alias Model =
    {}


init : () -> ( Model, Effect Msg )
init () =
    ( {}
    , Effect.none
    )



-- UPDATE


type Msg
    = NoOp


update : Msg -> Model -> ( Model, Effect Msg )
update msg model =
    case msg of
        NoOp ->
            ( model
            , Effect.none
            )



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.none



-- VIEW


view : Model -> View Msg
view model =
    { title = nutriDexName
    , attributes = []
    , element = nutriDexContainer
    }


nutriDexContainer : Element msg
nutriDexContainer =
    topLevelContainer nutriDexList


nutriDexList : Element msg
nutriDexList =
    column pageList <|
        List.concat
            [ List.map nutriDexMaker
                [ productNutriDex ]
            ]