now the commas match the conventions

1 files changed, 30 insertions, 31 deletions

diff --git a/xmonad.hs b/xmonad.hs
index d11e63ae..03e4ba6b 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -105,60 +105,59 @@ windowGaps i j = spacingRaw False (Border i i i i) True (Border j j j j) True $
 
 
 myKeys = [
-         ((mod4Mask, xK_Return), spawn myTerminal),
-         ((mod1Mask, xK_w), kill1),
-         ((mod1Mask .|. shiftMask, xK_k), kill1),
-         ((mod4Mask, xK_p), spawnOnce "run_dmenu"),
+         ((mod4Mask, xK_Return), spawn myTerminal)
+         , ((mod1Mask, xK_w), kill1)
+         , ((mod1Mask .|. shiftMask, xK_k), kill1)
 
          -- view prev/next workspaces
-         ((mod1Mask, xK_h), prevWS),
-         ((mod1Mask, xK_l), nextWS),
+         , ((mod1Mask, xK_h), prevWS)
+         , ((mod1Mask, xK_l), nextWS)
 
          -- move to prev/next workspaces
-         ((mod1Mask .|. shiftMask, xK_h), shiftToPrev >> prevWS),
-         ((mod1Mask .|. shiftMask, xK_l), shiftToNext >> nextWS),
+         , ((mod1Mask .|. shiftMask, xK_h), shiftToPrev >> prevWS)
+         , ((mod1Mask .|. shiftMask, xK_l), shiftToNext >> nextWS)
 
          -- modify gaps on runtime
-         ((mod1Mask, xK_equal), incWindowSpacing 1),
-         ((mod1Mask, xK_minus), decWindowSpacing 1),
-         ((mod1Mask .|. shiftMask, xK_equal), incScreenSpacing 1),  
-         ((mod1Mask .|. shiftMask, xK_minus), decScreenSpacing 1), 
+         , ((mod1Mask, xK_equal), incWindowSpacing 1)
+         , ((mod1Mask, xK_minus), decWindowSpacing 1)
+         , ((mod1Mask .|. shiftMask, xK_equal), incScreenSpacing 1)  
+         , ((mod1Mask .|. shiftMask, xK_minus), decScreenSpacing 1) 
          
-         ((mod4Mask .|. shiftMask, xK_Return), windows W.swapMaster), -- Swap the focused window and the master window
+         , ((mod4Mask .|. shiftMask, xK_Return), windows W.swapMaster) -- Swap the focused window and the master window
 
          -- directional navigation of windows
-         ((mod4Mask,                 xK_l), windowGo R False),
-         ((mod4Mask,                 xK_h), windowGo L False),
-         ((mod4Mask,                 xK_k), windowGo U False),
-         ((mod4Mask,                 xK_j), windowGo D False),
+         , ((mod4Mask,                 xK_l), windowGo R False)
+         , ((mod4Mask,                 xK_h), windowGo L False)
+         , ((mod4Mask,                 xK_k), windowGo U False)
+         , ((mod4Mask,                 xK_j), windowGo D False)
 
          -- swap adjacent windows
-         ((mod4Mask .|. shiftMask, xK_l), windowSwap R False),
-         ((mod4Mask .|. shiftMask, xK_h), windowSwap L False),
-         ((mod4Mask .|. shiftMask, xK_k), windowSwap U False),
-         ((mod4Mask .|. shiftMask, xK_j), windowSwap D False),
+         , ((mod4Mask .|. shiftMask, xK_l), windowSwap R False)
+         , ((mod4Mask .|. shiftMask, xK_h), windowSwap L False)
+         , ((mod4Mask .|. shiftMask, xK_k), windowSwap U False)
+         , ((mod4Mask .|. shiftMask, xK_j), windowSwap D False)
        
          -- cycle through windows 
-         ((mod1Mask, xK_j), windows W.focusDown),
-         ((mod1Mask, xK_k), windows W.focusUp),
+         , ((mod1Mask, xK_j), windows W.focusDown)
+         , ((mod1Mask, xK_k), windows W.focusUp)
 
          -- grid select
-         ((mod1Mask, xK_n), goToSelected defaultGSConfig),
+         , ((mod1Mask, xK_n), goToSelected defaultGSConfig)
       
          -- windowbringer
-         ((mod1Mask, xK_b), bringMenu),
-         ((mod1Mask, xK_g), gotoMenu),
+         , ((mod1Mask, xK_b), bringMenu)
+         , ((mod1Mask, xK_g), gotoMenu)
 
          -- paste x selection
-         ((0, xK_Insert), pasteSelection),
+         , ((0, xK_Insert), pasteSelection)
 
          -- toggle layouts
-         ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"]),
+         , ((mod4Mask,  xK_t ),   cycleThroughLayouts ["Grid", "Mirror Tall"])
 
          -- toggle bars
-         ((mod1Mask, xK_backslash), sendMessage ToggleStruts), -- toggle both bars
-         ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D), -- toggle bottom bar
-         ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
+         , ((mod1Mask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars
+         , ((mod1Mask, xK_bracketleft), sendMessage $ ToggleStrut D) -- toggle bottom bar
+         , ((mod1Mask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
 
          ] ++ [ -- for extra workspace(s)
          ((myModMask, key), (windows $ W.greedyView ws))