feat: added popup

This commit is contained in:
Nick 2025-01-03 16:47:17 -06:00
parent 1a426736a7
commit 59e4f4f1ab
74 changed files with 380 additions and 174 deletions

View file

@ -53,7 +53,11 @@ import Config.Style.Icons.Types as TySvg
( InnerPart
, OuterPart
)
import Config.Style.Images exposing (imageSquareMaker)
import Config.Style.Images
exposing
( ElementSize(..)
, imageSquareMaker
)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Effect exposing (Effect)
import Element as E
@ -250,7 +254,7 @@ debateList shared model =
contentList : Shared.Model -> Model -> Bool -> Int -> Argument -> List (Element Msg)
contentList shared model isLinkClicked index argument =
let
image : String -> Element msg
image : ElementSize -> Element msg
image size =
el
[ alignLeft
@ -293,7 +297,7 @@ contentList shared model isLinkClicked index argument =
none
_ ->
image "Big"
image Medium
, el ([ height fill ] ++ bodyFormat TextLightGrey) <| text argument.propositionSummary
]
, detailFormat row
@ -318,7 +322,12 @@ copyButton shared model isLinkClicked index argument =
Input.button
[ focused
[ D.color (rgba 0 0 0 0)
, D.shadow { blur = 0, color = rgba 0 0 0 0, offset = ( 0, 0 ), size = 0 }
, D.shadow
{ blur = 0
, color = rgba 0 0 0 0
, offset = ( 0, 0 )
, size = 0
}
]
]
{ onPress = Just (CopyText ("https://uprootnutrition.com" ++ Path.toString Path.Debate_Arguments ++ "#" ++ argument.argumentImage) index)