forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Set <title> centrally in Foundation using breadcrumbs

Browse source
This commit is contained in:
fr33domlover 2016-05-06 10:26:11 +00:00
parent 7e8e557625
commit 65c5829a3f
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Foundation.hs
View file

@ -27,7 +27,7 @@ import Yesod.Core.Types (Logger)
import qualified Yesod.Core.Unsafe as Unsafe import qualified Yesod.Core.Unsafe as Unsafe
--import qualified Data.CaseInsensitive as CI --import qualified Data.CaseInsensitive as CI
import Data.Text as T (pack) import Data.Text as T (pack, intercalate)
--import qualified Data.Text.Encoding as TE --import qualified Data.Text.Encoding as TE
import Text.Jasmine.Local (discardm) import Text.Jasmine.Local (discardm)
@ -97,6 +97,7 @@ instance Yesod App where
master <- getYesod master <- getYesod
mmsg <- getMessage mmsg <- getMessage
mperson <- maybeAuth mperson <- maybeAuth
(title, bcs) <- breadcrumbs
-- We break up the default layout into two components: -- We break up the default layout into two components:
-- default-layout is the contents of the body tag, and -- default-layout is the contents of the body tag, and
@ -105,7 +106,8 @@ instance Yesod App where
-- you to use normal widget features in default-layout. -- you to use normal widget features in default-layout.
pc <- widgetToPageContent $ do pc <- widgetToPageContent $ do
--addStylesheet $ StaticR css_bootstrap_css setTitle $ toHtml $
T.intercalate " :: " (map snd bcs) <> " :: " <> title
$(widgetFile "default-layout") $(widgetFile "default-layout")
withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet") withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")