Reference & list

1 files changed, 11 insertions, 0 deletions

diff --git a/Foundation.hs b/Foundation.hs
index d192c08..d7425d5 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -78,6 +78,13 @@ instance Yesod App where
         -- Define the menu items of the header.
         let menuItems =
               [ MenuItem "Inventory" InventoryListingR
+              , MenuItem "Reference" ReferenceListingR
+              , MenuItem "List" ListR
+              ]
+            currentMenu = listToMaybe
+              [ menuItemLabel
+              | MenuItem{..} <- menuItems
+              , Just menuItemRoute == mCurrentRoute
               ]
 
         -- We break up the default layout into two components:
@@ -87,6 +94,10 @@ instance Yesod App where
         -- you to use normal widget features in default-layout.
 
         pc <- widgetToPageContent $ do
+          setTitle . toHtml . maybe "Bar Inventory" ("Bar Inventory – " <>) $ do
+            cM <- currentMenu
+            guard $ cM /= "Inventory"
+            return cM
           addScript $ StaticR jquery_js
           addScript $ StaticR webshim_polyfiller_js
           $(widgetFile "default-layout")