TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-01 04:52:52 +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 exposing (..)
import Html.Attributes exposing (..) import Html.Attributes exposing (..)
import Html.Events exposing (..) import Html.Events exposing (..)
import Page import Page exposing (Page(..))
import Ports import Ports
import Url exposing (Url) import Url exposing (Url)
@ -73,7 +73,16 @@ init flags url key =
viewDoc : Model -> Document Msg viewDoc : Model -> Document Msg
viewDoc model = 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 ] , body = [ view model ]
} }