mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 20:35:13 -05:00
feat: started working on responsiveness
This commit is contained in:
Nick
parent
e6b3e90698
commit
0339496f42
37 changed files with 790 additions and 249 deletions
|
|
@ -72,6 +72,7 @@ import Ports exposing (gotArgHeight)
|
|||
import Route exposing (Route)
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
import Config.Response exposing (..)
|
||||
|
||||
|
||||
page : Shared.Model -> Route () -> Page Model Msg
|
||||
|
|
@ -157,7 +158,7 @@ debateList : Element msg
|
|||
debateList =
|
||||
column [ centerX ]
|
||||
[ column
|
||||
pageList
|
||||
pageListDesktop
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
|
|
|
|||
|
|
@ -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 ] ]
|
||||
)
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@ module Pages.Cucklist 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 Cuckery.CuckList.AdamSinger.AdamSinger exposing (cuckAdamSinger)
|
||||
import Cuckery.CuckList.AmberOHearn.AmberOHearn exposing (cuckAmberOHearn)
|
||||
|
|
@ -91,7 +92,7 @@ page shared route =
|
|||
{ init = init
|
||||
, update = update
|
||||
, subscriptions = subscriptions
|
||||
, view = view
|
||||
, view = view shared
|
||||
}
|
||||
|> Page.withLayout toLayout
|
||||
|
||||
|
|
@ -148,28 +149,76 @@ subscriptions model =
|
|||
-- VIEW
|
||||
|
||||
|
||||
view : Model -> View Msg
|
||||
view model =
|
||||
view : Shared.Model -> Model -> View Msg
|
||||
view shared model =
|
||||
{ title = dodgersName
|
||||
, attributes = []
|
||||
, element = dodgersContainer
|
||||
, element = dodgersContainer shared.device
|
||||
}
|
||||
|
||||
|
||||
dodgersContainer : Element msg
|
||||
dodgersContainer =
|
||||
topLevelContainer dodgersList
|
||||
dodgersContainer : Device -> Element msg
|
||||
dodgersContainer device =
|
||||
topLevelContainer (dodgersList device)
|
||||
|
||||
|
||||
dodgersList : Element msg
|
||||
dodgersList =
|
||||
dodgersList : Device -> Element msg
|
||||
dodgersList device =
|
||||
column
|
||||
pageList
|
||||
(case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
)
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
[ cuckListHeader ]
|
||||
, List.map cuckMaker
|
||||
, (case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
List.map cuckMakerMobile
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
List.map cuckMakerMobile
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
List.map cuckMakerMobile
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
List.map cuckMakerMobile
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
List.map cuckMaker
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
List.map cuckMaker
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
List.map cuckMaker
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
List.map cuckMaker
|
||||
)
|
||||
[ cuckAdamSinger
|
||||
, cuckAmberOHearn
|
||||
, cuckAnnChilders
|
||||
|
|
|
|||
|
|
@ -4,6 +4,7 @@ import Browser.Dom as Dom
|
|||
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 Donate.Helpers exposing (..)
|
||||
import Donate.Methods.Cardano exposing (donateCardano)
|
||||
|
|
@ -36,14 +37,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 = donateName}
|
||||
Layouts.Navbar { currentRoute = donateName }
|
||||
|
||||
|
||||
|
||||
|
|
@ -93,26 +94,76 @@ subscriptions model =
|
|||
-- VIEW
|
||||
|
||||
|
||||
view : Model -> View Msg
|
||||
view model =
|
||||
view : Shared.Model -> Model -> View Msg
|
||||
view shared model =
|
||||
{ title = donateName
|
||||
, attributes = []
|
||||
, element = donateContainer
|
||||
, element = donateContainer shared.device
|
||||
}
|
||||
|
||||
|
||||
donateContainer : Element msg
|
||||
donateContainer =
|
||||
topLevelContainer donateList
|
||||
donateContainer : Device -> Element msg
|
||||
donateContainer device =
|
||||
topLevelContainer (donateList device)
|
||||
|
||||
|
||||
donateList : Element msg
|
||||
donateList =
|
||||
column pageList <|
|
||||
donateList : Device -> Element msg
|
||||
donateList device =
|
||||
column
|
||||
(case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
)
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
[ donateHeader ]
|
||||
, List.map donateMaker
|
||||
, (case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
List.map donateMakerMobile
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
List.map donateMakerMobile
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
List.map donateMakerMobile
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
List.map donateMakerMobile
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
List.map donateMaker
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
List.map donateMaker
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
List.map donateMaker
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
List.map donateMaker
|
||||
)
|
||||
[ donateLiberaPay
|
||||
, donatePayPal
|
||||
, donatePatreon
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@ import Ports exposing (gotArgHeight)
|
|||
import Route exposing (Route)
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
|
||||
import Config.Response exposing (..)
|
||||
|
||||
page : Shared.Model -> Route () -> Page Model Msg
|
||||
page shared route =
|
||||
|
|
@ -114,7 +114,7 @@ gibberishList : Element msg
|
|||
gibberishList =
|
||||
column [ centerX ]
|
||||
[ column
|
||||
pageList
|
||||
pageListDesktop
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
|
|
|
|||
|
|
@ -6,7 +6,9 @@ import Config.Format as O exposing (..)
|
|||
import Config.Identity as I exposing (..)
|
||||
import Config.Viewport exposing (..)
|
||||
import Effect exposing (Effect)
|
||||
import Element exposing (..)
|
||||
import Element as E exposing (..)
|
||||
import Element.Background as B exposing (..)
|
||||
import Element.Border as D exposing (..)
|
||||
import Element.Font as F
|
||||
import Html.Attributes as H exposing (style)
|
||||
import Layouts
|
||||
|
|
@ -14,7 +16,7 @@ import Page exposing (Page)
|
|||
import Route exposing (Route)
|
||||
import Shared exposing (..)
|
||||
import View exposing (View)
|
||||
|
||||
import Config.Response exposing (..)
|
||||
|
||||
page : Shared.Model -> Route () -> Page Model Msg
|
||||
page shared route =
|
||||
|
|
@ -29,7 +31,7 @@ page shared route =
|
|||
|
||||
toLayout : Model -> Layouts.Layout Msg
|
||||
toLayout model =
|
||||
Layouts.Navbar {currentRoute = homeName}
|
||||
Layouts.Navbar { currentRoute = homeName }
|
||||
|
||||
|
||||
|
||||
|
|
@ -94,12 +96,31 @@ homeContainer =
|
|||
|
||||
homeList : Element msg
|
||||
homeList =
|
||||
none
|
||||
|
||||
|
||||
|
||||
-- column
|
||||
-- pageList
|
||||
-- <|
|
||||
-- List.map homeMaker
|
||||
-- []
|
||||
column pageListDesktop
|
||||
[ column
|
||||
[ centerX
|
||||
, centerY
|
||||
, spacing 20
|
||||
]
|
||||
[ row [ centerX ]
|
||||
[ E.image [ E.width <| px 785 ]
|
||||
{ src = "assets/logo_extended.png"
|
||||
, description = ""
|
||||
}
|
||||
]
|
||||
, column
|
||||
[ paddingEach
|
||||
{ top = 15
|
||||
, bottom = 15
|
||||
, left = 20
|
||||
, right = 20
|
||||
}
|
||||
, B.color colourTheme.backgroundDarkGrey
|
||||
, rounded 10
|
||||
, E.width fill
|
||||
, spacing 8
|
||||
]
|
||||
[ paragraph (paragraphFormat ++ [ centerX ]) [ text "upRootNutrition is an open source project, created by Nick Hiebert, designed to elevate the quality of nutrition science communication in online discourse. By applying more rigorous systems of reasoning, such as formal logic, upRootNutrition aims to cut through the misinformation and sophistry that are endemic on social media." ]
|
||||
]
|
||||
]
|
||||
]
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ import Route exposing (Route)
|
|||
import Shared exposing (..)
|
||||
import View exposing (View)
|
||||
import Config.Viewport exposing (..)
|
||||
|
||||
import Config.Response exposing (..)
|
||||
page : Shared.Model -> Route () -> Page Model Msg
|
||||
page shared route =
|
||||
Page.new
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@ module Pages.Interviews 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 Effect exposing (Effect)
|
||||
import Element exposing (..)
|
||||
|
|
@ -36,14 +37,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 = interviewsName}
|
||||
Layouts.Navbar { currentRoute = interviewsName }
|
||||
|
||||
|
||||
|
||||
|
|
@ -93,28 +94,76 @@ subscriptions model =
|
|||
-- VIEW
|
||||
|
||||
|
||||
view : Model -> View Msg
|
||||
view model =
|
||||
view : Shared.Model -> Model -> View Msg
|
||||
view shared model =
|
||||
{ title = interviewsName
|
||||
, attributes = []
|
||||
, element = interviewContainer
|
||||
, element = interviewContainer shared.device
|
||||
}
|
||||
|
||||
|
||||
interviewContainer : Element msg
|
||||
interviewContainer =
|
||||
topLevelContainer interviewList
|
||||
interviewContainer : Device -> Element msg
|
||||
interviewContainer device =
|
||||
topLevelContainer (interviewList device)
|
||||
|
||||
|
||||
interviewList : Element msg
|
||||
interviewList =
|
||||
interviewList : Device -> Element msg
|
||||
interviewList device =
|
||||
column
|
||||
pageList
|
||||
(case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
)
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
[ interviewHeader ]
|
||||
, List.map interviewMaker
|
||||
, (case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
List.map interviewMakerMobile
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
List.map interviewMakerMobile
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
List.map interviewMakerMobile
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
List.map interviewMakerMobile
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
List.map interviewMaker
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
List.map interviewMaker
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
List.map interviewMaker
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
List.map interviewMaker
|
||||
)
|
||||
[ sigmaNutritionRadio
|
||||
, markBellsPowerProject
|
||||
, foolproofMastery
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@ import Route exposing (Route)
|
|||
import Route.Path
|
||||
import Shared
|
||||
import View exposing (View)
|
||||
|
||||
import Config.Response exposing (..)
|
||||
|
||||
page : Shared.Model -> Route () -> Page Model Msg
|
||||
page shared route =
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@ 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 Config.Response exposing (..)
|
||||
import Config.Viewport exposing (..)
|
||||
import Donate.Types exposing (..)
|
||||
import Effect exposing (Effect)
|
||||
|
|
@ -31,14 +32,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 = nutriDexName}
|
||||
Layouts.Navbar { currentRoute = nutriDexName }
|
||||
|
||||
|
||||
|
||||
|
|
@ -58,6 +59,7 @@ init () =
|
|||
)
|
||||
|
||||
|
||||
|
||||
-- UPDATE
|
||||
|
||||
|
||||
|
|
@ -87,23 +89,73 @@ subscriptions model =
|
|||
-- VIEW
|
||||
|
||||
|
||||
view : Model -> View Msg
|
||||
view model =
|
||||
view : Shared.Model -> Model -> View Msg
|
||||
view shared model =
|
||||
{ title = nutriDexName
|
||||
, attributes = []
|
||||
, element = nutriDexContainer
|
||||
, element = nutriDexContainer shared.device
|
||||
}
|
||||
|
||||
|
||||
nutriDexContainer : Element msg
|
||||
nutriDexContainer =
|
||||
topLevelContainer nutriDexList
|
||||
nutriDexContainer : Device -> Element msg
|
||||
nutriDexContainer device =
|
||||
topLevelContainer (nutriDexList device)
|
||||
|
||||
|
||||
nutriDexList : Element msg
|
||||
nutriDexList =
|
||||
column pageList <|
|
||||
nutriDexList : Device -> Element msg
|
||||
nutriDexList device =
|
||||
column
|
||||
(case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
)
|
||||
<|
|
||||
List.concat
|
||||
[ List.map nutriDexMaker
|
||||
[ (case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
List.map nutriDexMakerMobile
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
List.map nutriDexMakerMobile
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
List.map nutriDexMakerMobile
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
List.map nutriDexMakerMobile
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
List.map nutriDexMaker
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
List.map nutriDexMaker
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
List.map nutriDexMaker
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
List.map nutriDexMaker
|
||||
)
|
||||
[ productNutriDex ]
|
||||
]
|
||||
|
|
|
|||
|
|
@ -3,6 +3,7 @@ module Pages.Services 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 Effect exposing (Effect)
|
||||
import Element exposing (..)
|
||||
|
|
@ -29,7 +30,7 @@ page shared route =
|
|||
{ init = init
|
||||
, update = update
|
||||
, subscriptions = subscriptions
|
||||
, view = view
|
||||
, view = view shared
|
||||
}
|
||||
|> Page.withLayout toLayout
|
||||
|
||||
|
|
@ -86,28 +87,76 @@ subscriptions model =
|
|||
-- VIEW
|
||||
|
||||
|
||||
view : Model -> View Msg
|
||||
view model =
|
||||
view : Shared.Model -> Model -> View Msg
|
||||
view shared model =
|
||||
{ title = servicesName
|
||||
, attributes = []
|
||||
, element = servicesContainer
|
||||
, element = servicesContainer shared.device
|
||||
}
|
||||
|
||||
|
||||
servicesContainer : Element msg
|
||||
servicesContainer =
|
||||
topLevelContainer servicesList
|
||||
servicesContainer : Device -> Element msg
|
||||
servicesContainer device =
|
||||
topLevelContainer (servicesList device)
|
||||
|
||||
|
||||
servicesList : Element msg
|
||||
servicesList =
|
||||
servicesList : Device -> Element msg
|
||||
servicesList device =
|
||||
column
|
||||
pageList
|
||||
(case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
pageListDesktop
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
pageListDesktop
|
||||
)
|
||||
<|
|
||||
List.concat
|
||||
[ List.map headerMaker
|
||||
[ servicesHeader ]
|
||||
, List.map serviceMaker
|
||||
, (case ( device.class, device.orientation ) of
|
||||
( Phone, Portrait ) ->
|
||||
List.map serviceMakerMobile
|
||||
|
||||
( Phone, Landscape ) ->
|
||||
List.map serviceMakerMobile
|
||||
|
||||
( Tablet, Portrait ) ->
|
||||
List.map serviceMakerMobile
|
||||
|
||||
( Tablet, Landscape ) ->
|
||||
List.map serviceMakerMobile
|
||||
|
||||
( Desktop, Portrait ) ->
|
||||
List.map serviceMaker
|
||||
|
||||
( Desktop, Landscape ) ->
|
||||
List.map serviceMaker
|
||||
|
||||
( BigDesktop, Portrait ) ->
|
||||
List.map serviceMaker
|
||||
|
||||
( BigDesktop, Landscape ) ->
|
||||
List.map serviceMaker
|
||||
)
|
||||
[ servicesDebateAnalysis
|
||||
, servicesDebateTutoring
|
||||
, servicesNutritionScience
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue