Add websockets and notify frontend when an item is processed

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

@@ -190,6 +190,7 @@ type Msg
     | SetLanguage UiLanguage
     | ClientSettingsSaveResp UiSettings (Result Http.Error BasicResult)
     | ReceiveBrowserSettings StoredUiSettings
+    | ReceiveWsMessage String
 
 
 defaultPage : Flags -> Page

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

@@ -308,6 +308,13 @@ updateWithSub msg model =
             in
             updateUserSettings texts lm model
 
+        ReceiveWsMessage data ->
+            let
+                _ =
+                    Debug.log "WS-msg" data
+            in
+            ( model, Cmd.none, Sub.none )
+
 
 applyClientSettings : Messages -> Model -> UiSettings -> ( Model, Cmd Msg, Sub Msg )
 applyClientSettings texts model settings =

modules/webapp/src/main/elm/Main.elm

@@ -93,4 +93,5 @@ subscriptions model =
     Sub.batch
         [ model.subs
         , Ports.receiveUiSettings ReceiveBrowserSettings
+        , Ports.receiveWsMessage ReceiveWsMessage
         ]

modules/webapp/src/main/elm/Ports.elm

@@ -11,6 +11,7 @@ port module Ports exposing
     , printElement
     , receiveCheckQueryResult
     , receiveUiSettings
+    , receiveWsMessage
     , removeAccount
     , requestUiSettings
     , setAccount
@@ -55,6 +56,15 @@ and calls the print dialog.
 port printElement : String -> Cmd msg
 
 
+{-| Receives messages from the websocket.
+-}
+port receiveWsMessage : (String -> msg) -> Sub msg
+
+
+
+--- Higher level functions based on ports
+
+
 setUiTheme : UiTheme -> Cmd msg
 setUiTheme theme =
     internalSetUiTheme (Data.UiTheme.toString theme)