Store and load client settings

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

@@ -1,6 +1,7 @@
 module Util.Update exposing
     ( andThen1
     , andThen2
+    , andThen3
     , cmdUnit
     )
 
@@ -44,6 +45,21 @@ andThen2 fs m =
         |> combine
 
 
+andThen3 :
+    List (model -> { x | model : model, cmd : Cmd msg, sub : Sub msg })
+    -> model
+    -> ( model, Cmd msg, Sub msg )
+andThen3 list m =
+    let
+        mkTuple r =
+            ( r.model, r.cmd, r.sub )
+
+        list2 =
+            List.map (\e -> e >> mkTuple) list
+    in
+    andThen2 list2 m
+
+
 cmdUnit : a -> Cmd a
 cmdUnit a =
     Task.perform (\_ -> a) (Task.succeed ())