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: so very close

Browse source
This commit is contained in:
Nick 2024-12-27 23:24:35 -06:00
parent 185d922ffb
commit 071c823c41
20 changed files with 293 additions and 570 deletions
Download patch file Download diff file Expand all files Collapse all files

40
frontend/src/Pages/Contact.elm
View file

@ -1,6 +1,7 @@
module Pages.Contact exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Cards.Inner.Helpers exposing (numberedListItem)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
@ -21,7 +22,7 @@ import Config.Helpers.ServiceFormat
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Contact.Types exposing (..)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
@ -137,19 +138,19 @@ contactList device =
[ none ]
, List.map
(\contact ->
cardMaker device (C.Contact contact) (contentList contact)
cardMaker device (C.Contact contact) (contentList device contact)
)
[ contactTitle ]
]
contentList : Contact -> List (Element msg)
contentList contact =
[ instructionBody ]
contentList : Device -> Contact -> List (Element msg)
contentList device contact =
[ instructionBody device ]
instructionBody : Element msg
instructionBody =
instructionBody : Device -> Element msg
instructionBody device =
column
[ spacing 10
, paddingEach
@ -181,7 +182,7 @@ instructionBody =
[ width <| px 15
, alignTop
]
[ el [ alignRight ] <| text (String.fromInt (index + 1) ++ ". ") ]
[ numberedListItem TextLightGrey (index + 1) ]
, column
[ spacing 10
, width fill
@ -196,7 +197,7 @@ instructionBody =
]
]
)
termsAndConditions
(termsAndConditions device)
, column [ centerX, width fill ]
[ divider
, titleMaker (String.toUpper "Additional Clarifications")
@ -246,8 +247,21 @@ rounding =
D.rounded 10
termsAndConditions : List (List (Element msg))
termsAndConditions =
termsAndConditions : Device -> List (List (Element msg))
termsAndConditions device =
let
backGroundCase : Attr decorative msg
backGroundCase =
case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
( Tablet, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
_ ->
B.color colourTheme.backgroundLightGrey
in
[ [ row []
[ paragraph [ alignLeft ]
[ text "You will register an account with "
@ -306,7 +320,7 @@ termsAndConditions =
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, backGroundCase
, rounding
, width fill
, spacing 8
@ -352,7 +366,7 @@ termsAndConditions =
, left = 20
, right = 20
}
, B.color colourTheme.backgroundLightGrey
, backGroundCase
, rounding
, width fill
, spacing 8