upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 04:25:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: started working on responsiveness

Browse source
This commit is contained in:
Nick 2024-12-06 00:43:00 -06:00
parent e6b3e90698
commit 0339496f42
37 changed files with 790 additions and 249 deletions
Download patch file Download diff file Expand all files Collapse all files

50
frontend/src/Pages/Contact.elm
View file

@ -3,6 +3,7 @@ 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 Config.Response exposing (..)
import Config.Viewport exposing (..)
import Contact.Helpers exposing (..)
import Contact.Methods.Discord exposing (contactDiscord)
@ -27,14 +28,14 @@ page shared route =
{ init = init
, update = update
, subscriptions = subscriptions
, view = view
, view = view shared
}
|> Page.withLayout toLayout
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar {currentRoute = contactName}
Layouts.Navbar { currentRoute = contactName }
@ -84,22 +85,45 @@ subscriptions model =
-- VIEW
view : Model -> View Msg
view model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = contactName
, attributes = []
, element = contactContainer
, element = contactContainer shared.device
}
contactContainer : Element msg
contactContainer =
topLevelContainer contactList
contactContainer : Device -> Element msg
contactContainer device =
topLevelContainer (contactList device)
contactList : Element msg
contactList =
column pageList <|
contactList : Device -> Element msg
contactList device =
column pageListDesktop <|
List.concat
[ [ instructionMaker ]
]
(case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ [] ]
( Phone, Landscape ) ->
[ [instructionMaker] ]
( Tablet, Portrait ) ->
[ [instructionMaker] ]
( Tablet, Landscape ) ->
[ [instructionMaker] ]
( Desktop, Portrait ) ->
[ [instructionMaker] ]
( Desktop, Landscape ) ->
[ [instructionMaker] ]
( BigDesktop, Portrait ) ->
[ [instructionMaker] ]
( BigDesktop, Landscape ) ->
[ [ instructionMaker ] ]
)