From 685b7fa387f54557818beec71df3b6fa07a00921 Mon Sep 17 00:00:00 2001
From: ItsDrike <itsdrike@protonmail.com>
Date: Fri, 15 Oct 2021 20:11:11 +0200
Subject: [PATCH] Improve xmobar design from  xmonad log hook

---
 home/.config/xmonad/xmonad.hs | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/home/.config/xmonad/xmonad.hs b/home/.config/xmonad/xmonad.hs
index 393a9e9..2134950 100644
--- a/home/.config/xmonad/xmonad.hs
+++ b/home/.config/xmonad/xmonad.hs
@@ -82,7 +82,7 @@ myFocusedBorderColor :: String
 myFocusedBorderColor = "#bc96da"
 
 -- Default workspaces. Number of workspaces is determined by the list length.
-myWorkspaces = ["dev", "www", "sys", "chat", "mus", "vid", "doc", "virt", "etc"]
+myWorkspaces = [" dev ", " www ", " sys ", " chat ", " mus ", " vid ", " doc ", " virt ", " etc "]
 myWorkspaceIndices = M.fromList $ zipWith (,) myWorkspaces [1..] -- (,) == \x y -> (x,y)
 
 -- Make the workspaces clickable
@@ -347,15 +347,18 @@ myLogHook :: Handle -> Handle -> X ()
 myLogHook xmproc0 xmproc1 = dynamicLogWithPP $ xmobarPP
     { ppOutput = \x -> hPutStrLn xmproc0 x      -- xmobar on monitor 1
                     >> hPutStrLn xmproc1 x      -- xmobar on monitor 2
-    , ppCurrent = xmobarColor "#98be65" "" . wrap " [" "] "               -- Current workspace
-    , ppVisible = xmobarColor "#98be65" "" . wrap " " " " . clickable     -- Visible but not current workspace
-    , ppHidden  = xmobarColor "#82AAFF" "" . wrap " *" " " . clickable    -- Hidden workspaces
-    , ppHiddenNoWindows = xmobarColor "#c792ea" "" . wrap " " " " . clickable -- Hidden workspaces (no windows)
-    , ppTitle  = xmobarColor "#b3afc2" "" . shorten 60                    -- Title of active window
-    , ppSep    = "<fc=#666666> | </fc>"                                   -- Separator character
-    , ppUrgent = xmobarColor "#C45500" "" . wrap " !" "! "                -- Urgent workspace
-    , ppExtras = [windowCount]                                            -- # of windows current workspace
-    , ppOrder  = \(ws:l:t:ex) -> [ws,l]++ex++[t]                          -- order of things in xmobar
+
+    , ppCurrent = xmobarColor "#98be65" ""                      -- Current workspace
+        . wrap "<box type=Bottom width=2 mb=2 color=#98be65>" "</box>" . clickable
+    , ppVisible = xmobarColor "#98be65" "" .clickable           -- Visible but not current workspace
+    , ppHidden  = xmobarColor "#82aaff" "" . clickable          -- Hidden workspaces
+    , ppHiddenNoWindows = xmobarColor "#c792ea" "" . clickable  -- Hidden workspaces (no windows)
+
+    , ppTitle  = xmobarColor "#b3afc2" "" . shorten 60          -- Title of active window
+    , ppSep    = "<fc=#666666> | </fc>"                         -- Separator character
+    , ppUrgent = xmobarColor "#c45500" "" . wrap "!" "!"      -- Urgent workspace
+    , ppExtras = [windowCount]                                  -- # of windows current workspace
+    , ppOrder  = \(ws:l:t:ex) -> [ws,l]++ex++[t]                -- order of things in xmobar
     }