mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-15 20:15:12 -05:00
166 lines
4.1 KiB
Elm
Executable file
166 lines
4.1 KiB
Elm
Executable file
module Pages.Contact.Inquiry exposing (Model, Msg, page)
|
|
|
|
import Config.Data.Identity exposing (pageNames)
|
|
import Config.Helpers.Cards.Inner.Helpers exposing (detailBodyLink, detailBodyMaker, detailFormat, numberedListItem)
|
|
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
|
|
import Config.Helpers.Cards.Outer.Types as C
|
|
import Config.Helpers.Format exposing (..)
|
|
import Config.Helpers.Headers.Helpers exposing (..)
|
|
import Config.Helpers.Headers.Records exposing (contactHeader, nutriDexHeader)
|
|
import Config.Helpers.Headers.Types as R exposing (..)
|
|
import Config.Helpers.Response
|
|
exposing
|
|
( pageList
|
|
, topLevelContainer
|
|
)
|
|
import Config.Helpers.ServiceFormat
|
|
exposing
|
|
( divider
|
|
, titleMaker
|
|
)
|
|
import Config.Helpers.ToolTip exposing (..)
|
|
import Config.Helpers.Viewport exposing (resetViewport)
|
|
import Config.Pages.Contact.Types exposing (..)
|
|
import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme)
|
|
import Config.Style.Transitions
|
|
exposing
|
|
( hoverFontDarkOrange
|
|
, transitionStyleFast
|
|
, transitionStyleSlow
|
|
)
|
|
import Effect exposing (Effect)
|
|
import Element as E exposing (..)
|
|
import Element.Background as B
|
|
import Element.Border as D
|
|
import Element.Font as F
|
|
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 shared
|
|
}
|
|
|> Page.withLayout toLayout
|
|
|
|
|
|
toLayout : Model -> Layouts.Layout Msg
|
|
toLayout model =
|
|
Layouts.Navbar {}
|
|
|
|
|
|
|
|
-- INIT
|
|
|
|
|
|
type alias Model =
|
|
{}
|
|
|
|
|
|
init : () -> ( Model, Effect Msg )
|
|
init () =
|
|
( {}
|
|
, Effect.map
|
|
(\_ -> NoOp)
|
|
(Effect.sendCmd resetViewport)
|
|
)
|
|
|
|
|
|
|
|
-- 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 : Shared.Model -> Model -> View Msg
|
|
view shared model =
|
|
{ title = pageNames.pageContact ++ " (inquiry)"
|
|
, attributes = []
|
|
, element = contactContainer shared.device
|
|
}
|
|
|
|
|
|
contactContainer : Device -> Element msg
|
|
contactContainer device =
|
|
topLevelContainer (contactList device)
|
|
|
|
|
|
contactList : Device -> Element msg
|
|
contactList device =
|
|
column
|
|
(case ( device.class, device.orientation ) of
|
|
_ ->
|
|
pageList device
|
|
)
|
|
<|
|
|
List.concat
|
|
[ List.map
|
|
(\contact ->
|
|
cardMaker device (C.ContactPage contact) (contentList device contact)
|
|
)
|
|
[ contactInquiry ]
|
|
]
|
|
|
|
|
|
contentList : Device -> Contact -> List (Element msg)
|
|
contentList device contact =
|
|
[ instructionBody device ]
|
|
|
|
|
|
instructionBody : Device -> Element msg
|
|
instructionBody device =
|
|
column
|
|
[ spacing 20
|
|
, paddingEach
|
|
{ top = 10
|
|
, bottom = 0
|
|
, left = 0
|
|
, right = 0
|
|
}
|
|
]
|
|
[ detailFormat paragraph
|
|
[ detailBodyMaker TextLightGrey (text "For any inquiries related to services, debate invitations, or general questions regarding guest appearances, webinars, public speaking engagements, ghostwriting, or co-authorship opportunities, please feel free to contact me at ")
|
|
, link
|
|
[]
|
|
{ url = "mailto:"
|
|
, label = detailBodyLink TextLightOrange "nick@upRootNutrition.com"
|
|
}
|
|
, detailBodyMaker TextLightGrey (text ".")
|
|
]
|
|
, detailFormat paragraph
|
|
[ detailBodyMaker TextLightGrey (text "If you wish to submit a Discord ban appeal, you may do using the provided email address. Please include your user ID and a detailed statement detailing why you believe that you, or someone else, should be unbanned.") ]
|
|
]
|
|
|
|
|