mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 04:25:11 -05:00
feat: still need to remake headers
This commit is contained in:
parent
4686c14667
commit
f9af0e1941
209 changed files with 1057 additions and 953 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue