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: stuff is fucked but I'm too tired to continue tonight

Browse source
This commit is contained in:
Nick 2024-12-21 04:07:50 -06:00
parent d2056e032e
commit 277ba17421
37 changed files with 683 additions and 1491 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,21 +1,7 @@
module Pages.Donate exposing (Model, Msg, page)
import Config.Data.Identity as I exposing (..)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Format
exposing
( headerFontSizeSmall
@ -145,17 +131,11 @@ donateList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ donateHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map (\donate -> donateMakerMobile donate device)
( Tablet, Portrait ) ->
List.map (\donate -> donateMakerMobile donate device)
_ ->
List.map (\donate -> donateMaker donate device)
List.map (\donate -> donateMaker device donate)
)
[ donateLiberaPay
, donateStripe
@ -179,63 +159,21 @@ donateHeader =
}
donateMaker : Donate -> Device -> Element msg
donateMaker donate device =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (donateImage donate) donate.donateLink
, cardMaker
[ cardTitleMaker donate.donateName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ feeMaker donate
, preferenceMaker donate
, tableMaker donate device
, proTitleMaker donate
, proMaker donate
, conTitleMaker donate
, conMaker donate
]
]
]
]
]
donateMaker : Device -> Donate -> Element msg
donateMaker device donate =
cardMaker device donate.donateName (contentList device donate) (donateImage donate) donate.donateLink
donateMakerMobile : Donate -> Device -> Element msg
donateMakerMobile donate device =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker donate.donateName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ width fill, spacing 10 ]
[ mobileCardMaker mobileImageBoxSize
mobileImageSize
(donateImage donate)
donate.donateLink
, column
[ width fill ]
[ feeMaker donate
, preferenceMaker donate
]
]
, tableMaker donate device
, proTitleMaker donate
, proMaker donate
, conTitleMaker donate
, conMaker donate
]
]
]
]
]
contentList : Device -> Donate -> List (Element msg)
contentList device donate =
[ feeMaker donate
, preferenceMaker donate
, tableMaker donate device
, proTitleMaker donate
, proMaker donate
, conTitleMaker donate
, conMaker donate
]
donateImage :