quality of life changes

xmonad.hs

@@ -61,7 +61,7 @@ import XMonad.Hooks.DynamicLog
     xmobarBorder,
     xmobarColor,
     xmobarRaw,
-    xmobarStrip,
+    xmobarStrip, ppVisible
   )
 import XMonad.Hooks.EwmhDesktops
   ( activateLogHook,
@@ -92,7 +92,7 @@ import XMonad.Util.SpawnOnce (spawnOnce)
 import XMonad.Util.Ungrab (unGrab)
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
 import XMonad.Layout (Resize(Expand,Shrink) )
-import XMonad.Layout.DwmStyle (dwmStyle, shrinkText)
+import XMonad.Layout.NoBorders
 
 main :: IO ()
 main = do
@@ -145,8 +145,9 @@ myXmobarPP colors =
       ppTitleSanitize = xmobarStrip,
       ppCurrent = wrap " " "" . xmobarBorder "Top" (colors !! 6) 2,
       ppHidden = white . wrap " " "",
-      ppHiddenNoWindows = white . wrap " " "",
+      ppHiddenNoWindows = lowWhite . wrap " " "",
       ppUrgent = red . wrap (yellow "!") (yellow "!"),
+      ppVisible = wrap " " "" . xmobarBorder "Bottom" (colors !! 6) 2,
       ppOrder = \[ws, l, _, wins] -> [ws, l, wins],
       ppExtras = [logTitles formatFocused formatUnfocused],
       ppSort = hideWorkspaces
@@ -179,6 +180,7 @@ myStartupHook :: X ()
 myStartupHook = do
   spawnOnce "picom &"
   spawnOnce "sh $HOME/.fehbg"
+  spawnOnce "setxkbmap -option caps:escape"
 
 getWalColors :: IO [String]
 getWalColors = do
@@ -193,7 +195,7 @@ mySpacing' i = spacingRaw True (Border i 0 i i) True (Border i 0 i i) True
 --myWorkspaces = [" dev ", " www ", " sys ", " doc ", " vbox ", " chat ", " mus ", " vid ", " gfx "]
 myWorkspaces :: [String]
 myWorkspaces = show <$> ([1 .. 9] ::[Integer] )
-myLayout =  windowNavigation tiled ||| Mirror tiled ||| Full
+myLayout =  smartBorders $ windowNavigation tiled ||| smartBorders Full ||| Mirror tiled
   where
     tiled = mySpacing' 8 $ Tall nmaster delta ratio
     nmaster = 1 -- Default number of windows in the master pane
@@ -221,9 +223,11 @@ myManageHook =
       title =? "Mozilla Firefox" --> viewShift (myWorkspaces !! 1),
       title =? "Signal" --> viewShift (myWorkspaces !! 2),
       className =? "TelegramDesktop" --> viewShift (myWorkspaces !! 2),
+      className =? "Element" --> viewShift (myWorkspaces !! 2),
+      className =? "Thunderbird" --> viewShift (myWorkspaces !! 2),
       className =? "Gimp" --> doShift (myWorkspaces !! 8),
       (className =? "firefox" <&&> resource =? "Dialog") --> doFloat, -- Float Firefox Dialog
-      className =? "alfaview" --> viewShift (myWorkspaces !! 5),
+      className =? "alfaview" --> viewShift (myWorkspaces !! 3),
       className =? "jetbrains-idea" --> viewShift (myWorkspaces !! 4),
       (className =? "jetbrains-studio") <&&> (title ~=? "win") --> doIgnore
     ]