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

feat: refactored a shit ton of stuff

Browse source
This commit is contained in:
Nick 2024-12-09 19:53:09 -06:00
parent 68be562bd3
commit fbdfde8680
232 changed files with 2614 additions and 2532 deletions
Download patch file Download diff file Expand all files Collapse all files

61
frontend/src/Pages/Debate.elm
View file

@ -1,25 +1,21 @@
module Pages.Debate exposing (Model, Msg, page)
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 Debate.Debate.Helpers exposing (..)
import Debate.Debate.Pages.Arguments exposing (debateArguments)
import Debate.Debate.Pages.Cucklist exposing (debateCuckList)
import Debate.Debate.Pages.Gibberish exposing (debateGibberish)
import Donate.Types exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Debate.Helpers exposing (..)
import Config.Pages.Debate.Debate.Pages.Arguments exposing (debateArguments)
import Config.Pages.Debate.Debate.Pages.Cucklist exposing (debateCuckList)
import Config.Pages.Debate.Debate.Pages.Gibberish exposing (debateGibberish)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Debate exposing (debateHeader)
import Config.Style.Colour as T exposing (colourTheme)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D exposing (..)
import Element.Font as F
import Headers.Helpers exposing (headerMaker)
import Headers.Pages.Donate exposing (donateHeader)
import Html
import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -104,14 +100,27 @@ debateContainer device =
debateList : Device -> Element msg
debateList device =
column pageListDesktop
column
(case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ mobileDebateMaker ]
( Tablet, Portrait ) ->
[ mobileDebateMaker ]
_ ->
[ desktopDebateMaker ]
pageListDesktop
)
<|
List.concat
[ List.map headerMaker
[ debateHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileDebateMaker
( Tablet, Portrait ) ->
List.map mobileDebateMaker
_ ->
List.map desktopDebateMaker
)
[ debateArguments
, debateCuckList
, debateGibberish
]
]