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: I think I may be done v1

Browse source
This commit is contained in:
Nick 2024-12-28 22:30:45 -06:00
parent c63ab0bfe7
commit 28293e56e2
11 changed files with 167 additions and 125 deletions
Download patch file Download diff file Expand all files Collapse all files

10
frontend/src/Config/Helpers/Cards/Outer/Helpers.elm
View file

@ -176,7 +176,15 @@ cardMaker device cardable contents =
, row , row
[ width fill [ width fill
, spacing 10 , spacing 10
, F.center , case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
F.alignLeft
( Tablet, Portrait ) ->
F.alignLeft
_ ->
F.center
, paddingXY 0 , paddingXY 0
(case ( device.class, device.orientation ) of (case ( device.class, device.orientation ) of
( Phone, Portrait ) -> ( Phone, Portrait ) ->

13
frontend/src/Config/Pages/Debate/Arguments/Records/ColonizingNature.elm
View file

@ -1,7 +1,7 @@
module Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (..) module Config.Pages.Debate.Arguments.Records.ColonizingNature exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Helpers.Converters exposing (toTitleCase) import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentColonizingNature : Argument argumentColonizingNature : Argument
@ -9,14 +9,11 @@ argumentColonizingNature =
{ argumentTitle = toTitleCase "Argument for Colonizing Nature" { argumentTitle = toTitleCase "Argument for Colonizing Nature"
, propositionTitle = "We are justified in displacing nature into non-existence" , propositionTitle = "We are justified in displacing nature into non-existence"
, propositionReductio = "" , propositionReductio = ""
, propositionSummary = "Summary" , propositionSummary = "All else equal, is a world where sentient beings are getting torn to shreds and eaten alive or starving to death if they don't succumb to this fate better than a world where this does not happen? I'd argue not. As such, I advocate for non-violently displacing nature into non-existence."
, proofLink = "https://www.umsu.de/trees/#(P~1~3Q~1~3R~1~3S~5W),(P),(~3Q),(~3R),(~3S)%7C=(W)" , proofLink = "https://www.umsu.de/trees/#(P~1~3Q~1~3R~1~3S~5W),(P),(~3Q),(~3R),(~3S)%7C=(W)"
, argumentCertainty = 10 , argumentCertainty = 10
, argumentImage = "colonizingnature" , argumentImage = "colonizingnature"
, argumentHashtags = [] , argumentHashtags = []
, isNewTabLink = False , isNewTabLink = False
, definitionTable = , definitionTable =
[ { definiendum = "P" [ { definiendum = "P"
@ -32,12 +29,12 @@ argumentColonizingNature =
, definiens = "the natural world is currently instrumentally vital to facilitating human flourishing" , definiens = "the natural world is currently instrumentally vital to facilitating human flourishing"
} }
, { definiendum = "W" , { definiendum = "W"
, definiens = "we are justified in displacing nature into non-existence" , definiens = "we are justified in non-violently displacing nature into non-existence"
} }
] ]
, argumentFormalization = , argumentFormalization =
[ { premises = [ { premises =
[ { premise = "If the natural world contains intolerable rights violations and we do not know that nature is net positive or net negative for utility and there is not any known practical means by which to end the rights violations beyond the use of force and the natural world is not currently instrumentally vital to facilitating human flourishing, then we are justified in displacing nature into non-existence." [ { premise = "If the natural world contains intolerable rights violations and we do not know that nature is net positive or net negative for utility and there is not any known practical means by which to end the rights violations beyond the use of force and the natural world is not currently instrumentally vital to facilitating human flourishing, then we are justified in non-violently displacing nature into non-existence."
, notation = "(P∧¬Q∧¬R∧¬S)→W" , notation = "(P∧¬Q∧¬R∧¬S)→W"
} }
, { premise = "Nature entails intolerable rights violations." , { premise = "Nature entails intolerable rights violations."
@ -53,7 +50,7 @@ argumentColonizingNature =
, notation = "¬S" , notation = "¬S"
} }
] ]
, conclusion = "Therefore, we are justified in displacing nature into non-existence." , conclusion = "Therefore, we are justified in non-violently displacing nature into non-existence."
, conclusionNotation = "W" , conclusionNotation = "W"
} }
] ]

18
frontend/src/Config/Pages/Debate/Arguments/Records/OddOrderPredators.elm
View file

@ -1,31 +1,29 @@
module Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (..) module Config.Pages.Debate.Arguments.Records.OddOrderPredators exposing (..)
import Config.Pages.Debate.Arguments.Types exposing (..)
import Config.Helpers.Converters exposing (toTitleCase) import Config.Helpers.Converters exposing (toTitleCase)
import Config.Pages.Debate.Arguments.Types exposing (..)
argumentOddOrderPredators : Argument argumentOddOrderPredators : Argument
argumentOddOrderPredators = argumentOddOrderPredators =
{ argumentTitle = toTitleCase "Argument for Culling Odd Order Predators" { argumentTitle = toTitleCase "Argument for Culling Odd Order Predators"
, propositionTitle = "It is permissible to prevent predation with lethal force to the same degree we would tolerate for humans." , propositionTitle = "It is permissible to prevent predation with lethal force to the same degree we would tolerate for humans."
, propositionReductio = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. I think humans have the right not to be exposed to circumstances where they're hunted for food, and I think it is permissible to use lethal force to save the lives of the hunted, all else equal. By extension I think non-human animals have this right too." , propositionReductio = ""
, propositionSummary = "Summary" , propositionSummary = "I view animal rights as the logical extension of trait-adjusted human rights to non-human animals. I think humans have the right not to be exposed to circumstances where they're hunted for food, and I think it is permissible to use lethal force to save the lives of the hunted, all else equal. By extension I think non-human animals have this right too."
, proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5R)%7C=(R)" , proofLink = "https://www.umsu.de/trees/#(~6x(Px~5~3Qx)),(Pa),(~3Qa~5R)%7C=(R)"
, argumentCertainty = 10 , argumentCertainty = 10
, argumentImage = "oddorderpredators" , argumentImage = "oddorderpredators"
, argumentHashtags = [] , argumentHashtags = []
, isNewTabLink = False , isNewTabLink = False
, definitionTable = , definitionTable =
[ { definiendum = "P(x)" [ { definiendum = "P(x)"
, definiens = "(x) has negative rights" , definiens = "(x) has negative rights"
} }
, { definiendum = "Q(x)" , { definiendum = "Q(x)"
, definiens = "we should defend (x) from rights violations to any lesser degree than we would tolerate for humans" , definiens = "we should defend (x) from rights violations to any lesser degree than we would tolerate for trait-adjusted humans"
} }
, { definiendum = "R(x)" , { definiendum = "R(x)"
, definiens = "it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans" , definiens = "it is permissible to prevent predation with lethal force to the same degree we would tolerate for trait-adjusted humans"
} }
, { definiendum = "x" , { definiendum = "x"
, definiens = "a being" , definiens = "a being"
@ -36,17 +34,17 @@ argumentOddOrderPredators =
] ]
, argumentFormalization = , argumentFormalization =
[ { premises = [ { premises =
[ { premise = "For all things, if something has negative rights, then we should not defend it from rights violations to any lesser degree than we would tolerate for humans." [ { premise = "For all things, if something has negative rights, then we should not defend it from rights violations to any lesser degree than we would tolerate for trait-adjusted humans."
, notation = "∀x(Px→¬Qx)" , notation = "∀x(Px→¬Qx)"
} }
, { premise = "Animals have negative rights." , { premise = "Animals have negative rights."
, notation = "Pa" , notation = "Pa"
} }
, { premise = "If we should not defend animals from rights violations to any lesser degree than we would tolerate for humans, then it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans." , { premise = "If we should not defend animals from rights violations to any lesser degree than we would tolerate for humans, then it is permissible to prevent predation with lethal force to the same degree we would tolerate for trait-adjusted humans."
, notation = "¬Qa→R" , notation = "¬Qa→R"
} }
] ]
, conclusion = "Therefore, it is permissible to prevent predation with lethal force to the same degree we would tolerate for humans." , conclusion = "Therefore, it is permissible to prevent predation with lethal force to the same degree we would tolerate for trait-adjusted humans."
, conclusionNotation = "R" , conclusionNotation = "R"
} }
] ]

2
frontend/src/Config/Pages/Services/Records/ElmBuilds.elm
View file

@ -15,7 +15,7 @@ servicesElmBuilds =
let let
name : String name : String
name = name =
"Front End Development" "Custom Elm Sites"
in in
{ serviceImage = formatName name { serviceImage = formatName name
, serviceLink = Path.toString Path.Services_Elm , serviceLink = Path.toString Path.Services_Elm

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

@ -137,35 +137,35 @@ view : Shared.Model -> Model -> View Msg
view shared model = view shared model =
{ title = "debate (" ++ pageNames.pageArguments ++ ")" { title = "debate (" ++ pageNames.pageArguments ++ ")"
, attributes = [] , attributes = []
, element = debateContainer shared.device , element = debateContainer shared
} }
debateContainer : Device -> Element msg debateContainer : Shared.Model -> Element msg
debateContainer device = debateContainer shared =
topLevelContainer (debateList device) topLevelContainer (debateList shared)
debateList : Device -> Element msg debateList : Shared.Model -> Element msg
debateList device = debateList shared =
column column
(case ( device.class, device.orientation ) of (case ( shared.device.class, shared.device.orientation ) of
_ -> _ ->
pageList device pageList shared.device
) )
<| <|
List.concat List.concat
[ [ headerMaker (R.Arguments argumentHeader) ] [ [ headerMaker (R.Arguments argumentHeader) ]
, List.map , List.map
(\argument -> (\argument ->
cardMaker device (C.Argument argument) (contentList device argument) cardMaker shared.device (C.Argument argument) (contentList shared argument)
) )
argumentList argumentList
] ]
contentList : Device -> Argument -> List (Element msg) contentList : Shared.Model -> Argument -> List (Element msg)
contentList device argument = contentList shared argument =
let let
image : String -> Element msg image : String -> Element msg
image size = image size =
@ -180,13 +180,13 @@ contentList device argument =
} }
] ]
<| <|
imageSquareMaker device (imagePathMaker M.Argument argument.argumentImage) True size imageSquareMaker shared.device (imagePathMaker M.Argument argument.argumentImage) True size
in in
[ row [ row
[ width fill [ width fill
, paddingEach , paddingEach
{ top = { top =
case ( device.class, device.orientation ) of case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) -> ( Phone, Portrait ) ->
8 8
@ -202,7 +202,7 @@ contentList device argument =
] ]
[ detailFormat column [ detailFormat column
[ detailFormat paragraph [ detailFormat paragraph
[ case ( device.class, device.orientation ) of [ case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) -> ( Phone, Portrait ) ->
none none
@ -214,14 +214,14 @@ contentList device argument =
, el ([ height fill ] ++ bodyFormat TextLightGrey) <| text argument.propositionSummary , el ([ height fill ] ++ bodyFormat TextLightGrey) <| text argument.propositionSummary
] ]
, detailFormat row , detailFormat row
[ strengthMaker [ strengthMaker shared
, barMaker getConfidenceTooltip argument.argumentCertainty , barMaker getConfidenceTooltip argument.argumentCertainty
] ]
] ]
] ]
, tableMaker device argument , tableMaker shared.device argument
, formalizationMaker device argument , formalizationMaker shared.device argument
, el [alignRight] <| , el [ alignRight ] <|
row [ width fill, spacing 20 ] row [ width fill, spacing 20 ]
[ argumentButton (Path.toString Path.Contact_Criticism) "Reject Premise" [ argumentButton (Path.toString Path.Contact_Criticism) "Reject Premise"
, argumentButton argument.proofLink "Proof Tree" , argumentButton argument.proofLink "Proof Tree"
@ -229,12 +229,17 @@ contentList device argument =
] ]
strengthMaker : Element msg strengthMaker : Shared.Model -> Element msg
strengthMaker = strengthMaker shared =
el el
(if not shared.isNavbarExpanded then
[ tooltip [ tooltip
"This represents my confidence in the soundness of the argument." "This represents my confidence in the soundness of the argument."
] ]
else
[]
)
<| <|
detailTitleMaker TextLightOrange "Confidence:" detailTitleMaker TextLightOrange "Confidence:"

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

@ -122,28 +122,28 @@ view : Shared.Model -> Model -> View Msg
view shared model = view shared model =
{ title = "debate (" ++ pageNames.pageGibberish ++ ")" { title = "debate (" ++ pageNames.pageGibberish ++ ")"
, attributes = [] , attributes = []
, element = gibberishContainer shared.device , element = gibberishContainer shared
} }
gibberishContainer : Device -> Element msg gibberishContainer : Shared.Model -> Element msg
gibberishContainer device = gibberishContainer shared =
topLevelContainer (gibberishList device) topLevelContainer (gibberishList shared)
gibberishList : Device -> Element msg gibberishList : Shared.Model -> Element msg
gibberishList device = gibberishList shared =
column column
(case ( device.class, device.orientation ) of (case ( shared.device.class, shared.device.orientation ) of
_ -> _ ->
pageList device pageList shared.device
) )
<| <|
List.concat List.concat
[ [ headerMaker (R.Gibberish gibberishHeader) ] [ [ headerMaker (R.Gibberish gibberishHeader) ]
, List.map , List.map
(\gibberish -> (\gibberish ->
cardMaker device (C.Gibberish gibberish) (contentList device gibberish) cardMaker shared.device (C.Gibberish gibberish) (contentList shared gibberish)
) )
[ epistemologyGibberish [ epistemologyGibberish
, theologyGibberish , theologyGibberish
@ -156,8 +156,8 @@ gibberishList device =
] ]
contentList : Device -> Gibberish -> List (Element msg) contentList : Shared.Model -> Gibberish -> List (Element msg)
contentList device gibberish = contentList shared gibberish =
let let
image : String -> Element msg image : String -> Element msg
image size = image size =
@ -171,7 +171,7 @@ contentList device gibberish =
} }
] ]
<| <|
imageSquareMaker device (imagePathMaker M.Gibberish gibberish.gibberishImage) True size imageSquareMaker shared.device (imagePathMaker M.Gibberish gibberish.gibberishImage) True size
in in
[ paragraph [ paragraph
[ F.color colourTheme.textLightGrey [ F.color colourTheme.textLightGrey
@ -179,7 +179,7 @@ contentList device gibberish =
, paragraphFontSize , paragraphFontSize
, width fill , width fill
] ]
[ case ( device.class, device.orientation ) of [ case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) -> ( Phone, Portrait ) ->
none none
@ -190,12 +190,12 @@ contentList device gibberish =
image "Big" image "Big"
, text gibberish.gibberishDescription , text gibberish.gibberishDescription
] ]
, gibberishMakerBody gibberish , gibberishMakerBody shared gibberish
] ]
gibberishMakerBody : Gibberish -> Element msg gibberishMakerBody : Shared.Model -> Gibberish -> Element msg
gibberishMakerBody gibberish = gibberishMakerBody shared gibberish =
column column
[ paddingEach [ paddingEach
{ top = 0 { top = 0
@ -216,7 +216,7 @@ gibberishMakerBody gibberish =
, headerFontSizeSmall , headerFontSizeSmall
, F.center , F.center
] ]
[ domainList gibberish [ domainList shared gibberish
] ]
] ]
] ]
@ -229,18 +229,18 @@ gibberishImage gibberish =
} }
gibberishTitle : Gibberish -> String gibberishTitle : Shared.Model -> Gibberish -> String
gibberishTitle gibberish = gibberishTitle shared gibberish =
gibberish.gibberishTitle gibberish.gibberishTitle
domainList : Gibberish -> Element msg domainList : Shared.Model -> Gibberish -> Element msg
domainList gibberish = domainList shared gibberish =
column column
[ spacing 8 [ spacing 8
, E.width fill , E.width fill
] ]
(List.indexedMap (makeTerms intelligibilityBar) gibberish.gibberishTerms) (List.indexedMap (makeTerms (intelligibilityBar shared)) gibberish.gibberishTerms)
descriptionMaker : Gibberish -> Element msg descriptionMaker : Gibberish -> Element msg
@ -328,8 +328,8 @@ makeTerms bar index terms =
] ]
intelligibilityBar : Terms -> Element msg intelligibilityBar : Shared.Model -> Terms -> Element msg
intelligibilityBar terms = intelligibilityBar shared terms =
row row
[ E.width fill [ E.width fill
, height fill , height fill
@ -347,9 +347,15 @@ intelligibilityBar terms =
, E.width fill , E.width fill
] ]
[ el [ el
(if not shared.isNavbarExpanded then
[ tooltip [ tooltip
tooltipMessage tooltipMessage
] ]
else
[]
)
<|
(el (el
[ paddingEach [ paddingEach
{ top = 0 { top = 0

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

@ -118,28 +118,28 @@ view : Shared.Model -> Model -> View Msg
view shared model = view shared model =
{ title = pageNames.pageDonate { title = pageNames.pageDonate
, attributes = [] , attributes = []
, element = donateContainer shared.device , element = donateContainer shared
} }
donateContainer : Device -> Element msg donateContainer : Shared.Model -> Element msg
donateContainer device = donateContainer shared =
topLevelContainer (donateList device) topLevelContainer (donateList shared)
donateList : Device -> Element msg donateList : Shared.Model -> Element msg
donateList device = donateList shared =
column column
(case ( device.class, device.orientation ) of (case ( shared.device.class, shared.device.orientation ) of
_ -> _ ->
pageList device pageList shared.device
) )
<| <|
List.concat List.concat
[ [ headerMaker (R.Donate donateHeader) ] [ [ headerMaker (R.Donate donateHeader) ]
, List.map , List.map
(\donate -> (\donate ->
cardMaker device (C.Donate donate) (contentList device donate) cardMaker shared.device (C.Donate donate) (contentList shared donate)
) )
[ donateLiberaPay [ donateLiberaPay
, donateStripe , donateStripe
@ -152,8 +152,8 @@ donateList device =
] ]
contentList : Device -> Donate -> List (Element msg) contentList : Shared.Model -> Donate -> List (Element msg)
contentList device donate = contentList shared donate =
let let
image : String -> Element msg image : String -> Element msg
image size = image size =
@ -168,14 +168,14 @@ contentList device donate =
} }
] ]
<| <|
imageSquareMaker device (imagePathMaker M.Donate donate.donateImage) True size imageSquareMaker shared.device (imagePathMaker M.Donate donate.donateImage) True size
in in
[ detailFormat row [ detailFormat row
[ image "Fatty" [ image "Fatty"
, detailFormat column , detailFormat column
[ feeMaker donate [ feeMaker donate
, preferenceMaker donate , preferenceMaker shared donate
, tableMaker donate device , tableMaker donate shared.device
] ]
] ]
, proConMaker donate , proConMaker donate
@ -210,15 +210,22 @@ makeCon con =
listItem TextLightGrey con.con listItem TextLightGrey con.con
preferenceMaker : Donate -> Element msg preferenceMaker : Shared.Model -> Donate -> Element msg
preferenceMaker donate = preferenceMaker shared donate =
detailFormat row detailFormat row
[ el [ el
(if not shared.isNavbarExpanded then
[ tooltip [ tooltip
"This represents how strongly I prefer a given platform relative to other platforms." "This represents how strongly I prefer a given platform relative to other platforms."
] ]
else
[]
)
<| <|
detailTitleMaker TextLightOrange "Preference:" detailTitleMaker
TextLightOrange
"Preference:"
, barPadding , barPadding
[ barMaker getPreferenceTooltip donate.donatePreference ] [ barMaker getPreferenceTooltip donate.donatePreference ]
] ]

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

@ -126,28 +126,28 @@ view : Shared.Model -> Model -> View Msg
view shared model = view shared model =
{ title = pageNames.pageInterviews { title = pageNames.pageInterviews
, attributes = [] , attributes = []
, element = interviewContainer shared.device , element = interviewContainer shared
} }
interviewContainer : Device -> Element msg interviewContainer : Shared.Model -> Element msg
interviewContainer device = interviewContainer shared =
topLevelContainer (interviewList device) topLevelContainer (interviewList shared)
interviewList : Device -> Element msg interviewList : Shared.Model -> Element msg
interviewList device = interviewList shared =
column column
(case ( device.class, device.orientation ) of (case shared.device.class of
_ -> _ ->
pageList device pageList shared.device
) )
<| <|
List.concat List.concat
[ [ headerMaker (R.Interviews interviewHeader) ] [ [ headerMaker (R.Interviews interviewHeader) ]
, List.map , List.map
(\interview -> (\interview ->
cardMaker device (C.Interview interview) (contentList device interview) cardMaker shared.device (C.Interview interview) (contentList shared interview)
) )
[ sigmaNutritionRadio [ sigmaNutritionRadio
, markBellsPowerProject , markBellsPowerProject
@ -162,8 +162,8 @@ interviewList device =
] ]
contentList : Device -> Interview -> List (Element msg) contentList : Shared.Model -> Interview -> List (Element msg)
contentList device interview = contentList shared interview =
let let
image : String -> Element msg image : String -> Element msg
image size = image size =
@ -178,11 +178,11 @@ contentList device interview =
} }
] ]
<| <|
imageSquareMaker device (imagePathMaker M.Interviews interview.interviewImage) True size imageSquareMaker shared.device (imagePathMaker M.Interviews interview.interviewImage) True size
imageMaker : Element msg imageMaker : Element msg
imageMaker = imageMaker =
case ( device.class, device.orientation ) of case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) -> ( Phone, Portrait ) ->
none none
@ -206,25 +206,25 @@ contentList device interview =
, detailFormat column , detailFormat column
[ socialMaker interview.interviewSocial interview.interviewSocial [ socialMaker interview.interviewSocial interview.interviewSocial
, detailTitleMaker TextLightGrey "Appearances:" , detailTitleMaker TextLightGrey "Appearances:"
, appearanceMaker interview , appearanceMaker shared interview
] ]
] ]
] ]
appearanceMaker : Interview -> Element msg appearanceMaker : Shared.Model -> Interview -> Element msg
appearanceMaker interview = appearanceMaker shared interview =
detailFormat paragraph detailFormat paragraph
[ listMaker2 makeAppearance interview.interviewAppearances ] [ listMaker2 (makeAppearance shared) interview.interviewAppearances ]
makeAppearance : Appearance -> Int -> Element msg makeAppearance : Shared.Model -> Appearance -> Int -> Element msg
makeAppearance appearanceEntry index = makeAppearance shared appearanceEntry index =
detailFormat row detailFormat row
[ listCounter index [ listCounter index
, detailFormat column , detailFormat column
[ episodeMaker appearanceEntry [ episodeMaker appearanceEntry
, experienceMaker appearanceEntry , experienceMaker shared appearanceEntry
, dateMaker appearanceEntry , dateMaker appearanceEntry
, subjectMaker appearanceEntry , subjectMaker appearanceEntry
] ]
@ -240,13 +240,18 @@ episodeMaker appearanceEntry =
} }
experienceMaker : Appearance -> Element msg experienceMaker : Shared.Model -> Appearance -> Element msg
experienceMaker appearanceEntry = experienceMaker shared appearanceEntry =
detailFormat row detailFormat row
[ el [ el
(if not shared.isNavbarExpanded then
[ tooltip [ tooltip
"This represents my confidence in the soundness of the argument." "This represents my confidence in the soundness of the argument."
] ]
else
[]
)
<| <|
detailTitleMaker TextLightGrey "Pleasantness:" detailTitleMaker TextLightGrey "Pleasantness:"
, barPadding , barPadding

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

@ -128,7 +128,7 @@ elmBuildsList device =
cardMaker device cardMaker device
(C.BlogArticle service) (C.BlogArticle service)
(contentList service (contentList service
[ elmCodeRenderer ] [ elmCodeRenderer device ]
) )
) )
[ elmBuilds ] [ elmBuilds ]
@ -183,8 +183,8 @@ The source code for this website is viewable on [Gitlab](https://gitlab.com/upRo
} }
elmCodeRenderer : Element msg elmCodeRenderer : Device -> Element msg
elmCodeRenderer = elmCodeRenderer device =
el el
[ paddingEach [ paddingEach
{ top = 15 { top = 15
@ -192,7 +192,15 @@ elmCodeRenderer =
, left = 20 , left = 20
, right = 20 , right = 20
} }
, B.color colourTheme.backgroundLightGrey , case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
( Tablet, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
_ ->
B.color colourTheme.backgroundLightGrey
, D.rounded 10 , D.rounded 10
, width fill , width fill
, spacing 8 , spacing 8

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

@ -129,7 +129,7 @@ elmBuildsList device =
cardMaker device cardMaker device
(C.BlogArticle service) (C.BlogArticle service)
(contentList service (contentList service
[ nixCodeRenderer ] [ nixCodeRenderer device ]
) )
) )
[ nixBuilds ] [ nixBuilds ]
@ -195,8 +195,8 @@ renderCodeLine colors elements =
elements elements
nixCodeRenderer : Element msg nixCodeRenderer : Device -> Element msg
nixCodeRenderer = nixCodeRenderer device =
el el
[ paddingEach [ paddingEach
{ top = 15 { top = 15
@ -204,7 +204,15 @@ nixCodeRenderer =
, left = 20 , left = 20
, right = 20 , right = 20
} }
, B.color colourTheme.backgroundLightGrey , case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
( Tablet, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
_ ->
B.color colourTheme.backgroundLightGrey
, D.rounded 10 , D.rounded 10
, width fill , width fill
, spacing 8 , spacing 8

0
frontend/static/services/frontenddevelopment.png → frontend/static/services/customelmsites.png
View file

Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 5.8 KiB

After

Width:  |  Height:  |  Size: 5.8 KiB

Before After
Before After