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,14 +1,15 @@
module Pages.Donate exposing (Model, Msg, page)
import Config.Data.Identity as I exposing (..)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Cardables.Helpers exposing (cardMaker)
import Config.Helpers.Cardables.Types as C
import Config.Helpers.Format
exposing
( headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Header exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -131,12 +132,15 @@ donateList device =
)
<|
List.concat
[ List.map (headerMaker device)
[ donateHeader ]
, (case ( device.class, device.orientation ) of
_ ->
List.map (\donate -> donateMaker device donate)
)
[ -- List.map (headerMaker device)
-- [
-- servicesHeader
-- ]
-- ,
List.map
(\donate ->
cardMaker device (C.Donate donate) (contentList device donate)
)
[ donateLiberaPay
, donateStripe
, donatePatreon
@ -155,17 +159,10 @@ donateHeader =
"Donate"
in
{ headerTitle = String.toUpper name
, hasImage = False
, hasLink = False
, headerBody = "My site, research, and content all cost time and money to run. If you find my contributions valuable, please consider supporting my work on any of the platforms listed below!"
}
donateMaker : Device -> Donate -> Element msg
donateMaker device donate =
cardMaker device donate.donateName (contentList device donate) (donateImage donate) donate.donateLink
contentList : Device -> Donate -> List (Element msg)
contentList device donate =
[ feeMaker donate