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: 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

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