Update xmonad/xmonad.hs

xmonad/xmonad.hs

@@ -32,7 +32,7 @@ import XMonad.Layout.Decoration
 import XMonad.Layout.Simplest
 import XMonad.Layout.SimplestFloat
 import XMonad.Layout.Spacing
-
+import XMonad.Actions.PerWindowKeys 
 
 
 main :: IO ()
@@ -55,8 +55,8 @@ myConfig = def
 	  spawnOnce "feh --bg-fill /home/hashirama/wallpaper.jpg"
 	  spawnOnce "compton -b"
           spawnOnce "polybar top-monitor-1"
-
     }
+    
   `additionalKeysP`
     [ ("M-d", spawn "rofi -show run")
     , ("M-s", spawn "bash -c dictpopup")
@@ -66,6 +66,7 @@ myConfig = def
     , ("M-t", withFocused $ windows . W.sink)  -- Toggle float for the focused window
     , ("M-S-q", return ())  -- Unbind Mod + Shift + Q, to avoid quiting the wm.
     , ("M-q", kill)  -- Change the keybinding for closing windows to Mod + Q
+    , ("M-m", spawn "alacritty -e sh -c 'cd  /mnt/Data/Music/  && cmus'")
     ]