feat: did a ton of work

This commit is contained in:
Nick 2024-11-26 04:32:11 -06:00
parent a220b0d9c1
commit 078bd0ac70
67 changed files with 358 additions and 192 deletions

View file

@ -175,9 +175,8 @@ debateList model =
argColumn : Bool -> Element Msg
argColumn isHidden =
column
-- (explain Debug.todo ::
[ padding 30
, spacing 10
, spacing 15
]
<|
List.map argumentMaker <|
@ -201,7 +200,13 @@ debateList model =
(List.map Just model.argHeights)
in
el
[ behindContent <| argColumn True ]
[ behindContent <| argColumn True
, spacing 10
, centerX
, centerY
, alignTop
, paddingEach { top = 30, bottom = 30, left = 30, right = 30 }
]
<|
argColumn False

View file

@ -153,20 +153,24 @@ makeRow makeRowInput =
)
makeRowInput.platformsRecommendedClients
in
row [ imageSpacer ]
row [ spacing 20 ]
[ image platformImageFormat
{ src = makeRowInput.logoImage
, description = makeRowInput.logoDescription
}
, column paragraphColumnFormat
[ newTabLink highlightedTitleFormat
{ url = makeRowInput.platformsLink
, label = text makeRowInput.platformsTitle
}
, paragraph paragraphFormat makeRowInput.platformsParagraph1
, paragraph paragraphFormat makeRowInput.platformsParagraph2
, paragraph paragraphFormat
(recommendedClients :: clientRows)
, column [ width <| px 500, spacing 10 ]
[ column []
[ newTabLink highlightedTitleFormat
{ url = makeRowInput.platformsLink
, label = text makeRowInput.platformsTitle
}
]
, column [ spacing 20 ]
[ paragraph paragraphFormat makeRowInput.platformsParagraph1
, paragraph paragraphFormat makeRowInput.platformsParagraph2
, paragraph paragraphFormat
(recommendedClients :: clientRows)
]
]
]

View file

@ -10,11 +10,12 @@ import Html.Attributes as H exposing (style)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Services.Helpers exposing (..)
import Services.ServiceList.Coaching.DebateAnalysis exposing (..)
import Services.ServiceList.Coaching.DebateTutoring exposing (..)
import Services.ServiceList.Coaching.NutritionScience exposing (..)
import Services.ServiceList.Creative.ElmBuilds exposing (..)
import Services.ServiceList.Creative.NixBuilds exposing (..)
import Services.Helpers exposing (..)
import Shared exposing (..)
import View exposing (View)
@ -99,8 +100,9 @@ servicesList =
pageList
<|
List.map serviceMaker
[ servicesDebateTutoring
, servicesDebateAnalysis
[ servicesDebateAnalysis
, servicesDebateTutoring
, servicesNutritionScience
, servicesNixBuilds
, servicesElmBuilds
]