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

@ -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