TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-25 16:45:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Show item name in document title

Browse Source
This commit is contained in:
Eike Kettner 2020-10-18 14:26:18 +02:00
parent fc5035ea8d
commit ead2e52253
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
modules/webapp/src/main/elm/Main.elm
View File

@ -11,7 +11,7 @@ import Data.UiSettings
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Page
import Page exposing (Page(..))
import Ports
import Url exposing (Url)
@ -73,7 +73,16 @@ init flags url key =
viewDoc : Model -> Document Msg
viewDoc model =
{ title = model.flags.config.appName ++ ": " ++ Page.pageName model.page
let
title =
case model.page of
ItemDetailPage _ ->
model.itemDetailModel.detail.item.name
_ ->
Page.pageName model.page
in
{ title = model.flags.config.appName ++ ": " ++ title
, body = [ view model ]
}