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

47
frontend/src/Pages/Donate.elm
View file

@ -118,28 +118,28 @@ view : Shared.Model -> Model -> View Msg
view shared model =
{ title = pageNames.pageDonate
, attributes = []
, element = donateContainer shared.device
, element = donateContainer shared
}
donateContainer : Device -> Element msg
donateContainer device =
topLevelContainer (donateList device)
donateContainer : Shared.Model -> Element msg
donateContainer shared =
topLevelContainer (donateList shared)
donateList : Device -> Element msg
donateList device =
donateList : Shared.Model -> Element msg
donateList shared =
column
(case ( device.class, device.orientation ) of
(case ( shared.device.class, shared.device.orientation ) of
_ ->
pageList device
pageList shared.device
)
<|
List.concat
[ [ headerMaker (R.Donate donateHeader) ]
, List.map
(\donate ->
cardMaker device (C.Donate donate) (contentList device donate)
cardMaker shared.device (C.Donate donate) (contentList shared donate)
)
[ donateLiberaPay
, donateStripe
@ -152,8 +152,8 @@ donateList device =
]
contentList : Device -> Donate -> List (Element msg)
contentList device donate =
contentList : Shared.Model -> Donate -> List (Element msg)
contentList shared donate =
let
image : String -> Element msg
image size =
@ -168,14 +168,14 @@ contentList device donate =
}
]
<|
imageSquareMaker device (imagePathMaker M.Donate donate.donateImage) True size
imageSquareMaker shared.device (imagePathMaker M.Donate donate.donateImage) True size
in
[ detailFormat row
[ image "Fatty"
, detailFormat column
[ feeMaker donate
, preferenceMaker donate
, tableMaker donate device
, preferenceMaker shared donate
, tableMaker donate shared.device
]
]
, proConMaker donate
@ -210,15 +210,22 @@ makeCon con =
listItem TextLightGrey con.con
preferenceMaker : Donate -> Element msg
preferenceMaker donate =
preferenceMaker : Shared.Model -> Donate -> Element msg
preferenceMaker shared donate =
detailFormat row
[ el
[ tooltip
"This represents how strongly I prefer a given platform relative to other platforms."
]
(if not shared.isNavbarExpanded then
[ tooltip
"This represents how strongly I prefer a given platform relative to other platforms."
]
else
[]
)
<|
detailTitleMaker TextLightOrange "Preference:"
detailTitleMaker
TextLightOrange
"Preference:"
, barPadding
[ barMaker getPreferenceTooltip donate.donatePreference ]
]