From 38af1dbac985aaaad037a85979c7b768226db93e Mon Sep 17 00:00:00 2001
From: David Alexander Majnemer <david@cthulhu.(none)>
Date: Thu, 15 Jan 2009 22:16:40 -0500
Subject: [PATCH] cleaned up the xmonad.hs file, makes it easier to read (might
 change, who knows?)

---
 xmonad.hs | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 8cd2bdd..b7fd3c0 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -7,7 +7,7 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
 
 import XMonad.Util.Run(spawnPipe)
-import XMonad.Util.EZConfig(additionalKeys)
+import XMonad.Util.EZConfig(additionalKeysP)
 
 import XMonad.Prompt
 import XMonad.Prompt.Shell(shellPrompt)
@@ -28,8 +28,6 @@ myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
 		-- Percent of screen to increment by when resizing panes
 		delta   = 3/100
 
-myModMask = mod1Mask
-
 main = do
 	xmproc <- spawnPipe "xmobar"
 	xmonad $ defaultConfig
@@ -37,11 +35,10 @@ main = do
 			, layoutHook = avoidStruts  $  smartBorders $ myLayoutHook
 			, logHook    = dynamicLogWithPP $ xmobarPP
 				{ ppOutput = hPutStrLn xmproc
-				, ppTitle = xmobarColor "green" ""
+				, ppTitle  = xmobarColor "green" ""
 				}
-			, modMask    = myModMask
 			}
-			`additionalKeys`
-			[ ((myModMask, xK_p), shellPrompt defaultXPConfig { position = Top })
-			, ((myModMask, xK_b), sendMessage ToggleStruts)
+			`additionalKeysP`
+			[ ("M-p", shellPrompt defaultXPConfig { position = Top })
+			, ("M-b", sendMessage ToggleStruts)
 			]