From 29241757808c5b43df6b1cef4aa785b115dfc8f2 Mon Sep 17 00:00:00 2001
From: Cedric Girard <girard.cedric@gmail.com>
Date: Wed, 5 Dec 2012 13:18:30 +0100
Subject: [PATCH] current version of xmonad.hs

---
 xmonad/xmonad.hs | 47 +++++++++++++++++++++++++++--------------------
 1 file changed, 27 insertions(+), 20 deletions(-)

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index a05a896..9627dd1 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -1,33 +1,40 @@
 import XMonad
-import System.Exit
+
 import Data.List
-import XMonad.Hooks.DynamicLog
-import XMonad.Hooks.ManageDocks
-import XMonad.Util.Run(spawnPipe)
-import XMonad.Util.EZConfig(additionalKeys)
+
+import System.Exit
 import System.IO
-import XMonad.Layout
-import XMonad.Layout.Grid
-import XMonad.Layout.SimpleFloat
-import XMonad.Hooks.ManageHelpers
-import XMonad.Layout.PerWorkspace
-import XMonad.Layout.Spacing
-import XMonad.Actions.GridSelect
+
 import XMonad.Actions.CycleWS
+import XMonad.Actions.GridSelect
+
+import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.ManageHelpers
 import XMonad.Hooks.SetWMName
 
-import qualified XMonad.StackSet as W
-import qualified Data.Map        as M
+import XMonad.Layout
+import XMonad.Layout.Grid
+import XMonad.Layout.NoBorders
+import XMonad.Layout.PerWorkspace
+import XMonad.Layout.SimpleFloat
+import XMonad.Layout.Spacing
 
 import XMonad.Prompt
 import XMonad.Prompt.Man
 import XMonad.Prompt.Shell
 
+import XMonad.Util.EZConfig(additionalKeys)
+import XMonad.Util.Run(spawnPipe)
+
+import qualified Data.Map        as M
+import qualified XMonad.StackSet as W
+
 -- The preferred terminal program, which is used in a binding below and by
 -- certain contrib modules.
 --
-myTerminal      = "urxvt -e bash"
+myTerminal      = "urxvtc -e bash"
 
 -- Width of the window border in pixels.
 --
@@ -182,16 +189,16 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 ------------------------------------------------------------------------
 -- Mouse bindings: default actions bound to mouse events
 --
-myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
+myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList
 
     -- mod-button1, Set the window to floating mode and move by dragging
-    [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
+    [ ((modMask, button1), \w -> focus w >> mouseMoveWindow w)
 
     -- mod-button2, Raise the window to the top of the stack
-    , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
+    , ((modMask, button2), \w -> focus w >> windows W.swapMaster)
 
     -- mod-button3, Set the window to floating mode and resize by dragging
-    , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
+    , ((modMask, button3), \w -> focus w >> mouseResizeWindow w)
 
     -- you may also bind events to the mouse scroll wheel (button4 and button5)
     ]
@@ -208,7 +215,7 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
 -- which denotes layout choice.
 --
 myLayout = spacing 3 $ avoidStruts $
-       tiled ||| Mirror tiled ||| Full ||| Grid ||| simpleFloat
+       tiled ||| Mirror tiled ||| smartBorders Full ||| Grid ||| simpleFloat
           where
      -- default tiling algorithm partitions the screen into two panes
              tiled   = Tall nmaster delta ratio