tabbing

haskell/xmonad/xmonad.hs

@@ -18,6 +18,10 @@ import qualified XMonad.StackSet as W
 import qualified Data.Map        as M
 
 import XMonad.Layout.Spacing
+import XMonad.Layout.Tabbed
+
+import XMonad.Prompt
+import XMonad.Prompt.Layout
 
 -- The preferred terminal program, which is used in a binding below and by
 -- certain contrib modules.
@@ -89,7 +93,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((modm,               xK_n     ), refresh)
 
     -- Move focus to the next window
-    , ((modm,               xK_Tab   ), windows W.focusDown)
+    , ((modm,               xK_Tab   ), layoutPrompt def)
 
     -- Move focus
     , ((modm,               xK_j     ), windows W.focusDown)
@@ -173,8 +177,19 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
 --
 -- The available layouts.  Note that each layout is separated by |||,
 -- which denotes layout choice.
---
-myLayout = tiled ||| Mirror tiled ||| Full
+
+tabCfg = def 
+	{ activeColor = "#282828"
+	, inactiveColor = "#1d2021"
+	, urgentColor = "#9d0006"
+	, activeBorderColor = "#504945"
+	, inactiveBorderColor = "#3c3836"
+	, urgentBorderColor = "#cc241d"
+	, activeTextColor = "#ebdbb2"
+	, inactiveTextColor = "#bdae93"
+	, urgentTextColor = "#ebdbb2"
+	}
+myLayout = tiled ||| tabbed shrinkText tabCfg ||| Mirror tiled 
   where
      -- default tiling algorithm partitions the screen into two panes
      tiled   = Tall nmaster delta ratio