TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 10:58:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Refresh home page on item-process event

Browse Source
This commit is contained in:
eikek
2021-11-06 23:35:43 +01:00
parent 3e58d97f72
commit 42767e7732
4 changed files with 53 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/webapp/src/main/elm/App/Update.elm
View File

@ -15,6 +15,7 @@ import App.Data exposing (..)
import Browser exposing (UrlRequest(..))
import Browser.Navigation as Nav
import Data.Flags
import Data.ServerEvent exposing (ServerEvent(..))
import Data.UiSettings exposing (UiSettings)
import Data.UiTheme
import Messages exposing (Messages)
@ -310,10 +311,20 @@ updateWithSub msg model =
ReceiveWsMessage data ->
let
_ =
Debug.log "WS-msg" data
se =
Data.ServerEvent.fromString data
in
( model, Cmd.none, Sub.none )
case se of
Just ItemProcessed ->
case model.page of
HomePage ->
updateHome texts Page.Home.Data.RefreshView model
_ ->
( model, Cmd.none, Sub.none )
Nothing ->
( model, Cmd.none, Sub.none )
applyClientSettings : Messages -> Model -> UiSettings -> ( Model, Cmd Msg, Sub Msg )