19 lines
497 B
Plaintext
19 lines
497 B
Plaintext
<nav .navbar.js-sticky-navbar>
|
|
<ul .flat>
|
|
$forall menuType <- menuTypes
|
|
$case menuType
|
|
$of NavbarLeft (MenuItem label route _)
|
|
<li :Just route == mcurrentRoute:.active>
|
|
<a href=@{route}>#{label}
|
|
$of _
|
|
|
|
<ul .flat>
|
|
$forall menuType <- menuTypes
|
|
$case menuType
|
|
$of NavbarRight (MenuItem label route _)
|
|
<li :Just route == mcurrentRoute:.active>
|
|
<a href=@{route}>#{label}
|
|
$of _
|
|
|
|
<div .navbar-pushdown>
|