nix/wm/xmonad: some cosmetic changes

nix/wm/xmonad/config.hs

@@ -61,21 +61,23 @@ myBorderWidth   = 2
 --
 myModMask       = mod1Mask
 
--- The default number of workspaces (virtual screens) and their names.
+webWs = "web"
--- By default we use numeric strings, but any string may be used as a
+finWs = "fin"
--- workspace name. The number of workspaces is determined by the length
+sysWs = "sys"
--- of this list.
+comWs = "com"
---
+devWs = ["dev", "dev2", "dev3"]
--- A tagging example:
+myWorkspaces = [webWs] <> devWs <> [finWs, sysWs, comWs]
---
--- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
---
-myWorkspaces    = ["web", "dev", "dev2", "dev3", "fin", "sys", "com"]
 
+
+blue   = "#2E9AFE"
+gray   = "#7F7F7F"
+orange = "#ea4300"
+purple = "#9058c7"
+red    = "#722222"
 -- Border colors for unfocused and focused windows, respectively.
 --
-myNormalBorderColor  = "#444"
+myNormalBorderColor  = gray
-myFocusedBorderColor = "#2E9AFE"
+myFocusedBorderColor = blue
 
 main :: IO ()
 main = mkDbusClient >>= main'
@@ -128,12 +130,6 @@ dbusOutput dbus str =
 polybarHook :: D.Client -> PP
 polybarHook dbus =
   let wrapper c = wrap ("%{F" <> c <> "}") "%{F-}"
-
-      blue   = "#2E9AFE"
-      gray   = "#7F7F7F"
-      orange = "#ea4300"
-      purple = "#9058c7"
-      red    = "#722222"
   in  def { ppOutput          = dbusOutput dbus
           , ppCurrent         = wrapper blue
           , ppVisible         = wrapper purple
@@ -159,8 +155,12 @@ myPolybarLogHook dbus = myLogHook <+> dynamicLogWithPP (polybarHook dbus)
 myLayout = avoidStruts . smartBorders $ (Mirror tiled ||| tiled ||| column3 ||| full)
   where
     full = Full
-    tiled = gapSpaced 5 $ Tall 1 (3/100) (1/2)
+    tiled = gapSpaced 5 $ Tall nmaster incRatio ratio
-    column3 = gapSpaced 5 $ ThreeColMid 1 (3/100) (1/2)
+    column3 = gapSpaced 5 $ ThreeColMid nmaster incRatio ratio
+
+    nmaster = 1
+    incRatio = (3/100)
+    ratio = (1/2)
 
     gapSpaced g = spacing g . myGaps g
     myGaps gap = gaps [(U, gap), (D, gap), (L, gap), (R, gap)]
@@ -218,8 +218,8 @@ myManageHook = composeAll
   , className =? "Gnome-calculator"       --> doFloat
   , className =? "Gnome-font-viewer"      --> doFloat
   , className =? "Org.gnome.Nautilus"     --> doFloat
-  , resource  =? "telegram-desktop"       --> doShift "com"
+  , resource  =? "telegram-desktop"       --> doShift comWs
-  , className =? "Thunderbird"            --> doShift "com"
+  , className =? "Thunderbird"            --> doShift comWs
   -- my libs
   , resource  =? "hwt"                    --> doFloat
   ]