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

View file

@ -91,6 +91,12 @@ view { toContentMsg, model, content } =
, alignLeft
, alignTop
, moveDown 30
, htmlAttribute (H.style "position" "fixed")
, htmlAttribute (H.style "left" "0")
, htmlAttribute (H.style "top" "0")
, htmlAttribute (H.style "height" "100vh")
, htmlAttribute (H.style "z-index" "10") -- Ensure navbar stays on top
, htmlAttribute (H.style "transform-style" "preserve-3d")
]
[ column
[ spacing 20
@ -107,8 +113,14 @@ view { toContentMsg, model, content } =
, link navBarLinkFormat { url = localhostUrl ++ "support", label = transitionNonHighlightedLinkHoverWithMove <| text "SUPPORT" }
, link navBarLinkFormat { url = localhostUrl ++ "interviews", label = transitionNonHighlightedLinkHoverWithMove <| text "INTERVIEWS" }
, link navBarLinkFormat { url = localhostUrl ++ "contact", label = transitionNonHighlightedLinkHoverWithMove <| text "CONTACT" }
, link navBarLinkFormat { url = localhostUrl ++ "dodgers", label = transitionNonHighlightedLinkHoverWithMove <| text "DODGERS" }
]
]
, content.element
, el
[ width fill
, height fill
, paddingEach { top = 0, right = 0, bottom = 0, left = 200 }
]
content.element
]
}

View file

@ -296,7 +296,8 @@ argumentList =
, conclusionNotation = ""
}
]
},{ argumentTitle = ""
}
, { argumentTitle = ""
, propositionTitle = ""
, propositionSummary = ""
, definitionTable =

View file

@ -215,8 +215,8 @@ dodgersList =
, cuckPhilippeStephenson
, cuckRalphNapolitano
, cuckRaphaelSirtoli
, cuckRobMeijer
, cuckRobbWolf
, cuckRobMeijer
, cuckSimonGoddek
, cuckTravisStatham
, cuckTristanHaggard