Add notification counts to page title.

This commit is contained in:
2019-03-15 17:44:54 -07:00
parent 3471f6cb74
commit 7241d112b0
2 changed files with 35 additions and 3 deletions

View File

@@ -60,9 +60,15 @@ init _ url key =
view : Model -> Browser.Document Msg
view m =
{ title = "Scylla"
, body = viewFull m
}
let
notificationString = totalNotificationCountString m.sync
titleString = case notificationString of
Nothing -> "Scylla"
Just s -> s ++ " Scylla"
in
{ title = titleString
, body = viewFull m
}
update : Msg -> Model -> (Model, Cmd Msg)
update msg model = case msg of