page title above page actions -wip

This commit is contained in:
Felix Hamann 2018-06-07 00:32:58 +02:00
parent 993366bb60
commit 99643ff089
3 changed files with 9 additions and 0 deletions

View File

@ -439,6 +439,8 @@ instance Yesod UniWorX where
navbar = $(widgetFile "widgets/navbar")
asidenav :: Widget
asidenav = $(widgetFile "widgets/asidenav")
contentHeadline :: Maybe String
contentHeadline = Just "Some Headline" -- should be coming from the currently viewed page
breadcrumbs :: Widget
breadcrumbs = $(widgetFile "widgets/breadcrumbs")
pageactionprime :: Widget

View File

@ -13,6 +13,11 @@
$with status2 <- bool status "info" (status == "")
<div class="alert alert-#{status2}">#{msg}
<!-- workaround for pageactionprime not visible inside of ^{widget}. see terms.hamlet-->
<h1>
#{fromMaybe "default headline" contentHeadline}
<!-- maybe #{pageTitle pc} ? -->
<!-- prime page actions -->
^{pageactionprime}

View File

@ -1,4 +1,6 @@
<div .container>
<h1>Semesterübersicht
<!-- pass widget ^{pageactionprime} down to this widget from default-layout? -->
^{table}