diff --git a/xmonad.hs b/xmonad.hs
index cb2de1a..34a406e 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -91,7 +91,8 @@ import XMonad.Util.Loggers (logTitles)
 import XMonad.Util.SpawnOnce (spawnOnce)
 import XMonad.Util.Ungrab (unGrab)
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
-import XMonad.Hooks.RefocusLast (RecentWins(previous))
+import XMonad.Layout (Resize(Expand,Shrink) )
+import XMonad.Layout.DwmStyle (dwmStyle, shrinkText)
 
 main :: IO ()
 main = do
@@ -126,6 +127,8 @@ main = do
                           -- window navigation
                           ("M-l", sendMessage $ Go R),
                           ("M-h", sendMessage $ Go L),
+                          ("M-S-h", sendMessage Shrink),                   -- Shrink horiz window width
+                          ("M-S-l", sendMessage Expand),                   -- Expand horiz window width
                           -- layout switching
                           ("M-<Tab>", sendMessage NextLayout),
                           -- dmenu stuff
@@ -190,9 +193,8 @@ mySpacing' i = spacingRaw True (Border i 0 i i) True (Border i 0 i i) True
 
 --myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
 myWorkspaces :: [String]
-myWorkspaces = show <$> [1 .. 9]
-
-myLayout = windowNavigation tiled ||| Mirror tiled ||| Full
+myWorkspaces = show <$> ([1 .. 9] ::[Integer] )
+myLayout =  windowNavigation tiled ||| Mirror tiled ||| Full
   where
     tiled = mySpacing' 8 $ Tall nmaster delta ratio
     nmaster = 1 -- Default number of windows in the master pane