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