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

@ -48,7 +48,7 @@ cardMaker =
column
[ E.width fill
, D.width 5
, centerX
, alignTop
, D.color colourTheme.backgroundDarkGrey
, D.rounded 32
, glowDeepDarkGrey

View file

@ -5,7 +5,7 @@ import Element.Font as F
paragraphFontSize : Attr decorative msg
paragraphFontSize =
F.size 17
F.size 16
paragraphSpacing : Attribute msg

View file

@ -10,19 +10,30 @@ topLevelContainer =
el
[ width fill
, height fill
, centerX
, B.color colourTheme.backgroundLightGrey
, height fill
, scrollbarY
]
pageListDesktop : List (Attribute msg)
pageListDesktop =
pageList : List (Attribute msg)
pageList =
[ alignTop
]
++ pageListFormat
pageListCenter : List (Attribute msg)
pageListCenter =
[ centerY
]
++ pageListFormat
pageListFormat : List (Attribute msg)
pageListFormat =
[ spacing 30
, centerX
, alignTop
, height fill
, paddingEach { top = 30, bottom = 30, left = 30, right = 30 }
, width (fill |> minimum 100)
, width (fill |> maximum 875)

View file

@ -1,7 +1,7 @@
module Config.Helpers.StrengthBar exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Style.Colour exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D

View file

@ -1,6 +1,6 @@
module Config.Helpers.ToolTip exposing (..)
import Config.Style.Colour exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E exposing (..)
import Element.Background as B

View file

@ -8,7 +8,7 @@ import Config.Helpers.StrengthBar
, barPadding
)
import Config.Helpers.ToolTip exposing (..)
import Config.Style.Colour exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange

View file

@ -564,7 +564,7 @@ desktopFormalizationMaker argument =
mobileFormalizationMaker : Argument -> Element msg
mobileFormalizationMaker argument =
formalizationMaker argument argumentDesktopPadding
formalizationMaker argument argumentMobilePadding
formalizationMaker : Argument -> Attribute msg -> Element msg
@ -619,12 +619,6 @@ formalizationMaker argument padding =
[ F.color colourTheme.textLightGrey
, F.regular
, E.width fill
, paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 5
}
]
]
, paragraph

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

Binary file not shown.

After

Width:  |  Height:  |  Size: 387 KiB