Config: Reset sounds, cleanup

src/Macbeth/Wx/Config/DefaultSounds.hs

@@ -16,11 +16,11 @@ defaultSounds = Just Sounds {
 
 gameS :: GameS
 gameS = GameS {
-    newGame = Just "ding1.wav"
+    newGame = Nothing
   , move = MoveS {
       normal = Just "move.wav"
     , capture = Nothing
-    , check = Just "slap.wav"
+    , check = Nothing
     , castling = Nothing
     , pieceDrop = Nothing
     , illegal = Just "penalty.wav"

src/Macbeth/Wx/Configuration.hs

@@ -4,6 +4,7 @@ module Macbeth.Wx.Configuration (
 
 import Macbeth.Fics.FicsMessage
 import Macbeth.Wx.Utils
+import Macbeth.Wx.Config.DefaultSounds
 import qualified Macbeth.Wx.Config.UserConfig as C
 
 import Control.Concurrent.Chan
@@ -23,6 +24,7 @@ wxConfiguration chan = do
   status <- statusField []
 
   b_current <- button f [text := "Reset", on command := showConfig ct]
+  b_resetSounds <- button f [text := "Reset Sounds", on command := resetSounds ct]
   b_save <- button f [ text := "Save",
                        on command := either (\_ -> set status [text := "Illegal file format."]) return
                                      =<< runExceptT (parseAndSave ct status)]
@@ -31,7 +33,7 @@ wxConfiguration chan = do
   set f [ statusBar := [status],
           layout := margin 10 $ column 10 [
                        boxed "Configuration" $ fill $ minsize (Size 380 220) $ widget ct
-                     , hfloatRight $ row 5 [widget b_current, widget b_save]]
+                     , hfloatRight $ row 5 [widget b_current, widget b_resetSounds, widget b_save]]
         ]
   registerWxCloseEventListener f chan
 
@@ -41,6 +43,11 @@ showConfig ct = do
   config <- C.loadConfig
   set ct [text := comments ++ BS.unpack (Y.encode $ removeUser config)]
 
+resetSounds :: TextCtrl() -> IO ()
+resetSounds ct = do
+  c <- C.loadConfig
+  set ct [text := comments ++ BS.unpack (Y.encode $ removeUser c{C.sounds = defaultSounds})]
+
 
 parseAndSave :: TextCtrl () -> StatusField -> ExceptT Y.ParseException IO ()
 parseAndSave ct status = do