21 lines
713 B
Plaintext
21 lines
713 B
Plaintext
<aside .main__aside>
|
|
<div .asidenav>
|
|
<div .asidenav__box--dont-hide>
|
|
<ul .asidenav__list>
|
|
$forall menuType <- menuTypes
|
|
$case menuType
|
|
$of NavbarAside (MenuItem label mIcon route _)
|
|
<li .asidenav__list-item :Just route == mcurrentRoute:.asidenav__list-item--active>
|
|
$if isJust mIcon
|
|
<div .glyphicon.glyphicon--#{fromMaybe "" mIcon}>
|
|
<a .asidenav__link href=@{route}>#{label}
|
|
$of _
|
|
|
|
<div .asidenav__box>
|
|
<h3 .asidenav__box-title>WiSe 17/18
|
|
<ul .asidenav__list.asidenav__list--padded>
|
|
<li>Vorlesung 1
|
|
<li>Vorlesung 2
|
|
<li>Vorlesung 3
|
|
<li>Vorlesung 4
|