feat: fixed scrolling on gibberish page

This commit is contained in:
Nick 2025-01-03 21:41:45 -06:00
parent 86430b122c
commit 7f509d0572
8 changed files with 122 additions and 221 deletions

View file

@ -19,7 +19,11 @@ import Config.Helpers.Cards.Inner.Text
, generalButton
, getHoverColours
)
import Config.Helpers.Cards.Inner.ToolTip exposing (tooltip)
import Config.Helpers.Cards.Inner.ToolTip
exposing
( ToolTipPosition(..)
, tooltip
)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Converters exposing (toTitleCase)
@ -335,7 +339,7 @@ copyButton shared model isLinkClicked index argument =
el
(if isLinkClicked then
[ transitionStyleSlow
, tooltip "Copied!" False
, tooltip IsRight "Copied!"
, case ( shared.device.class, shared.device.orientation ) of
( Phone, Portrait ) ->
B.color (getThemeColor BackgroundDarkGrey)
@ -381,9 +385,8 @@ strengthMaker shared =
_ ->
if not shared.isNavbarExpanded then
[ tooltip
[ tooltip IsRight
"This represents my confidence that the argument is sound."
True
]
else