feat: added contact page template

This commit is contained in:
Nick 2024-11-28 19:49:28 -06:00
parent 1501624920
commit 2a0b5f25ca
6 changed files with 133 additions and 1 deletions

View file

@ -0,0 +1,103 @@
module Pages.Contact exposing (Model, Msg, page)
import Config.Colour as T exposing (..)
import Config.Format as O exposing (..)
import Config.Identity as I exposing (..)
import Effect exposing (Effect)
import Element exposing (..)
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
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 = contactName
, attributes = []
, element = contactContainer
}
contactContainer : Element msg
contactContainer =
topLevelContainer contactList
contactList : Element msg
contactList =
none
-- column
-- pageList
-- <|
-- List.map contactMaker
-- [
-- ]