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: v1 finally done?

Browse source
This commit is contained in:
Nick 2025-01-02 02:33:57 -06:00
parent 9f8d9c3146
commit 07b9330264
245 changed files with 3140 additions and 2197 deletions
Download patch file Download diff file Expand all files Collapse all files

135
frontend/src/Config/Helpers/Cards/Inner/ToolTip.elm Executable file
View file

@ -0,0 +1,135 @@
module Config.Helpers.Cards.Inner.ToolTip exposing
( tooltip
, tooltipImage
)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions exposing (transitionStyleSlow)
import Element as E
exposing
( Attribute
, alignLeft
, alignRight
, below
, centerX
, centerY
, el
, fill
, height
, htmlAttribute
, image
, inFront
, mouseOver
, moveLeft
, none
, padding
, px
, rgba
, text
, transparent
, width
)
import Element.Background as B exposing (color)
import Element.Border as D
exposing
( color
, rounded
, shadow
, width
)
import Element.Font as F
exposing
( center
, regular
, size
)
import Html.Attributes as H exposing (style)
tooltip : String -> Bool -> Attribute msg
tooltip content isLeft =
inFront <|
el
[ E.width fill
, height fill
, transparent True
, mouseOver [ transparent False ]
, htmlAttribute <| H.style "z-index" "4"
, transitionStyleSlow
, below <|
el
[ htmlAttribute (H.style "pointerEvents" "none")
, case isLeft of
True ->
alignLeft
False ->
alignRight
]
<|
el
[ E.width fill
, htmlAttribute <| H.style "z-index" "4"
, F.size 15
, F.center
, F.regular
, B.color colourTheme.backgroundLightGrey
, F.color colourTheme.textLightGrey
, padding 15
, D.color colourTheme.textLightOrange
, D.rounded 5
, D.width 2
, D.shadow
{ offset = ( 0, 3 )
, blur = 6
, size = 0
, color = rgba 0 0 0 0.32
}
]
(text content)
]
none
tooltipImage : String -> Attribute msg
tooltipImage content =
inFront <|
el
[ E.width fill
, height fill
, transparent True
, mouseOver [ transparent False ]
, htmlAttribute <| H.style "z-index" "4"
, transitionStyleSlow
, below <|
el
[ htmlAttribute (H.style "pointerEvents" "none")
, moveLeft 200
]
<|
el
[ E.width <| px 400
, htmlAttribute <| H.style "z-index" "4"
, B.color colourTheme.backgroundLightGrey
, D.color colourTheme.textLightOrange
, D.rounded 5
, D.width 2
, D.shadow
{ offset = ( 0, 3 )
, blur = 6
, size = 0
, color = rgba 0 0 0 0.32
}
]
(image
[ E.width fill
, height fill
, centerX
, centerY
]
{ src = content
, description = "Tooltip image"
}
)
]
none