xmonad via cabal

1 files changed, 7 insertions, 4 deletions

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index ee131be..2fab902 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -21,6 +21,7 @@ import XMonad.Actions.Minimize (minimizeWindow, withLastMinimized, maximizeWindo
 
 import XMonad.Layout.NoBorders (noBorders, smartBorders)
 import XMonad.Layout.Minimize (minimize)
+import XMonad.Layout.ResizableThreeColumns
 import qualified XMonad.Layout.BoringWindows as BW
 
 myTerminal      = "urxvt"
@@ -76,7 +77,9 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 
     , ((modm,               xK_h     ), sendMessage Shrink)
     , ((modm,               xK_l     ), sendMessage Expand)
-
+    , ((modm .|. shiftMask, xK_h     ), sendMessage MirrorShrink)
+    , ((modm .|. shiftMask, xK_l     ), sendMessage MirrorExpand)
+    
     -- floating -> tiling
     , ((modm,               xK_t     ), withFocused $ windows . W.sink)
 
@@ -131,11 +134,11 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList
 
 ------------------------------------------------------------------------
 -- Layouts:
-myLayout = smartBorders tiled ||| noBorders Full
+myLayout = smartBorders tiled ||| smartBorders threeCol ||| smartBorders Full
   where
-     tiled   = Tall nmaster delta ratio
+     threeCol = ResizableThreeCol nmaster delta (1/3) []
+     tiled   = Tall nmaster delta (3/5)
      nmaster = 1
-     ratio   = 3/5
      delta   = 2/100
 
 ------------------------------------------------------------------------