roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-09-19 23:07:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Actually remove home link from DOM on homepage

Browse Source
This commit is contained in:
Richard Feldman 2023-11-10 23:23:33 -05:00
parent 569279b324
commit 1946fb7789
No known key found for this signature in database
GPG Key ID: F1F21AA5B1D9E43B
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
www/wip_new_website/main.roc
View File

@ -2,7 +2,7 @@ app "roc-website"
packages { pf: "../../examples/static-site-gen/platform/main.roc" }
imports [
pf.Html.{ Node, html, head, body, header, footer, div, main, text, nav, a, link, meta, script },
pf.Html.Attributes.{ attribute, content, name, id, href, rel, lang, class, title, charset, color, ariaLabel, type },
pf.Html.Attributes.{ attribute, content, name, id, href, rel, lang, class, title, charset, color, ariaLabel, type, role },
InteractiveExample,
]
provides [transformFileContent] to pf
@ -95,11 +95,17 @@ view = \page, htmlContent ->
viewNavbar : Str -> Html.Node
viewNavbar = \page ->
logo = if page == "index.html" then [] else [rocLogo]
isHomepage = page == "index.html"
homeLink =
if isHomepage then
div [role "presentation"] [] # This is a spacer for the nav bar
else
a [id "nav-home-link", href "/wip/", title "The Roc Programming Language"] [rocLogo]
header [id "top-bar"] [
nav [ariaLabel "primary"] [
a [id "nav-home-link", href "/wip/", title "The Roc Programming Language"] logo,
homeLink,
div [id "top-bar-links"] [
a [href "/wip/tutorial"] [text "tutorial"],
a [href "/wip/install"] [text "install"],