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

other/scripts/desktop/desktopctl.nix

@@ -1,5 +1,6 @@
 { pkgs, ... }:
 pkgs.writeShellScriptBin "desktopctl" ''
+  run() {
     case $@ in
         "Lock Screen")
             nohup sh -c "i3lock-fancy" > /dev/null &
@@ -32,4 +33,6 @@ pkgs.writeShellScriptBin "desktopctl" ''
     echo -en "Log Out\0icon\x1f${../../../other/assets/desktopctl/logout.svg}\n"
     echo -en "Shut Down\0icon\x1f${../../../other/assets/desktopctl/shutdown.svg}\n"
     echo -en "Reboot\0icon\x1f${../../../other/assets/desktopctl/reboot.svg}\n"
+  }
+  rofi -show "desktopctl" -modes "desktopctl:run"
 ''