Show a message when a new document arrived

modules/webapp/src/main/elm/App/Data.elm

@@ -64,6 +64,7 @@ type alias Model =
     , anonymousTheme : UiTheme
     , anonymousUiLang : UiLanguage
     , langMenuOpen : Bool
+    , showNewItemsArrived : Bool
     }
 
 
@@ -126,6 +127,7 @@ init key url flags_ settings =
       , anonymousTheme = Data.UiTheme.Light
       , anonymousUiLang = Messages.UiLanguage.English
       , langMenuOpen = False
+      , showNewItemsArrived = False
       }
     , Cmd.batch
         [ Cmd.map UserSettingsMsg uc
@@ -191,6 +193,7 @@ type Msg
     | ClientSettingsSaveResp UiSettings (Result Http.Error BasicResult)
     | ReceiveBrowserSettings StoredUiSettings
     | ReceiveWsMessage String
+    | ToggleShowNewItemsArrived
 
 
 defaultPage : Flags -> Page

modules/webapp/src/main/elm/App/Update.elm

@@ -316,16 +316,26 @@ updateWithSub msg model =
             in
             case se of
                 Just ItemProcessed ->
+                    let
+                        newModel =
+                            { model | showNewItemsArrived = True }
+                    in
                     case model.page of
                         HomePage ->
-                            updateHome texts Page.Home.Data.RefreshView model
+                            updateHome texts Page.Home.Data.RefreshView newModel
 
                         _ ->
-                            ( model, Cmd.none, Sub.none )
+                            ( newModel, Cmd.none, Sub.none )
 
                 Nothing ->
                     ( model, Cmd.none, Sub.none )
 
+        ToggleShowNewItemsArrived ->
+            ( { model | showNewItemsArrived = not model.showNewItemsArrived }
+            , Cmd.none
+            , Sub.none
+            )
+
 
 applyClientSettings : Messages -> Model -> UiSettings -> ( Model, Cmd Msg, Sub Msg )
 applyClientSettings texts model settings =

modules/webapp/src/main/elm/App/View2.elm

@@ -71,7 +71,19 @@ topNavUser auth model =
             , activeStyle = "hover:bg-blue-200 dark:hover:bg-bluegray-800 w-12"
             }
         , headerNavItem True model
-        , div [ class "flex flex-grow justify-end" ]
+        , div [ class "flex flex-grow justify-center" ]
+            [ a
+                [ class S.infoMessageBase
+                , class "my-2 px-1 py-1 rounded-lg inline-block hover:opacity-50"
+                , classList [ ( "hidden", not model.showNewItemsArrived ) ]
+                , href "#"
+                , onClick ToggleShowNewItemsArrived
+                ]
+                [ i [ class "fa fa-exclamation-circle mr-1" ] []
+                , text texts.app.newItemsArrived
+                ]
+            ]
+        , div [ class "flex justify-end" ]
             [ userMenu texts.app auth model
             , dataMenu texts.app auth model
             ]