feat: still need to remake headers

This commit is contained in:
Nick 2024-12-21 23:23:59 -06:00
parent 4686c14667
commit f9af0e1941
209 changed files with 1057 additions and 953 deletions

View file

@ -1,7 +1,8 @@
module Pages.Interviews exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Converters exposing (formatSocial)
import Config.Helpers.Format
exposing
@ -138,12 +139,15 @@ interviewList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ interviewHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (interviewMaker device)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\interview ->
cardMaker device (C.Interview interview) (contentList interview)
)
[ sigmaNutritionRadio
, markBellsPowerProject
, foolproofMastery
@ -164,17 +168,10 @@ interviewHeader =
"Interviews"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "This page showcases various podcasts and shows I've been on. If youd like to have me as a guest on your podcast, feel free to reach outId love to share my perspectives with your audience!"
}
interviewMaker : Device -> Interview -> Element msg
interviewMaker device interview =
cardMaker device interview.interviewName (contentList interview) (interviewImage interview) interview.interviewSocial
contentList : Interview -> List (Element msg)
contentList interview =
[ appearanceTitle interview