From 724076bece96dbfd211dcd98cd5aabcf07c29629 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 16 Feb 2020 01:01:36 -0500
Subject: [PATCH] ENH make xmobar workspace list pretty

---
 xmonad.hs | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index e959d56..803854f 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -71,14 +71,25 @@ myLayouts = onWorkspace "VM" (lessBorders OnlyScreenFloat Full) $
 -- that currently has focus
 myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama
 
-myWindowSetXinerama ws = "[" ++ unwords onscreen ++ "] " ++
-  unwords offscreen ++ " | " ++ layout
+myWindowSetXinerama ws = wsString ++ sep ++ layout
   where
-    onscreen = map (fmtTags . W.tag . W.workspace)
-      . sortBy compareXCoord $ W.current ws : W.visible ws
-    fmtTags t = if t == W.currentTag ws then wrap "<" ">" t else t
-    offscreen = map W.tag . filter (isJust . W.stack)
-      . sortBy (comparing W.tag) $ W.hidden ws
+    wsString = xmobarColor "#444444" "" $ onscreen ++ " " ++ offscreen 
+    sep = xmobarColor "#888888" "" " : "
+    onscreen = xmobarColor "#5574ad" visColor
+      $ wrap " " " "
+      $ unwords
+      $ map (fmtTags . W.tag . W.workspace)
+      . sortBy compareXCoord
+      $ W.current ws : W.visible ws
+    fmtTags t = if t == W.currentTag ws
+      then xmobarColor "#2c2c2c" visColor t
+      else t
+    offscreen = unwords
+      $ map W.tag
+      . filter (isJust . W.stack)
+      . sortBy (comparing W.tag)
+      $ W.hidden ws
+    visColor = "#8fc7ff"
     layout = description . W.layout . W.workspace . W.current $ ws
     compareXCoord s0 s1 = compare x0 x1
       where