feat: refactoring and tidying up

This commit is contained in:
Nick 2024-12-18 20:11:04 -06:00
parent 62be86f2f9
commit 2295c85fca
112 changed files with 862 additions and 1698 deletions

View file

@ -22,6 +22,8 @@ import Config.Helpers.Format
( paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
( pageList
@ -34,12 +36,6 @@ import Config.Helpers.StrengthBar
)
import Config.Helpers.ToolTip exposing (tooltip)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Helpers.Header exposing (..)
import Config.Helpers.Header
exposing
( Header
, headerMaker
)
import Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (drShawnBakerPodcast)
import Config.Pages.Interviews.Records.FitAndFurious exposing (fitAndFurious)
import Config.Pages.Interviews.Records.FoolproofMastery exposing (foolproofMastery)
@ -195,15 +191,14 @@ interviewMaker : Interview -> Element msg
interviewMaker interview =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (interviewImage interview) (interviewSocial interview)
[ desktopCardMaker desktopImageBoxSize desktopImageSize (interviewImage interview) interview.interviewSocial
, cardMaker
[ cardTitleMaker (interviewTitle interview)
[ cardTitleMaker interview.interviewName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ socialMaker interview
, appearanceTitle interview
[ appearanceTitle interview
, appearanceMaker interview
]
]
@ -218,13 +213,13 @@ interviewMakerMobile interview =
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker (interviewTitle interview)
[ cardTitleMaker interview.interviewName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (interviewImage interview) (interviewSocial interview)
[ mobileCardMaker mobileImageBoxSize mobileImageSize (interviewImage interview) interview.interviewSocial
, socialMaker interview
]
, appearanceTitle interview
@ -243,16 +238,6 @@ interviewImage interview =
}
interviewTitle : Interview -> String
interviewTitle interview =
interview.interviewName
interviewSocial : Interview -> String
interviewSocial interview =
interview.interviewSocial
socialMaker : Interview -> Element msg
socialMaker interview =
paragraph
@ -498,7 +483,7 @@ subjectMaker appearanceEntry =
subjectList : Appearance -> Element msg
subjectList appearanceEntry =
paragraph
column
[ spacing 8
, width fill
, paddingEach
@ -516,7 +501,7 @@ subjectList appearanceEntry =
makeSubject : Subjects -> Element msg
makeSubject subjects =
paragraph
el
[ E.width fill
, alignLeft
, paddingEach
@ -526,6 +511,10 @@ makeSubject subjects =
, left = 8
}
]
[ paragraph [ F.regular ]
[ text (" " ++ subjects.subject) ]
]
<|
el
[ F.regular
, paragraphFontSize
]
<|
text (" " ++ subjects.subject)