Save the sound volume

public/index.html

@@ -18,7 +18,10 @@
 <script src="/socket.io/socket.io.js"></script>
 <script>
 
-    const app = Elm.Main.init({node: document.getElementById('elm'),});
+    const app = Elm.Main.init({
+        node: document.getElementById('elm'),
+        flags: JSON.parse(window.localStorage.getItem("preferences"))
+    });
 
     let alarm = document.createElement("audio");
     document.body.appendChild(alarm);
@@ -45,7 +48,7 @@
                     .finally(() => app.ports.events.send({name: 'Copied', value: ""}))
                 break;
             case 'ChangeVolume':
-                // window.localStorage.setItem("preferences", JSON.stringify({volume: parseInt(command.value)}));
+                window.localStorage.setItem("preferences", JSON.stringify({volume: parseInt(command.value)}));
                 alarm.volume = parseInt(command.value) / 100.0;
                 break;
         }

src/elm/Main.elm

@@ -31,6 +31,7 @@ import Svg.Attributes as Svg
 import Task
 import Time
 import Url
+import UserPreferences
 
 
 port receiveEvent : (Json.Encode.Value -> msg) -> Sub msg
@@ -43,7 +44,7 @@ port receiveHistory : (List Json.Encode.Value -> msg) -> Sub msg
 -- MAIN
 
 
-main : Program () Model Msg
+main : Program UserPreferences.Model Model Msg
 main =
     Browser.application
         { init = init
@@ -87,20 +88,23 @@ type alias Model =
     }
 
 
-init : () -> Url.Url -> Nav.Key -> ( Model, Cmd Msg )
-init _ url key =
+init : UserPreferences.Model -> Url.Url -> Nav.Key -> ( Model, Cmd Msg )
+init preferences url key =
     ( { key = key
       , url = url
       , shared = Shared.init
       , mobbersSettings = Mobbers.Settings.init
       , clockSettings = Clock.Settings.init
-      , soundSettings = Sound.Settings.init 50
+      , soundSettings = Sound.Settings.init preferences.volume
       , alarm = Standby
       , now = Time.millisToPosix 0
       , toasts = []
       , tab = Main
       }
-    , Task.perform TimePassed Time.now
+    , Cmd.batch
+        [ Task.perform TimePassed Time.now
+        , Js.Commands.send <| Js.Commands.ChangeVolume preferences.volume
+        ]
     )
 
 
@@ -247,15 +251,14 @@ update msg model =
                     (\a -> { model | clockSettings = a })
                     (Cmd.map GotClockSettingsMsg)
 
-        GotSoundSettingsMsg subMsg->
+        GotSoundSettingsMsg subMsg ->
             Sound.Settings.update subMsg model.soundSettings
                 |> Tuple.mapBoth
                     (\a -> { model | soundSettings = a })
                     (Cmd.map GotSoundSettingsMsg)
 
 
 
-
 -- SUBSCRIPTIONS
 
 

src/elm/UserPreferences.elm

@@ -0,0 +1,18 @@
+module UserPreferences exposing (..)
+
+import Json.Encode
+
+
+type alias Model =
+    { volume : Int }
+
+
+default : Model
+default =
+    { volume = 50 }
+
+
+encode : Model -> Json.Encode.Value
+encode model =
+    Json.Encode.object
+        [ ( "volume", Json.Encode.int model.volume ) ]