website/frontend/src/View.elm

module View exposing
    ( View, map
    , none, fromString
    , toBrowserDocument
    )

{-|

@docs View, map
@docs none, fromString
@docs toBrowserDocument

-}

import Browser
import Element exposing (Attribute, Element, layout, mapAttribute, text)
import Route exposing (Route)
import Shared.Model


type alias View msg =
    { title : String
    , attributes : List (Attribute msg)
    , element : Element msg
    }


{-| Used internally by Elm Land to create your application
so it works with Elm's expected `Browser.Document msg` type.
-}
toBrowserDocument :
    { shared : Shared.Model.Model
    , route : Route ()
    , view : View msg
    }
    -> Browser.Document msg
toBrowserDocument { view } =
    { title = view.title
    , body = [ layout view.attributes view.element ]
    }



-- toBrowserDocument :
--     { shared : Shared.Model.Model
--     , route : Route ()
--     , view : View msg
--     }
--     -> Browser.Document msg
-- toBrowserDocument { view } =
--     { title = view.title
--     , body = view.body
--     }


{-| Used internally by Elm Land to connect your pages together.
-}
map : (msg1 -> msg2) -> View msg1 -> View msg2
map fn view =
    { title = view.title
    , attributes = List.map (mapAttribute fn) view.attributes
    , element = Element.map fn view.element
    }


{-| Used internally by Elm Land whenever transitioning between
authenticated pages.
-}
none : View msg
none =
    { title = ""
    , attributes = []
    , element = Element.none
    }


{-| If you customize the `View` module, anytime you run `elm-land add page`,
the generated page will use this when adding your `view` function.

That way your app will compile after adding new pages, and you can see
the new page working in the web browser!

-}
fromString : String -> View msg
fromString moduleName =
    { title = moduleName
    , attributes = []
    , element = text moduleName
    }