feat: version 1 done?

This commit is contained in:
Nick 2024-12-23 03:15:35 -06:00
parent cf580a71d0
commit d1ba50abd8
30 changed files with 668 additions and 261 deletions

View file

@ -14,6 +14,7 @@ import Config.Helpers.Format
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.ImageFolders as M exposing (..)
import Config.Helpers.Response exposing (contentContainer)
import Config.Pages.Debate.Arguments.Records.Template exposing (argument)
import Config.Style.Colour exposing (colourTheme)
@ -57,7 +58,7 @@ cardMaker device cardable contents =
True
C.Argument _ ->
True
False
C.Gibberish _ ->
True
@ -265,10 +266,21 @@ cardMaker device cardable contents =
cardImageMaker : String -> Element msg
cardImageMaker image =
let
mobileImageSize =
[ E.width <| px 45
, E.height <| px 45
]
in
el
[ alignRight
, alignTop
, padding 10
, paddingEach
{ top = 20
, bottom = 0
, left = 30
, right = 0
}
]
<|
el
@ -287,14 +299,10 @@ cardMaker device cardable contents =
]
++ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
mobileImageSize
( Tablet, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
mobileImageSize
_ ->
[ E.width <| px 90
@ -464,7 +472,7 @@ cardMaker device cardable contents =
C.Cuck cuck ->
cardWithImage
cuck.cuckName
("/cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png")
(imagePathMaker M.Cuck cuck.cuckImage)
contents
C.BlogArticle blogArticle ->
@ -476,22 +484,20 @@ cardMaker device cardable contents =
cardWithImageWithLink
blogArticle.isNewTabLink
blogArticle.articleName
("/blog/" ++ blogArticle.articleImage ++ "thumb.png")
(imagePathMaker M.BlogCard blogArticle.articleImage)
blogArticle.articleLink
contents
C.Argument argument ->
cardWithNoImageWithLink
argument.isNewTabLink
cardWithNoImage
argument.argumentTitle
argument.proofLink
contents
C.Gibberish gibberish ->
cardWithImageWithLink
gibberish.isNewTabLink
gibberish.gibberishTitle
("/gibberish/" ++ gibberish.gibberishImage ++ ".png")
(imagePathMaker M.Gibberish gibberish.gibberishImage)
gibberish.gibberishLink
contents
@ -499,7 +505,7 @@ cardMaker device cardable contents =
cardWithImageWithLink
service.isNewTabLink
service.serviceName
("/services/" ++ service.serviceImage ++ ".png")
(imagePathMaker M.Service service.serviceImage)
service.serviceLink
contents
@ -507,7 +513,7 @@ cardMaker device cardable contents =
cardWithImageWithLink
debate.isNewTabLink
debate.debateTitle
("/debate/" ++ debate.debateImage ++ ".png")
(imagePathMaker M.Debate debate.debateImage)
debate.debateLink
contents
@ -515,14 +521,14 @@ cardMaker device cardable contents =
cardWithImageWithLink
donate.isNewTabLink
donate.donateName
("/donate/" ++ donate.donateImage ++ ".png")
(imagePathMaker M.Donate donate.donateImage)
donate.donateLink
contents
C.Interview interview ->
cardWithImage
interview.interviewName
("/interviews/" ++ interview.interviewImage ++ ".png")
(imagePathMaker M.Interviews interview.interviewImage)
contents
C.NutriDex nutriDex ->