refac(prog/xmonad): change layout

programs/xmonad/xmonad.hs

@@ -17,7 +17,9 @@ import           XMonad.Hooks.EwmhDesktops
 import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.StatusBar
 import           XMonad.Hooks.StatusBar.PP
+import           XMonad.Layout.BoringWindows         (boringWindows)
 import           XMonad.Layout.Grid
+import           XMonad.Layout.LimitWindows          (limitWindows)
 import           XMonad.Layout.NoBorders
 import           XMonad.Layout.PerWorkspace
 import           XMonad.Util.EZConfig
@@ -188,20 +190,13 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList
 -- which denotes layout choice.
 --
 myLayout = avoidStruts
-  $ onWorkspace "1:web" (myTall (1/2) ||| myFull ||| Grid)
-  $ onWorkspace "4:chat" (myTall (1/2))
+  $ onWorkspaces ["1:web", "4:chat"] (myTall (1/2) ||| myFull ||| Grid)
   $ myTall (2/3) ||| myFull ||| Grid
   where
-    myTall = smartBorders . Tall nmaster delta
+    myTall = limitWindows 4 . boringWindows . smartBorders . Tall 1 (3/100)
 
     myFull = noBorders Full
 
-    -- The default number of windows in the master pane
-    nmaster = 1
-
-    -- Percent of screen to increment by when resizing panes
-    delta   = 3/100
-
 ------------------------------------------------------------------------
 -- Window rules:
 
@@ -225,7 +220,6 @@ myManageHook = composeAll
   , className =? "Gnome-calculator"       --> doFloat
   , className =? "Gnome-font-viewer"      --> doFloat
   , className =? "Org.gnome.Nautilus"     --> doFloat
-  , className =? "firefox-trunk-nightly"  --> doShift "1:web"
   , resource  =? "telegram-desktop"       --> doShift "4:chat"
   , className =? "Thunderbird"            --> doShift "4:chat"
   -- my libs