upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-06-16 12:25:12 -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

56
frontend/src/Config/Helpers/Articles/Article.elm
View file

@ -2,22 +2,7 @@ module Config.Helpers.Articles.Article exposing (..)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Types exposing (References)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
@ -59,31 +44,22 @@ import Shared exposing (..)
import View exposing (View)
articleMaker : BlogArticle -> Element msg
articleMaker article =
column
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper article.articleName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ articleImage article.articleImage
, renderDeviceMarkdown article.articleBody
, case article.hasReferences of
True ->
articleReferences article
articleMaker : Device -> BlogArticle -> Element msg
articleMaker device article =
cardMaker device article.articleName (contentList article) { description = "", src = "String" } article.articleLink
False ->
none
]
]
]
]
]
]
contentList : BlogArticle -> List (Element msg)
contentList article =
[ articleImage article.articleImage
, renderDeviceMarkdown article.articleBody
, case article.hasReferences of
True ->
articleReferences article
False ->
none
]
articleReferences : BlogArticle -> Element msg

495
frontend/src/Config/Helpers/CardFormat.elm
View file

@ -7,7 +7,8 @@ import Config.Data.Identity
import Config.Helpers.Converters exposing (formatName)
import Config.Helpers.Format
exposing
( paragraphFontSize
( headerFontSizeMedium
, paragraphFontSize
, paragraphSpacing
)
import Config.Style.Colour exposing (colourTheme)
@ -29,303 +30,211 @@ import Element.Border as D
import Element.Font as F
import Html.Attributes as H
import Route.Path as Path exposing (..)
import Shared
topLevelBox : List (Attribute msg)
topLevelBox =
[ E.width fill
, E.height fill
, E.alignTop
, E.alignRight
, padding 10
]
cardMaker : List (Element msg) -> Element msg
cardMaker =
column
[ E.width fill
, D.width 5
, D.color colourTheme.backgroundDarkGrey
, D.rounded 32
, glowDeepDarkGrey
]
cardFormatter : List (Element msg) -> Element msg
cardFormatter =
column
[ E.height fill
, E.width fill
, centerX
, B.color colourTheme.backgroundDarkGrey
cardMaker : Device -> String -> List (Element msg) -> { description : String, src : String } -> String -> Element msg
cardMaker device title content image url =
el
[ width (fill |> minimum 100)
, width (fill |> maximum 875)
, padding 10
, D.roundEach
{ topLeft = 0
, topRight = 0
, bottomRight = 26
, bottomLeft = 26
}
, spacing 8
]
cardSubTitleMaker : List (Element msg) -> Element msg
cardSubTitleMaker =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.size 18
, centerX
, F.center
]
cardContentSpacing : List (Element msg) -> Element msg
cardContentSpacing =
column
[ paddingEach
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
, spacing 8
, width fill
]
imageTransitionStyle : List (Attribute msg)
imageTransitionStyle =
[ D.rounded 100
, D.width 5
, glowDeepDarkGrey
, D.color colourTheme.backgroundDarkGrey
, B.color colourTheme.backgroundDarkGrey
, mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
, glowDeepDarkOrange
]
, transitionStyleMedium
]
desktopCardMaker :
List (Attribute msg)
-> List (Attribute msg)
->
{ src : String
, description : String
}
-> String
-> Element msg
desktopCardMaker size1 size2 image urlLink =
cardImageMaker size1 size2 image urlLink
mobileCardMaker :
List (Attribute msg)
-> List (Attribute msg)
->
{ src : String
, description : String
}
-> String
-> Element msg
mobileCardMaker size1 size2 image urlLink =
cardImageMaker size1 size2 image urlLink
cardImageMaker : List (Attribute msg) -> List (Attribute msg) -> { src : String, description : String } -> String -> Element msg
cardImageMaker size1 size2 image urlLink =
column
size1
[ el
imageTransitionStyle
(if
urlLink
== Path.toString Path.Home_
|| urlLink
== Path.toString Path.Contact
|| urlLink
== Path.toString Path.Debate
|| urlLink
== Path.toString Path.Debate_Arguments
|| urlLink
== Path.toString Path.Debate_Cucklist
|| urlLink
== Path.toString Path.Debate_Gibberish
|| urlLink
== Path.toString Path.Donate
|| urlLink
== Path.toString Path.Blog
|| urlLink
== Path.toString Path.Blog_Seedoils
|| urlLink
== Path.toString Path.Blog_Huntergatherers
|| urlLink
== Path.toString Path.Blog_Sapiendiet
|| urlLink
== Path.toString Path.Blog_Nagragoodrich
|| urlLink
== Path.toString Path.Blog_Quacksmashing
|| urlLink
== Path.toString Path.Blog_Bigfatsurprise
|| urlLink
== Path.toString Path.Blog_Everettvegans
|| urlLink
== Path.toString Path.Blog_Meatapologetics
|| urlLink
== Path.toString Path.Blog_Plantbasedmeta
|| urlLink
== Path.toString Path.Blog_Shenanigans
|| urlLink
== Path.toString Path.Blog_Sweetdeception
|| urlLink
== Path.toString Path.Interviews
|| urlLink
== Path.toString Path.Nutridex
|| urlLink
== Path.toString Path.Services
|| urlLink
== Path.toString Path.Services_Analysis
|| urlLink
== Path.toString Path.Services_Coaching
|| urlLink
== Path.toString Path.Services_Elm
|| urlLink
== Path.toString Path.Services_Nix
|| urlLink
== Path.toString Path.Services_Nutrition
then
link []
{ url = urlLink
, label =
E.image
size2
image
}
else
newTabLink []
{ url = urlLink
, label =
E.image
size2
image
}
)
]
desktopImageSize : List (Attribute msg)
desktopImageSize =
[ alignRight
, alignTop
, D.rounded 100
, clip
, E.width <| px 90
, E.height <| px 90
]
mobileImageSize : List (Attribute msg)
mobileImageSize =
[ D.rounded 100
, clip
, E.width <| px 45
, E.height <| px 45
]
desktopImageBoxSize : List (Attribute msg)
desktopImageBoxSize =
[ E.width <| px 115
, E.height <| px 115
, alignTop
, alignRight
]
mobileImageBoxSize : List (Attribute msg)
mobileImageBoxSize =
[ alignTop
, centerX
, alignLeft
, paddingEach
{ top = 0
, bottom = 10
, left = 0
, right = 0
}
]
cardTitleMaker : String -> Element msg
cardTitleMaker title =
paragraph
[ F.size 20
, F.bold
, F.color colourTheme.textLightGrey
, B.color colourTheme.textDarkOrange
, paddingEach
{ top = 6
, bottom = 3
, left = 0
, right = 0
}
, alignBottom
, width fill
, centerX
, F.center
, D.roundEach
{ topLeft = 26
, topRight = 26
, bottomRight = 0
, bottomLeft = 0
}
]
[ text title ]
fieldSpacer : List (Attribute msg)
fieldSpacer =
[ spacing 8
, width fill
]
underConstructionMaker : String -> Element msg
underConstructionMaker name =
row
topLevelBox
[ cardMaker
[ cardTitleMaker name
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column []
[ row
[ spacing 10
]
[ column [ width <| px 35 ] [ html construction ]
, column
[ width fill
, F.color colourTheme.textLightOrange
, F.bold
, alignBottom
]
[ text "under construction"
]
]
]
]
]
<|
if
url
== Path.toString Path.Home_
|| url
== Path.toString Path.Contact
|| url
== Path.toString Path.Debate
|| url
== Path.toString Path.Debate_Arguments
|| url
== Path.toString Path.Debate_Cucklist
|| url
== Path.toString Path.Debate_Gibberish
|| url
== Path.toString Path.Donate
|| url
== Path.toString Path.Blog
|| url
== Path.toString Path.Blog_Seedoils
|| url
== Path.toString Path.Blog_Huntergatherers
|| url
== Path.toString Path.Blog_Sapiendiet
|| url
== Path.toString Path.Blog_Nagragoodrich
|| url
== Path.toString Path.Blog_Quacksmashing
|| url
== Path.toString Path.Blog_Bigfatsurprise
|| url
== Path.toString Path.Blog_Everettvegans
|| url
== Path.toString Path.Blog_Meatapologetics
|| url
== Path.toString Path.Blog_Plantbasedmeta
|| url
== Path.toString Path.Blog_Shenanigans
|| url
== Path.toString Path.Blog_Sweetdeception
|| url
== Path.toString Path.Interviews
|| url
== Path.toString Path.Nutridex
|| url
== Path.toString Path.Services
|| url
== Path.toString Path.Services_Analysis
|| url
== Path.toString Path.Services_Coaching
|| url
== Path.toString Path.Services_Elm
|| url
== Path.toString Path.Services_Nix
|| url
== Path.toString Path.Services_Nutrition
then
el
[ E.width fill
, D.width 5
, D.color colourTheme.backgroundDarkGrey
, D.rounded 32
, glowDeepDarkGrey
, mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
, glowDeepDarkOrange
]
, transitionStyleSlow
]
]
<|
link [ width fill ]
{ url = url
, label = cardStructure device title content image
}
else
el
[ E.width fill
, D.width 5
, D.color colourTheme.backgroundDarkGrey
, D.rounded 32
, glowDeepDarkGrey
, mouseOver
[ D.color colourTheme.textDarkOrange
, B.color colourTheme.textDarkOrange
, glowDeepDarkOrange
]
, transitionStyleSlow
]
<|
newTabLink []
{ url = url
, label = cardStructure device title content image
}
cardStructure : Device -> String -> List (Element msg) -> { description : String, src : String } -> Element msg
cardStructure device title content image =
column
[ width fill
]
[ el
[ headerFontSizeMedium
, F.bold
, F.color colourTheme.textLightGrey
, B.color colourTheme.textDarkOrange
, paddingEach
{ top = 6
, bottom = 3
, left = 20
, right = 20
}
, width fill
, F.center
, D.roundEach
{ topLeft = 26
, topRight = 26
, bottomRight = 0
, bottomLeft = 0
}
]
<|
paragraph [] [ text title ]
, el
[ E.height fill
, E.width fill
, centerX
, B.color colourTheme.backgroundDarkGrey
, padding 10
, D.roundEach
{ topLeft = 0
, topRight = 0
, bottomRight = 26
, bottomLeft = 26
}
, spacing 8
]
<|
el
[ paddingEach
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
, spacing 8
, width fill
]
<|
row
[ width fill ]
[ column
[ spacing 8
, width fill
]
content
, el
[ alignRight
, alignTop
, paddingXY 20 20
]
<|
el
[ D.rounded 100
, D.width 5
, glowDeepDarkGrey
, D.color colourTheme.backgroundDarkGrey
, B.color colourTheme.backgroundDarkGrey
]
<|
E.image
([ alignRight
, alignTop
, D.rounded 100
, clip
]
++ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
( Tablet, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
_ ->
[ E.width <| px 90
, E.height <| px 90
]
)
)
image
]
]

30
frontend/src/Config/Helpers/Headers/Header.elm
View file

@ -2,29 +2,23 @@ module Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.CardFormat exposing (..)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Pages.Contact.Types exposing (Contact)
import Element as E
exposing
( Element
( Device
, Element
, column
, row
, text
)
import Shared exposing (..)
headerMaker : Header -> Element msg
headerMaker header =
row
topLevelBox
[ cardMaker
[ cardTitleMaker header.headerTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ text header.headerBody ]
]
]
]
]
]
headerMaker : Device -> Header -> Element msg
headerMaker device header =
cardMaker device header.headerTitle (contentList header) { description = "", src = "" } ""
contentList : Header -> List (Element msg)
contentList header =
[ text header.headerBody ]

6
frontend/src/Config/Helpers/Response.elm
View file

@ -3,6 +3,7 @@ module Config.Helpers.Response exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Element as E exposing (..)
import Element.Background as B exposing (color)
import Html.Attributes exposing (style)
topLevelContainer : Element msg -> Element msg
@ -11,7 +12,6 @@ topLevelContainer =
[ width fill
, height fill
, B.color colourTheme.backgroundLightGrey
, scrollbarY
]
@ -34,7 +34,7 @@ pageListFormat =
[ spacing 30
, centerX
, padding 30
, width (fill |> minimum 100)
, width (fill |> maximum 875)
, width fill
, height fill
, scrollbarY
]

3
frontend/src/Config/Pages/Products/Records/NutriDex.elm
View file

@ -1,13 +1,14 @@
module Config.Pages.Products.Records.NutriDex exposing (..)
import Config.Pages.Products.Types exposing (..)
import Element exposing (..)
import Element.Font as F exposing (..)
import Config.Pages.Products.Types exposing (..)
productNutriDex : NutriDex
productNutriDex =
{ nutriDexTitle = "The NutriDex"
, hasImage = False
, nutriDexFeatures =
[ { feature = "The essential nutrient yields of over 700 foods are ranked and adjusted for bioavailability, nutrient absorption capacity, and metabolic conversion inefficiencies!"
, featureTitle = "Nutrient Density Scoring: "

1
frontend/src/Config/Pages/Products/Types.elm
View file

@ -5,6 +5,7 @@ import Config.Helpers.Articles.Types exposing (References)
type alias NutriDex =
{ nutriDexTitle : String
, hasImage : Bool
, nutriDexFeatures : List Features
, nutriDexReference : List References
}

4
frontend/src/Config/Style/Transitions.elm
View file

@ -38,6 +38,10 @@ specialNavbarTransition =
htmlAttribute <| style "transition" "opacity .4s"
-- This special transition is needed to avoid weird animation sequencing rather in Chrome-based browsers.
hoverFontLightOrange : Attribute msg
hoverFontLightOrange =
mouseOver [ F.color colourTheme.textLightOrange ]

77
frontend/src/Layouts/Navbar.elm
View file

@ -380,6 +380,17 @@ sidebarLogo input =
items : NavbarInput contentMsg -> Element contentMsg
items input =
let
navbarUnfucker : List (Attr () msg)
navbarUnfucker =
[ transparent True
, htmlAttribute (style "position" "absolute")
, htmlAttribute (style "z-index" "-10")
, htmlAttribute (style "opacity" "0")
, htmlAttribute (style "pointer-events" "none")
, htmlAttribute (style "visibility" "hidden")
]
in
column
[ scrollbarY
, height fill
@ -388,15 +399,37 @@ items input =
<|
List.map
(\x ->
makeItem input
{ icon = x.icon
, isCurrent = x.isCurrent
, isNewTabLink = x.isNewTabLink
, isSubscriberOnly = x.isSubscriberOnly
, name = x.name
, sharedModel = input.sharedModel
, url = x.url
}
el
([ width fill
, transitionStyleMedium
]
++ (if input.model.isNavbarExpanded then
case input.sharedModel.device.class of
_ ->
[ transparent False ]
else
case input.sharedModel.device.class of
Phone ->
navbarUnfucker
Tablet ->
navbarUnfucker
_ ->
[ transparent False ]
)
)
<|
makeItem input
{ icon = x.icon
, isCurrent = x.isCurrent
, isNewTabLink = x.isNewTabLink
, isSubscriberOnly = x.isSubscriberOnly
, name = x.name
, sharedModel = input.sharedModel
, url = x.url
}
)
[ { icon = home
, isCurrent = input.route.path == Path.Home_
@ -464,6 +497,25 @@ items input =
]
makeItemLogic : NavbarInput contentMsg -> RowInput contentMsg -> Element contentMsg
makeItemLogic input route =
if input.model.isNavbarExpanded then
case input.sharedModel.device.class of
_ ->
makeItem input route
else
case input.sharedModel.device.class of
Phone ->
el [] none
Tablet ->
el [] none
_ ->
makeItem input route
makeItem : NavbarInput contentMsg -> RowInput contentMsg -> Element contentMsg
makeItem input route =
(if route.isNewTabLink then
@ -555,15 +607,15 @@ makeItem input route =
[]
)
)
[ itemIcon route
[ itemIcon input route
, itemText input route
]
, url = route.url
}
itemIcon : RowInput contentMsg -> Element contentMsg
itemIcon route =
itemIcon : NavbarInput contentMsg -> RowInput contentMsg -> Element contentMsg
itemIcon input route =
el
([ height <| px 50
, width <| px 20
@ -645,6 +697,7 @@ footerItems input =
, isNewTabLink = True
, url = "https://x.com/upRootNutrition"
}
-- , { icon = mastodon
-- , isNewTabLink = True
-- , url = "https://social.uprootnutrition.com/@nick"

74
frontend/src/Pages/Blog.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (extractFirstWords)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
, underConstructionMaker
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Converters
exposing
( formatName
@ -155,17 +140,10 @@ blogList device =
)
<|
List.concat
[ List.map headerMaker
[ blogHeader ]
[ List.map (headerMaker device) [ blogHeader ] -- Pass the device to
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileBlogMaker
( Tablet, Portrait ) ->
List.map mobileBlogMaker
_ ->
List.map desktopBlogMaker
List.map (blogMaker device)
)
[ articleShenanigans
, articleSweetDeception
@ -189,50 +167,18 @@ blogHeader =
"Blog"
in
{ headerTitle = String.toUpper name
, headerBody = "This page features blog articles written by me, along with contributions from guest authors, covering topics primarily related to nutrition science, health science, and debate."
, headerBody = "This page features blog articles written by me, along with contributions from guest authors, covering topics primarily related to nutrition science, health science, and article."
}
desktopBlogMaker : BlogArticle -> Element msg
desktopBlogMaker article =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (articleImage article) article.articleLink
, cardMaker
[ cardTitleMaker article.articleName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ articleMaker article ]
]
]
]
]
blogMaker : Device -> BlogArticle -> Element msg
blogMaker device article =
cardMaker device article.articleName (contentList article) (articleImage article) article.articleLink
mobileBlogMaker : BlogArticle -> Element msg
mobileBlogMaker article =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker article.articleName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ width fill, spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (articleImage article) article.articleLink
, column
[ width fill ]
[ articleMaker article ]
]
]
]
]
]
]
contentList : BlogArticle -> List (Element msg)
contentList article =
[ articleMaker article ]
articleImage :

18
frontend/src/Pages/Blog/Bigfatsurprise.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Bigfatsurprise exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -122,7 +106,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleBigFatSurprise ]
]

18
frontend/src/Pages/Blog/Everettvegans.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Everettvegans exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -122,7 +106,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleEverettVegans ]
]

19
frontend/src/Pages/Blog/Huntergatherers.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog.Huntergatherers exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
@ -122,7 +107,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleHunterGatherers ]
]

18
frontend/src/Pages/Blog/Meatapologetics.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Meatapologetics exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +107,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleMeatApologetics ]
]

18
frontend/src/Pages/Blog/Nagragoodrich.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Nagragoodrich exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +107,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleNagraGoodrich ]
]

18
frontend/src/Pages/Blog/Plantbasedmeta.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Plantbasedmeta exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +107,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articlePlantBasedMeta ]
]

19
frontend/src/Pages/Blog/Quacksmashing.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog.Quacksmashing exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +108,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleQuackSmashing ]
]

19
frontend/src/Pages/Blog/Sapiendiet.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog.Sapiendiet exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +108,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleSapienDiet ]
]

19
frontend/src/Pages/Blog/Seedoils.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog.Seedoils exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +108,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleSeedOils ]
]

19
frontend/src/Pages/Blog/Shenanigans.elm
View file

@ -2,22 +2,7 @@ module Pages.Blog.Shenanigans exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +108,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleShenanigans ]
]

18
frontend/src/Pages/Blog/Sweetdeception.elm
View file

@ -2,22 +2,6 @@ module Pages.Blog.Sweetdeception exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (articleMaker)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
@ -123,7 +107,7 @@ articleList device =
List.concat
[ (case ( device.class, device.orientation ) of
_ ->
List.map articleMaker
List.map (articleMaker device)
)
[ articleSweetDeception ]
]

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

@ -1,22 +1,7 @@
module Pages.Contact exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
@ -131,42 +116,29 @@ contactContainer device =
contactList : Device -> Element msg
contactList device =
column pageList <|
column
(case ( device.class, device.orientation ) of
_ ->
pageList
)
<|
List.concat
(case ( device.class, device.orientation ) of
[ (case ( device.class, device.orientation ) of
_ ->
[ [ instructionMaker ] ]
)
contactHeader : Header
contactHeader =
let
name =
"Contact"
in
{ headerTitle = String.toUpper name
, headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
}
instructionMaker : Element msg
instructionMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper pageNames.pageContact)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ instructionBody ]
]
]
]
List.map (contactMaker device)
)
[]
]
]
contactMaker : Device -> Contact -> Element msg
contactMaker device contact =
cardMaker device contact.contactName (contentList contact) { description = "", src = "" } contact.contactLink
contentList : Contact -> List (Element msg)
contentList contact =
[ instructionBody ]
instructionBody : Element msg

70
frontend/src/Pages/Debate.elm
View file

@ -11,21 +11,7 @@ import Config.Data.Identity
exposing
( pageNames
)
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.Converters exposing (formatName)
import Config.Helpers.Format
exposing
@ -155,17 +141,11 @@ debateList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ debateHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileDebateMaker
( Tablet, Portrait ) ->
List.map mobileDebateMaker
_ ->
List.map desktopDebateMaker
List.map (debateMaker device)
)
[ debateArguments
, debateCuckList
@ -185,46 +165,14 @@ debateHeader =
}
desktopDebateMaker : Debate -> Element msg
desktopDebateMaker debate =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (debateImage debate) debate.debateLink
, cardMaker
[ cardTitleMaker debate.debateTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ descriptionMaker debate ]
]
]
]
]
debateMaker : Device -> Debate -> Element msg
debateMaker device debate =
cardMaker device debate.debateTitle (contentList debate) (debateImage debate) debate.debateLink
mobileDebateMaker : Debate -> Element msg
mobileDebateMaker debate =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker debate.debateTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ width fill, spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (debateImage debate) debate.debateLink
, column
[ width fill ]
[ descriptionMaker debate ]
]
]
]
]
]
]
contentList : Debate -> List (Element msg)
contentList debate =
[ descriptionMaker debate ]
debateImage :

93
frontend/src/Pages/Debate/Arguments.elm
View file

@ -1,21 +1,7 @@
module Pages.Debate.Arguments exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
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.Converters exposing (toTitleCase)
import Config.Helpers.Format
exposing
@ -150,17 +136,11 @@ debateList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ argumentHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map argumentMakerMobile
( Tablet, Portrait ) ->
List.map argumentMakerMobile
_ ->
List.map argumentMaker
List.map (argumentMaker device)
)
argumentList
]
@ -177,60 +157,18 @@ argumentHeader =
}
argumentMaker : Argument -> Element msg
argumentMaker argument =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (argumentImage argument) (argumentLink argument)
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ -- propositionMakerDesktop argument
-- , reductioMakerDesktop argument
-- ,
summaryMakerDesktop argument
, strengthBar argument
, tableMaker argument
, desktopFormalizationMaker argument
]
]
]
]
]
argumentMaker : Device -> Argument -> Element msg
argumentMaker device argument =
cardMaker device argument.argumentTitle (contentList argument) (argumentImage argument) argument.proofLink
argumentMakerMobile : Argument -> Element msg
argumentMakerMobile argument =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker argument.argumentTitle
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10, E.width fill ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (argumentImage argument) (argumentLink argument)
-- , column [ E.width fill ]
-- [ propositionMakerMobile argument
-- ]
]
-- , reductioMakerMobile argument
, summaryMakerMobile argument
, strengthBar argument
, tableMaker argument
, mobileFormalizationMaker argument
]
]
]
]
]
contentList : Argument -> List (Element msg)
contentList argument =
[ summaryMakerDesktop argument
, strengthBar argument
, tableMaker argument
, desktopFormalizationMaker argument
]
argumentImage : Argument -> { src : String, description : String }
@ -240,11 +178,6 @@ argumentImage argument =
}
argumentLink : Argument -> String
argumentLink argument =
argument.proofLink
infoSpacing =
E.width <| px 100

94
frontend/src/Pages/Debate/Cucklist.elm
View file

@ -1,21 +1,7 @@
module Pages.Debate.Cucklist exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
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.Converters exposing (formatSocial)
import Config.Helpers.Format
exposing
@ -143,17 +129,11 @@ cucksList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ cuckListHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileCuckMaker
( Tablet, Portrait ) ->
List.map mobileCuckMaker
_ ->
List.map desktopCuckMaker
List.map (cuckMaker device)
)
cuckList
]
@ -170,56 +150,17 @@ cuckListHeader =
}
desktopCuckMaker : Cuck -> Element msg
desktopCuckMaker cuck =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (cuckImage cuck) (cuckSocial cuck)
, cardMaker
[ cardTitleMaker (cuckTitle cuck)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ socialMaker cuck
, dodgeTitle cuck
, dodgeMaker cuck
]
]
]
]
]
cuckMaker : Device -> Cuck -> Element msg
cuckMaker device cuck =
cardMaker device cuck.cuckName (contentList cuck) (cuckImage cuck) cuck.cuckSocial
mobileCuckMaker : Cuck -> Element msg
mobileCuckMaker cuck =
column
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker (cuckTitle cuck)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ column
[ alignTop
, centerX
, alignLeft
, spacing 3
]
[ row [ spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (cuckImage cuck) (cuckSocial cuck)
, socialMaker cuck
]
, dodgeTitle cuck
, dodgeMaker cuck
]
]
]
]
]
]
contentList : Cuck -> List (Element msg)
contentList cuck =
[ socialMaker cuck
, dodgeTitle cuck
, dodgeMaker cuck
]
cuckImage :
@ -234,16 +175,6 @@ cuckImage cuck =
}
cuckTitle : Cuck -> String
cuckTitle cuck =
cuck.cuckName
cuckSocial : Cuck -> String
cuckSocial cuck =
cuck.cuckSocial
dodgeMaker : Cuck -> Element msg
dodgeMaker cuck =
column
@ -418,6 +349,7 @@ circumstance cuck dodge =
text "Chose to gesture vaguely instead of engaging"
, el [ F.color colourTheme.textLightGrey ] <|
text "."
-- , receipts cuck dodge
]

81
frontend/src/Pages/Debate/Gibberish.elm
View file

@ -1,21 +1,7 @@
module Pages.Debate.Gibberish exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
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.Converters exposing (toTitleCase)
import Config.Helpers.Format
exposing
@ -148,17 +134,11 @@ gibberishList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ gibberishHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map mobileGibberishMaker
( Tablet, Portrait ) ->
List.map mobileGibberishMaker
_ ->
List.map desktopGibberishMaker
List.map (gibberishMaker device)
)
[ epistemologyGibberish
, theologyGibberish
@ -182,47 +162,34 @@ gibberishHeader =
}
desktopGibberishMaker : Gibberish -> Element msg
desktopGibberishMaker gibberish =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (gibberishImage gibberish) gibberish.gibberishLink
, cardMaker
[ cardTitleMaker (gibberishTitle gibberish)
, cardFormatter
[ column [ spacing 20, padding 10 ]
[ descriptionMaker gibberish
, gibberishMakerBody gibberish
]
]
]
]
gibberishMaker : Device -> Gibberish -> Element msg
gibberishMaker device gibberish =
cardMaker device gibberish.gibberishTitle (contentList gibberish) (gibberishImage gibberish) gibberish.gibberishLink
mobileGibberishMaker : Gibberish -> Element msg
mobileGibberishMaker gibberish =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (gibberishTitle gibberish)
, cardFormatter
[ row [ spacing 20, padding 10 ]
[ column [] [ mobileCardMaker mobileImageBoxSize mobileImageSize (gibberishImage gibberish) gibberish.gibberishLink ]
, column [ width fill ]
[ descriptionMaker gibberish
]
]
, domainList gibberish
]
]
]
contentList : Gibberish -> List (Element msg)
contentList gibberish =
[ descriptionMaker gibberish
, gibberishMakerBody gibberish
]
gibberishMakerBody : Gibberish -> Element msg
gibberishMakerBody gibberish =
cardContentSpacing
column
[ paddingEach
{ top = 0
, bottom = 0
, left = 15
, right = 15
}
, spacing 8
, width fill
]
[ column
fieldSpacer
[ spacing 8
, width fill
]
[ paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing

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 :

91
frontend/src/Pages/Home_.elm
View file

@ -120,39 +120,56 @@ homeList device =
column pageListCenter
[ case device.class of
Desktop ->
desktopHomePage
homePage device upRootLarge
BigDesktop ->
desktopHomePage
homePage device upRootLarge
Tablet ->
case device.orientation of
Portrait ->
mobileLargeHomePage
Landscape ->
mobileLargeHomePage
_ ->
homePage device upRootMedium
Phone ->
case device.orientation of
Portrait ->
mobileSmallHomePage
Landscape ->
mobileSmallHomePage
_ ->
homePage device upRootSmall
]
homePage : Html msg -> Element msg
homePage image =
homePage : Device -> Html msg -> Element msg
homePage device image =
column
[ centerX
, centerY
, E.spacing 20
, E.width (E.fill |> minimum 100)
, E.width (E.fill |> maximum 875)
]
[ el [ centerX, E.width E.fill, E.height <| px 100 ] <|
[ el
[ centerX
, E.width <|
px <|
case device.class of
Desktop ->
675
BigDesktop ->
675
Tablet ->
case device.orientation of
_ ->
300
Phone ->
case device.orientation of
_ ->
150
]
<|
html image
, column
, el
[ paddingEach
{ top = 15
, bottom = 15
@ -165,40 +182,12 @@ homePage image =
, E.width E.fill
, E.spacing 8
]
[ paragraph
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ centerX ]
)
<|
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, centerX
]
[ text "upRootNutrition is an open source project, created by Nick Hiebert, designed to elevate the quality of nutrition science communication in online discourse. By applying more rigorous systems of reasoning, such as formal logic and semantic analysis, upRootNutrition aims to cut through the misinformation and sophistry that are endemic on social media." ]
]
]
desktopHomePageImage : Html msg
desktopHomePageImage =
upRootLarge
mobileLargeHomePageImage : Html msg
mobileLargeHomePageImage =
upRootMedium
mobileSmallHomePageImage : Html msg
mobileSmallHomePageImage =
upRootSmall
desktopHomePage =
homePage desktopHomePageImage
mobileLargeHomePage =
homePage mobileLargeHomePageImage
mobileSmallHomePage =
homePage mobileSmallHomePageImage

176
frontend/src/Pages/Interviews.elm
View file

@ -1,25 +1,12 @@
module Pages.Interviews exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
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.Converters exposing (formatSocial)
import Config.Helpers.Format
exposing
( paragraphFontSize
( headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.Headers.Header exposing (..)
@ -151,17 +138,11 @@ interviewList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ interviewHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map interviewMakerMobile
( Tablet, Portrait ) ->
List.map interviewMakerMobile
_ ->
List.map interviewMaker
List.map (interviewMaker device)
)
[ sigmaNutritionRadio
, markBellsPowerProject
@ -187,48 +168,16 @@ interviewHeader =
}
interviewMaker : Interview -> Element msg
interviewMaker interview =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (interviewImage interview) interview.interviewSocial
, cardMaker
[ cardTitleMaker interview.interviewName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ appearanceTitle interview
, appearanceMaker interview
]
]
]
]
]
interviewMaker : Device -> Interview -> Element msg
interviewMaker device interview =
cardMaker device interview.interviewName (contentList interview) (interviewImage interview) interview.interviewSocial
interviewMakerMobile : Interview -> Element msg
interviewMakerMobile interview =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker interview.interviewName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10 ]
[ mobileCardMaker mobileImageBoxSize mobileImageSize (interviewImage interview) interview.interviewSocial
, socialMaker interview
]
, appearanceTitle interview
, appearanceMaker interview
]
]
]
]
]
contentList : Interview -> List (Element msg)
contentList interview =
[ appearanceTitle interview
, appearanceMaker interview
]
interviewImage : Interview -> { src : String, description : String }
@ -243,10 +192,8 @@ socialMaker interview =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.bold
, F.size 18
, spacing 5
, headerFontSizeSmall
]
[ text "Social: "
, newTabLink
@ -270,9 +217,8 @@ appearanceTitle interview =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, headerFontSizeSmall
, F.bold
, F.size 18
]
[ text "Appearances: " ]
@ -287,39 +233,25 @@ appearanceMaker interview =
makeAppearance : Appearance -> Int -> Element msg
makeAppearance appearanceEntry index =
column
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, alignLeft
, spacing 8
el
[ alignLeft
, width fill
]
[ row
([ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
]
++ [ F.size 18
, E.width fill
, paddingEach
{ top = 0
, bottom = 0
, left = 35
, right = 0
}
]
)
[ column
<|
row
[ E.width fill
, spacing 5
]
[ el
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, F.size 18
, headerFontSizeSmall
, F.bold
, alignTop
, alignRight
, F.alignRight
]
[ text (String.fromInt index ++ ". ") ]
<|
text (String.fromInt index ++ ". ")
, column
[ spacing 8
, width fill
@ -331,7 +263,6 @@ makeAppearance appearanceEntry index =
, subjectList appearanceEntry
]
]
]
episodeMaker : Appearance -> Element msg
@ -359,6 +290,7 @@ experienceMaker appearanceEntry =
row
[ width fill
, height fill
, spacing 5
]
[ column
[ E.alignTop
@ -367,23 +299,15 @@ experienceMaker appearanceEntry =
[ paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, headerFontSizeSmall
, F.bold
, F.size 18
, E.width fill
]
[ el
[ tooltip
"This represents how pleasant it was to interact with the host(s)."
]
(el
[ paddingEach
{ top = 0
, right = 10
, bottom = 0
, left = 0
}
]
[]
<|
text "Pleasantness:"
)
@ -439,29 +363,26 @@ dateMaker appearanceEntry =
row
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, headerFontSizeSmall
, F.bold
]
[ column
[ el
[ alignTop
]
[ text "Published:"
]
, column
<|
text
"Published:"
, el
[ alignTop
, width fill
]
[ paragraph
<|
paragraph
[ F.regular
, paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 3
}
, paragraphFontSize
]
[ text appearanceEntry.appearanceYear
]
[ text appearanceEntry.appearanceYear ]
]
]
@ -470,7 +391,7 @@ subjectMaker appearanceEntry =
paragraph
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
, headerFontSizeSmall
, F.bold
]
[ column
@ -490,7 +411,7 @@ subjectList appearanceEntry =
{ top = 0
, right = 0
, bottom = 0
, left = 25
, left = 10
}
]
<|
@ -504,17 +425,10 @@ makeSubject subjects =
el
[ E.width fill
, alignLeft
, paddingEach
{ top = 0
, right = 0
, bottom = 0
, left = 8
}
]
<|
el
paragraph
[ F.regular
, paragraphFontSize
]
<|
text ("‣ " ++ subjects.subject)
[ text ("• " ++ subjects.subject) ]

16
frontend/src/Pages/NotFound_.elm
View file

@ -1,21 +1,7 @@
module Pages.NotFound_ exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
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.Headers.Header exposing (headerMaker)
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response

83
frontend/src/Pages/Nutridex.elm
View file

@ -3,22 +3,7 @@ module Pages.Nutridex exposing (Model, Msg, page)
import Config.Data.Identity exposing (pageNames)
import Config.Helpers.Articles.Article exposing (makeReference)
import Config.Helpers.Articles.Types exposing (References)
import Config.Helpers.CardFormat
exposing
( cardContentSpacing
, cardFormatter
, cardMaker
, cardSubTitleMaker
, cardTitleMaker
, desktopCardMaker
, desktopImageBoxSize
, desktopImageSize
, fieldSpacer
, mobileCardMaker
, mobileImageBoxSize
, mobileImageSize
, topLevelBox
)
import Config.Helpers.CardFormat exposing (cardMaker)
import Config.Helpers.Format
exposing
( divider
@ -151,46 +136,31 @@ nutriDexList device =
<|
List.concat
[ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map (\nutridex -> nutriDexMaker nutridex device)
( Tablet, Portrait ) ->
List.map (\nutridex -> nutriDexMaker nutridex device)
_ ->
List.map (\nutridex -> nutriDexMaker nutridex device)
List.map (\nutridex -> nutriDexMaker device nutridex)
)
[ productNutriDex ]
]
nutriDexMaker : NutriDex -> Device -> Element msg
nutriDexMaker nutridex device =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper nutridex.nutriDexTitle)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ featureList nutridex device
, nutriDexBodyMaker device
, nutriDexAdjustments device
, column [ spacing 10 ]
[ nutriDexVitamins
, nutriDexFattyAcids
, nutriDexMinerals
, nutriDexAminoAcids
]
, nutriDexReferences nutridex device
]
]
]
]
]
nutriDexMaker : Device -> NutriDex -> Element msg
nutriDexMaker device nutridex =
cardMaker device nutridex.nutriDexTitle (contentList device nutridex) { description = "", src = "" } ""
contentList : Device -> NutriDex -> List (Element msg)
contentList device nutridex =
[ featureList nutridex device
, nutriDexBodyMaker device
, nutriDexAdjustments device
, column [ spacing 10 ]
[ nutriDexVitamins
, nutriDexFattyAcids
, nutriDexMinerals
, nutriDexAminoAcids
]
, nutriDexReferences nutridex device
]
makeFeature : Features -> Element msg
@ -303,6 +273,7 @@ featureList nutridex device =
, D.rounded 30
, F.size 25
, F.bold
, transitionStyleMedium
, hoverPageButtonDeepDarkOrange
, paddingEach
{ top = 10
@ -456,16 +427,12 @@ nutriDexBodyMaker device =
referenceFormat : List (Attr () msg)
referenceFormat =
[ F.color colourTheme.textLightGrey
, paragraphSpacing
, paragraphFontSize
[ paragraphFontSize
, F.color colourTheme.textLightOrange
, alignTop
, hoverFontDarkOrange
, transitionStyleMedium
]
++ [ F.color colourTheme.textLightOrange
, F.size 12
, alignTop
, hoverFontDarkOrange
, transitionStyleFast
]
nutriDexAdjustments : Device -> Element msg

78
frontend/src/Pages/Services.elm
View file

@ -2,24 +2,11 @@ module Pages.Services exposing (Model, Msg, page)
import Browser
import Config.Data.Identity exposing (pageNames)
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
( headerFontSizeMedium
, headerFontSizeSmall
, paragraphFontSize
, paragraphSpacing
)
@ -38,6 +25,8 @@ import Config.Pages.Services.Records.NixBuilds exposing (..)
import Config.Pages.Services.Records.NutritionScience exposing (..)
import Config.Pages.Services.Types exposing (..)
import Config.Style.Colour as T exposing (..)
import Config.Style.Glow exposing (glowDeepDarkGrey, glowDeepDarkOrange)
import Config.Style.Transitions exposing (transitionStyleMedium)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
@ -135,17 +124,11 @@ servicesList device =
)
<|
List.concat
[ List.map headerMaker
[ List.map (headerMaker device)
[ servicesHeader ]
, (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
List.map serviceMakerMobile
( Tablet, Portrait ) ->
List.map serviceMakerMobile
_ ->
List.map serviceMaker
List.map (serviceMaker device)
)
[ servicesDebateAnalysis
, servicesDebateCoaching
@ -167,46 +150,17 @@ servicesHeader =
}
serviceMaker : Service msg -> Element msg
serviceMaker service =
row
topLevelBox
[ desktopCardMaker desktopImageBoxSize desktopImageSize (serviceImage service) service.serviceLink
, cardMaker
[ cardTitleMaker service.serviceName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ rateMaker service
, descriptionMaker service
, offeringMaker service
]
]
]
]
]
serviceMaker : Device -> Service msg -> Element msg
serviceMaker device service =
cardMaker device service.serviceName (contentList service) (serviceImage service) service.serviceLink
serviceMakerMobile : Service msg -> Element msg
serviceMakerMobile service =
row
topLevelBox
[ column [] []
, cardMaker
[ cardTitleMaker service.serviceName
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ row [ spacing 10 ] [ mobileCardMaker mobileImageBoxSize mobileImageSize (serviceImage service) service.serviceLink, rateMaker service ]
, descriptionMaker service
, offeringMaker service
]
]
]
]
]
contentList : Service msg -> List (Element msg)
contentList service =
[ rateMaker service
, descriptionMaker service
, offeringMaker service
]
serviceImage : Service msg -> { src : String, description : String }

45
frontend/src/Pages/Services/Analysis.elm
View file

@ -109,34 +109,25 @@ analysisList device =
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ serviceMaker ] ]
[ [ headerMaker device ] ]
)
serviceMaker : Element msg
serviceMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper servicesDebateAnalysis.serviceName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column
bodyFormat
[ chunkMaker servicesDebateAnalysis.serviceArticle.articleParagraph.paragraph1
, chunkMaker
servicesDebateAnalysis.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesDebateAnalysis.serviceArticle.articleTitles.title1
, numberMaker servicesDebateAnalysis.serviceArticle.articleListEntries.list1
, titleMaker servicesDebateAnalysis.serviceArticle.articleTitles.title2
, bulletPointMaker servicesDebateAnalysis.serviceArticle.articleListEntries.list2
]
]
]
]
]
]
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
contentList : List (Element msg)
contentList =
[ column
bodyFormat
[ chunkMaker servicesDebateAnalysis.serviceArticle.articleParagraph.paragraph1
, chunkMaker
servicesDebateAnalysis.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesDebateAnalysis.serviceArticle.articleTitles.title1
, numberMaker servicesDebateAnalysis.serviceArticle.articleListEntries.list1
, titleMaker servicesDebateAnalysis.serviceArticle.articleTitles.title2
, bulletPointMaker servicesDebateAnalysis.serviceArticle.articleListEntries.list2
]
]

55
frontend/src/Pages/Services/Coaching.elm
View file

@ -114,40 +114,31 @@ coachingList device =
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ serviceMaker ] ]
[ [ headerMaker device ] ]
)
serviceMaker : Element msg
serviceMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper servicesDebateCoaching.serviceName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column
bodyFormat
[ chunkMaker servicesDebateCoaching.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesDebateCoaching.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title1
, numberMaker servicesDebateCoaching.serviceArticle.articleListEntries.list1
, titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title2
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
-- modules
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title3 servicesDebateCoaching.serviceArticle.articleListEntries.list3
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title4 servicesDebateCoaching.serviceArticle.articleListEntries.list4
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title5 servicesDebateCoaching.serviceArticle.articleListEntries.list5
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title6 servicesDebateCoaching.serviceArticle.articleListEntries.list6
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title7 servicesDebateCoaching.serviceArticle.articleListEntries.list7
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title8 servicesDebateCoaching.serviceArticle.articleListEntries.list8
]
]
]
]
]
]
contentList : List (Element msg)
contentList =
[ column
bodyFormat
[ chunkMaker servicesDebateCoaching.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesDebateCoaching.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title1
, numberMaker servicesDebateCoaching.serviceArticle.articleListEntries.list1
, titleMaker servicesDebateCoaching.serviceArticle.articleTitles.title2
-- modules
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title3 servicesDebateCoaching.serviceArticle.articleListEntries.list3
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title4 servicesDebateCoaching.serviceArticle.articleListEntries.list4
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title5 servicesDebateCoaching.serviceArticle.articleListEntries.list5
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title6 servicesDebateCoaching.serviceArticle.articleListEntries.list6
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title7 servicesDebateCoaching.serviceArticle.articleListEntries.list7
, highlightedBlockMaker servicesDebateCoaching.serviceArticle.articleTitles.title8 servicesDebateCoaching.serviceArticle.articleListEntries.list8
]
]

49
frontend/src/Pages/Services/Elm.elm
View file

@ -114,39 +114,30 @@ elmBuildsList device =
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ serviceMaker ] ]
[ [ headerMaker device ] ]
)
serviceMaker : Element msg
serviceMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper servicesElmBuilds.serviceName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column
bodyFormat
[ chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph2
, chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph3
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title1
, numberMaker servicesElmBuilds.serviceArticle.articleListEntries.list1
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title2
, bulletPointMaker servicesElmBuilds.serviceArticle.articleListEntries.list2
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title3
, elmCodeRenderer
]
]
]
]
]
]
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
contentList : List (Element msg)
contentList =
[ column
bodyFormat
[ chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph2
, chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph3
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title1
, numberMaker servicesElmBuilds.serviceArticle.articleListEntries.list1
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title2
, bulletPointMaker servicesElmBuilds.serviceArticle.articleListEntries.list2
, titleMaker servicesElmBuilds.serviceArticle.articleTitles.title3
, elmCodeRenderer
]
]
elmCodeRenderer : Element msg

49
frontend/src/Pages/Services/Nix.elm
View file

@ -114,39 +114,30 @@ elmBuildsList device =
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ serviceMaker ] ]
[ [ headerMaker device ] ]
)
serviceMaker : Element msg
serviceMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper servicesNixBuilds.serviceName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column
bodyFormat
[ chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph2
, chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph3
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title1
, numberMaker servicesNixBuilds.serviceArticle.articleListEntries.list1
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title2
, bulletPointMaker servicesNixBuilds.serviceArticle.articleListEntries.list2
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title3
, nixCodeRenderer
]
]
]
]
]
]
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
contentList : List (Element msg)
contentList =
[ column
bodyFormat
[ chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph2
, chunkMaker servicesNixBuilds.serviceArticle.articleParagraph.paragraph3
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title1
, numberMaker servicesNixBuilds.serviceArticle.articleListEntries.list1
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title2
, bulletPointMaker servicesNixBuilds.serviceArticle.articleListEntries.list2
, titleMaker servicesNixBuilds.serviceArticle.articleTitles.title3
, nixCodeRenderer
]
]
renderCodeLine : SyntaxColors -> List (Element msg) -> Element msg

43
frontend/src/Pages/Services/Nutrition.elm
View file

@ -114,33 +114,24 @@ nutritionList device =
List.concat
(case ( device.class, device.orientation ) of
_ ->
[ [ serviceMaker ] ]
[ [ headerMaker device ] ]
)
serviceMaker : Element msg
serviceMaker =
row
topLevelBox
[ cardMaker
[ cardTitleMaker (String.toUpper servicesNutritionScience.serviceName)
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ cardSubTitleMaker
[ column
bodyFormat
[ chunkMaker servicesNutritionScience.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesNutritionScience.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesNutritionScience.serviceArticle.articleTitles.title1
, numberMaker servicesNutritionScience.serviceArticle.articleListEntries.list1
, titleMaker servicesNutritionScience.serviceArticle.articleTitles.title2
, bulletPointMaker servicesNutritionScience.serviceArticle.articleListEntries.list2
]
]
]
]
]
]
headerMaker : Device -> Element msg
headerMaker device =
cardMaker device "" contentList { description = "", src = "" } ""
contentList : List (Element msg)
contentList =
[ column
bodyFormat
[ chunkMaker servicesNutritionScience.serviceArticle.articleParagraph.paragraph1
, chunkMaker servicesNutritionScience.serviceArticle.articleParagraph.paragraph2
, titleMaker servicesNutritionScience.serviceArticle.articleTitles.title1
, numberMaker servicesNutritionScience.serviceArticle.articleListEntries.list1
, titleMaker servicesNutritionScience.serviceArticle.articleTitles.title2
, bulletPointMaker servicesNutritionScience.serviceArticle.articleListEntries.list2
]
]