upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 04:25:11 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: I think I may be done v1

Browse source
This commit is contained in:
Nick 2024-12-28 22:30:45 -06:00
parent c63ab0bfe7
commit 28293e56e2
11 changed files with 167 additions and 125 deletions
Download patch file Download diff file Expand all files Collapse all files

55
frontend/src/Pages/Interviews.elm
View file

@ -126,28 +126,28 @@ view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageInterviews
, attributes = []
, element = interviewContainer shared.device
, element = interviewContainer shared
}
interviewContainer : Device -> Element msg
interviewContainer device =
topLevelContainer (interviewList device)
interviewContainer : Shared.Model -> Element msg
interviewContainer shared =
topLevelContainer (interviewList shared)
interviewList : Device -> Element msg
interviewList device =
interviewList : Shared.Model -> Element msg
interviewList shared =
column
(case ( device.class, device.orientation ) of
(case shared.device.class of
_ ->
pageList device
pageList shared.device
)
<|
List.concat
[ [ headerMaker (R.Interviews interviewHeader) ]
, List.map
(\interview ->
cardMaker device (C.Interview interview) (contentList device interview)
cardMaker shared.device (C.Interview interview) (contentList shared interview)
)
[ sigmaNutritionRadio
, markBellsPowerProject
@ -162,8 +162,8 @@ interviewList device =
]
contentList : Device -> Interview -> List (Element msg)
contentList device interview =
contentList : Shared.Model -> Interview -> List (Element msg)
contentList shared interview =
let
image : String -> Element msg
image size =
@ -178,11 +178,11 @@ contentList device interview =
}
]
<|
imageSquareMaker device (imagePathMaker M.Interviews interview.interviewImage) True size
imageSquareMaker shared.device (imagePathMaker M.Interviews interview.interviewImage) True size
imageMaker : Element msg
imageMaker =
case ( device.class, device.orientation ) of
case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) ->
none
@ -206,25 +206,25 @@ contentList device interview =
, detailFormat column
[ socialMaker interview.interviewSocial interview.interviewSocial
, detailTitleMaker TextLightGrey "Appearances:"
, appearanceMaker interview
, appearanceMaker shared interview
]
]
]
appearanceMaker : Interview -> Element msg
appearanceMaker interview =
appearanceMaker : Shared.Model -> Interview -> Element msg
appearanceMaker shared interview =
detailFormat paragraph
[ listMaker2 makeAppearance interview.interviewAppearances ]
[ listMaker2 (makeAppearance shared) interview.interviewAppearances ]
makeAppearance : Appearance -> Int -> Element msg
makeAppearance appearanceEntry index =
makeAppearance : Shared.Model -> Appearance -> Int -> Element msg
makeAppearance shared appearanceEntry index =
detailFormat row
[ listCounter index
, detailFormat column
[ episodeMaker appearanceEntry
, experienceMaker appearanceEntry
, experienceMaker shared appearanceEntry
, dateMaker appearanceEntry
, subjectMaker appearanceEntry
]
@ -240,13 +240,18 @@ episodeMaker appearanceEntry =
}
experienceMaker : Appearance -> Element msg
experienceMaker appearanceEntry =
experienceMaker : Shared.Model -> Appearance -> Element msg
experienceMaker shared appearanceEntry =
detailFormat row
[ el
[ tooltip
"This represents my confidence in the soundness of the argument."
]
(if not shared.isNavbarExpanded then
[ tooltip
"This represents my confidence in the soundness of the argument."
]
else
[]
)
<|
detailTitleMaker TextLightGrey "Pleasantness:"
, barPadding