Add (persistent) volume control

2021-04-08 11:06:02 +02:00
parent f1214c0584
commit ea0dfbe1df
8 changed files with 76 additions and 54 deletions
@@ -42,7 +42,7 @@ handlePressedKeyInMenu mState scode w = case mState of
            ScancodeJ       -> Just $ w & config . volume_sound  %~ inc
            ScancodeN       -> Just $ w & config . volume_music  %~ dec
            ScancodeM       -> Just $ w & config . volume_music  %~ inc
-            _               -> Just $ w & menuLayers %~ (ConfigSaveScreen 1:) . tail
+            _               -> Just $ w & menuLayers %~ ([ConfigSaveScreen , ConfigSaveScreen] ++) . tail
                                        & configNeedsUpdate .~ False
    _ -> Just w
  where