feat: removed boilerplate

This commit is contained in:
Nick 2024-12-07 15:43:26 -06:00
parent cb51b17c08
commit a462c01f88
14 changed files with 277 additions and 378 deletions

View file

@ -88,7 +88,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -143,7 +143,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = debateName
{ title = pageNames.pageDebate
, attributes = []
, element = debateContainer shared.device
}
@ -158,28 +158,7 @@ debateList : Device -> Element msg
debateList 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
)
<|
@ -190,25 +169,10 @@ debateList device =
( Phone, Portrait ) ->
List.map argumentMakerMobile
( Phone, Landscape ) ->
List.map argumentMakerMobile
( Tablet, Portrait ) ->
List.map argumentMakerMobile
( Tablet, Landscape ) ->
List.map argumentMakerMobile
( Desktop, Portrait ) ->
List.map argumentMaker
( Desktop, Landscape ) ->
List.map argumentMaker
( BigDesktop, Portrait ) ->
List.map argumentMaker
( BigDesktop, Landscape ) ->
_ ->
List.map argumentMaker
)
[ argumentApoBCVD

View file

@ -35,7 +35,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -87,7 +87,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = contactName
{ title = pageNames.pageContact
, attributes = []
, element = contactContainer shared.device
}
@ -103,27 +103,6 @@ contactList device =
column pageListDesktop <|
List.concat
(case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ [ instructionMaker ] ]
( Phone, Landscape ) ->
[ [ instructionMaker ] ]
( Tablet, Portrait ) ->
[ [ instructionMaker ] ]
( Tablet, Landscape ) ->
[ [ instructionMaker ] ]
( Desktop, Portrait ) ->
[ [ instructionMaker ] ]
( Desktop, Landscape ) ->
[ [ instructionMaker ] ]
( BigDesktop, Portrait ) ->
[ [ instructionMaker ] ]
( BigDesktop, Landscape ) ->
_ ->
[ [ instructionMaker ] ]
)

View file

@ -99,7 +99,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -151,7 +151,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = dodgersName
{ title = pageNames.pageCucks
, attributes = []
, element = dodgersContainer shared.device
}
@ -166,28 +166,7 @@ dodgersList : Device -> Element msg
dodgersList 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
)
<|
@ -198,25 +177,10 @@ dodgersList device =
( 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

View file

@ -96,7 +96,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = donateName
{ title = pageNames.pageDonate
, attributes = []
, element = donateContainer shared.device
}
@ -111,28 +111,7 @@ 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
)
<|
@ -143,25 +122,10 @@ donateList device =
( 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

View file

@ -45,7 +45,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -100,7 +100,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = gibberishName
{ title = pageNames.pageGibberish
, attributes = []
, element = gibberishContainer shared.device
}
@ -115,28 +115,7 @@ gibberishList : Device -> Element msg
gibberishList 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
)
<|
@ -147,25 +126,10 @@ gibberishList device =
( Phone, Portrait ) ->
List.map gibberishMakerMobile
( Phone, Landscape ) ->
List.map gibberishMakerMobile
( Tablet, Portrait ) ->
List.map gibberishMakerMobile
( Tablet, Landscape ) ->
List.map gibberishMakerMobile
( Desktop, Portrait ) ->
List.map gibberishMaker
( Desktop, Landscape ) ->
List.map gibberishMaker
( BigDesktop, Portrait ) ->
List.map gibberishMaker
( BigDesktop, Landscape ) ->
_ ->
List.map gibberishMaker
)
[ epistemologyGibberish

View file

@ -85,7 +85,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = ""
{ title = pageNames.pageHome
, attributes = []
, element = homeContainer shared.device
}

View file

@ -82,7 +82,7 @@ subscriptions model =
view : Model -> View Msg
view model =
{ title = hyperBlogName
{ title = pageNames.pageHyperBlog
, attributes = []
, element = none
}

View file

@ -44,7 +44,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -96,7 +96,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = interviewsName
{ title = pageNames.pageInterviews
, attributes = []
, element = interviewContainer shared.device
}
@ -111,28 +111,7 @@ interviewList : Device -> Element msg
interviewList 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
)
<|
@ -143,25 +122,10 @@ interviewList device =
( 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

View file

@ -39,7 +39,7 @@ page shared route =
toLayout : Model -> Layouts.Layout Msg
toLayout model =
Layouts.Navbar { }
Layouts.Navbar {}
@ -91,7 +91,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = nutriDexName
{ title = pageNames.pageNutriDex
, attributes = []
, element = nutriDexContainer shared.device
}
@ -106,28 +106,7 @@ 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
)
<|
@ -136,25 +115,10 @@ nutriDexList device =
( 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 ]

View file

@ -89,7 +89,7 @@ subscriptions model =
view : Shared.Model -> Model -> View Msg
view shared model =
{ title = servicesName
{ title = pageNames.pageServices
, attributes = []
, element = servicesContainer shared.device
}
@ -104,28 +104,7 @@ servicesList : Device -> Element msg
servicesList 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
)
<|
@ -136,25 +115,10 @@ servicesList device =
( 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