feat: fixed navbar

This commit is contained in:
Nick 2024-11-14 21:10:41 -06:00
parent a55ba3c627
commit 55eb3a8a60
5 changed files with 23 additions and 10 deletions

View file

@ -18,13 +18,13 @@ import View exposing (View)
makeDodge : Dodge -> Int -> Element msg
makeDodge dodgeEntry index =
column paragraphAlignLeft
[ row (paragraphFormat++[F.size 18])
[ row (paragraphFormat ++ [ F.size 18 ])
[ text " "
, text (String.fromInt index ++ ". ")
, paragraphLinkFormat
{ url = dodgeEntry.dodgeLink
, label =
row [F.size 18]
row [ F.size 18 ]
[ transitionHighlightedLinkHover <|
text
(case dodgeEntry.dodgeDescription of
@ -122,14 +122,14 @@ cuckMaker cuck =
, column
paragraphAlignLeft
[ row nonHighlightedTitleFormat [ text cuck.cuckName ]
, row (paragraphBoldFormat++[F.size 18])
, row (paragraphBoldFormat ++ [ F.size 18 ])
[ text "Social:"
, paragraphLinkFormat
{ url = cuck.cuckSocial
, label = transitionHighlightedLinkHover <| text (formatCuckSocial cuck.cuckSocial)
}
]
, row (paragraphBoldFormat++[F.size 18]) [ text "Dodges:" ]
, row (paragraphBoldFormat ++ [ F.size 18 ]) [ text "Dodges:" ]
, column [ spacing 8 ] <|
List.map2 (\x y -> makeDodge x y)
cuck.cuckDodges