Refresh home page on item-process event

modules/webapp/src/main/elm/Page/Home/Data.elm

@@ -229,6 +229,7 @@ type Msg
     | PublishItemsMsg Comp.PublishItems.Msg
     | TogglePublishCurrentQueryView
     | PublishViewMsg Comp.PublishItems.Msg
+    | RefreshView
 
 
 type SearchType

modules/webapp/src/main/elm/Page/Home/Update.elm

@@ -227,6 +227,22 @@ update mId key flags texts settings msg model =
             else
                 doSearch param nm
 
+        RefreshView ->
+            let
+                param =
+                    { flags = flags
+                    , searchType = model.lastSearchType
+                    , pageSize = settings.itemSearchPageSize
+                    , offset = model.searchOffset
+                    , scroll = False
+                    }
+            in
+            if model.searchInProgress then
+                withSub ( model, Cmd.none )
+
+            else
+                doSearch param model
+
         ToggleSearchMenu ->
             let
                 nextView =