Customize the page titles

This commit is contained in:
Tessa Kelly 2022-03-30 11:24:26 -07:00
parent d0cff1a4f6
commit 2b0b78f8e0

View File

@ -185,7 +185,7 @@ view model =
Routes.Doodad doodad -> Routes.Doodad doodad ->
case findExampleByName doodad of case findExampleByName doodad of
Just example -> Just example ->
{ title = "Style Guide" { title = example.name ++ " in the NoRedInk Style Guide"
, body = , body =
viewExample model example viewExample model example
|> Html.map (UpdateModuleStates example.name) |> Html.map (UpdateModuleStates example.name)
@ -193,17 +193,17 @@ view model =
} }
Nothing -> Nothing ->
{ title = "Style Guide" { title = "Not found in the NoRedInk Style Guide"
, body = toBody notFound , body = toBody notFound
} }
Routes.Category category -> Routes.Category category ->
{ title = "Style Guide" { title = Category.forDisplay category ++ " Category in the NoRedInk Style Guide"
, body = toBody (viewCategory model category) , body = toBody (viewCategory model category)
} }
Routes.All -> Routes.All ->
{ title = "Style Guide" { title = "NoRedInk Style Guide"
, body = toBody (viewAll model) , body = toBody (viewAll model)
} }