From 475fa8d51e0913b69774d78fff4fda12a72558f9 Mon Sep 17 00:00:00 2001
From: David Majnemer <david@thedeadfulldread.home>
Date: Wed, 7 Jan 2009 00:57:27 -0500
Subject: [PATCH] cleaned up xmonad.hs nicely

---
 xmonad.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 93d87e2..701865b 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -1,8 +1,7 @@
 import XMonad
 
-import XMonad.Layout
 import XMonad.Layout.Grid
-import XMonad.Layout.NoBorders
+import XMonad.Layout.NoBorders(smartBorders)
 
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
@@ -11,10 +10,9 @@ import XMonad.Util.Run(spawnPipe)
 import XMonad.Util.EZConfig(additionalKeys)
 
 import XMonad.Prompt
-import XMonad.Prompt.Shell
-import XMonad.Prompt.Ssh
+import XMonad.Prompt.Shell(shellPrompt)
 
-import System.IO
+import System.IO(hPutStrLn)
 
 myLayoutHook = tiled ||| Mirror tiled ||| Grid ||| Full
 	where
@@ -30,6 +28,8 @@ 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 {
@@ -38,9 +38,10 @@ main = do
 		logHook    = dynamicLogWithPP $ xmobarPP {
 					ppOutput = hPutStrLn xmproc,
 					ppTitle = xmobarColor "green" ""
-					}
-		} `additionalKeys`
+					},
+		modMask    = myModMask
+		}	`additionalKeys`
 			[
-				((mod1Mask, xK_o), shellPrompt defaultXPConfig { position = Top }),
-				((mod1Mask, xK_b), sendMessage ToggleStruts)
+				((myModMask, xK_o), shellPrompt defaultXPConfig { position = Top }),
+				((myModMask, xK_b), sendMessage ToggleStruts)
 			]