style(prog/xmonad): change layout for web and chat

programs/xmonad/xmonad.hs

@@ -15,6 +15,7 @@ import           XMonad.Hooks.EwmhDesktops
 import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.StatusBar
 import           XMonad.Hooks.StatusBar.PP
+import           XMonad.Layout.PerWorkspace
 import           XMonad.Util.Run
 
 import qualified Data.Map                   as M
@@ -53,7 +54,7 @@ myModMask       = mod1Mask
 --
 -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
 --
-myWorkspaces    = map show [1..9]
+myWorkspaces    = ["web", "front", "back", "chat"] <> map show [5..9]
 
 -- Border colors for unfocused and focused windows, respectively.
 --
@@ -114,10 +115,10 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     , ((modm,               xK_t     ), withFocused $ windows . W.sink)
 
     -- Increment the number of windows in the master area
-    , ((modm              , xK_comma ), sendMessage (IncMasterN 1))
+    , ((modm              , xK_comma ), sendMessage $ IncMasterN 1)
 
     -- Deincrement the number of windows in the master area
-    , ((modm              , xK_period), sendMessage (IncMasterN (-1)))
+    , ((modm              , xK_period), sendMessage $ IncMasterN (-1))
 
     -- Toggle the status bar gap
     -- Use this binding with avoidStruts from Hooks.ManageDocks.
@@ -184,17 +185,17 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList
 -- The available layouts.  Note that each layout is separated by |||,
 -- which denotes layout choice.
 --
-myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full)
+myLayout = avoidStruts
+  $ onWorkspaces ["web", "chat"] (makeLayout (1/2))
+  $ makeLayout (1/1.5)
   where
-     -- default tiling algorithm partitions the screen into two panes
-     tiled   = Tall nmaster delta ratio
+    makeLayout ratio = makeLayoutTall ratio ||| Mirror (makeLayoutTall ratio) ||| Full
+
+    makeLayoutTall = Tall nmaster delta
 
     -- The default number of windows in the master pane
     nmaster = 1
 
-     -- Default proportion of screen occupied by master pane
-     ratio   = 1/1.5
-
     -- Percent of screen to increment by when resizing panes
     delta   = 3/100