feat: refactored a shit ton of stuff

This commit is contained in:
Nick 2024-12-09 20:30:04 -06:00
parent fbdfde8680
commit 7704839038
20 changed files with 54 additions and 45 deletions

View file

@ -3,7 +3,7 @@ module Pages.Arguments exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -105,7 +105,7 @@ debateList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -3,7 +3,7 @@ module Pages.Contact exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -99,7 +99,7 @@ contactContainer device =
contactList : Device -> Element msg
contactList device =
column pageListDesktop <|
column pageList <|
List.concat
(case ( device.class, device.orientation ) of
_ ->

View file

@ -3,7 +3,7 @@ module Pages.Cucklist exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -100,7 +100,7 @@ dodgersList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -3,8 +3,9 @@ module Pages.Debate exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Debate.Debate.Helpers exposing (..)
@ -103,7 +104,7 @@ debateList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -1,8 +1,11 @@
module Pages.Donate exposing (Model, Msg, page)
import Config.Data.Identity as I exposing (..)
import Config.Format.Format as O exposing (..)
import Config.Format.Response exposing (..)
import Config.Format.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (..)
import Config.Pages.Donate.Helpers exposing (..)
import Config.Pages.Donate.Methods.Cardano exposing (donateCardano)
@ -14,11 +17,11 @@ import Config.Pages.Donate.Methods.PayPal exposing (donatePayPal)
import Config.Pages.Donate.Methods.Stripe exposing (donateStripe)
import Config.Pages.Donate.Methods.YouTube exposing (donateYouTube)
import Config.Pages.Donate.Types exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Donate exposing (donateHeader)
import Config.Style.Colour as T exposing (..)
import Effect exposing (Effect)
import Element as E exposing (..)
import Config.Pages.Headers.Helpers exposing (headerMaker)
import Config.Pages.Headers.Pages.Donate exposing (donateHeader)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -108,7 +111,7 @@ donateList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -3,7 +3,7 @@ module Pages.Gibberish exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -113,7 +113,7 @@ gibberishList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -3,7 +3,7 @@ module Pages.Home_ exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageListCenter
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -96,7 +96,7 @@ homeContainer device =
homeList : Device -> Element msg
homeList device =
column pageListDesktop
column pageListCenter
[ case device.class of
Desktop ->
desktopHomePage

View file

@ -3,7 +3,7 @@ module Pages.Hyperblog exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -98,7 +98,7 @@ hyperBlogContainer device =
hyperBlogList : Device -> Element msg
hyperBlogList device =
column pageListDesktop <|
column pageList <|
List.concat
(case ( device.class, device.orientation ) of
_ ->

View file

@ -3,7 +3,7 @@ module Pages.Interviews exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -109,7 +109,7 @@ interviewList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -2,7 +2,7 @@ module Pages.NotFound_ exposing (Model, Msg, page)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Effect exposing (Effect)

View file

@ -3,7 +3,7 @@ module Pages.Nutridex exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -103,7 +103,7 @@ nutriDexList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat

View file

@ -3,7 +3,7 @@ module Pages.Services exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Format.Response
exposing
( pageListDesktop
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
@ -106,7 +106,7 @@ servicesList device =
column
(case ( device.class, device.orientation ) of
_ ->
pageListDesktop
pageList
)
<|
List.concat