feat: added new images

This commit is contained in:
Nick 2024-12-24 03:51:55 -06:00
parent 6763b6a860
commit 903c16efed
4 changed files with 79 additions and 86 deletions

View file

@ -264,56 +264,6 @@ cardMaker device cardable contents =
)
}
cardImageMaker : String -> Element msg
cardImageMaker image =
let
mobileImageSize =
[ E.width <| px 45
, E.height <| px 45
]
in
el
[ alignRight
, alignTop
, paddingEach
{ top = 20
, bottom = 0
, left = 30
, right = 0
}
]
<|
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 ) ->
mobileImageSize
( Tablet, Portrait ) ->
mobileImageSize
_ ->
[ E.width <| px 90
, E.height <| px 90
]
)
)
{ src = image
, description = ""
}
cardInner : String -> Maybe String -> List (Element msg) -> Element msg
cardInner title maybeUrl elements =
column
@ -392,15 +342,6 @@ cardMaker device cardable contents =
Nothing
)
[ cardContentMaker content
, case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
none
( Tablet, Portrait ) ->
none
_ ->
cardImageMaker image
]
)
url
@ -422,15 +363,6 @@ cardMaker device cardable contents =
cardInner title
Nothing
[ cardContentMaker content
, case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
none
( Tablet, Portrait ) ->
none
_ ->
cardImageMaker image
]
cardWithNoImage : String -> List (Element msg) -> Element msg