From e172b4198c474919cd1c5fffdef3fbd5058e9cae Mon Sep 17 00:00:00 2001
From: Baitinq <manuelpalenzuelamerino@gmail.com>
Date: Wed, 6 Jul 2022 03:40:49 +0200
Subject: Xmonad/Xmobar: Add dwm style hidden active workspace icons

---
 dotfiles/xmonad.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs
index 5e60baf..1fe7903 100644
--- a/dotfiles/xmonad.hs
+++ b/dotfiles/xmonad.hs
@@ -199,13 +199,15 @@ myStatusBar = statusBarProp "xmobar" (do
                                                                         then ((xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577") ("  " ++ s ++ "  "))
                                                                         else (xmobarColor "#bbbbbb" "#005577" ("  " ++ s ++ "  "))
                                                                 )
-                                                  , ppTitle = shorten 77
+                                                  , ppTitle = id
                                                   , ppSep = " |  "
                                                   , ppLayout = (\_ -> "")
-                                                  , ppHidden = (\s -> xmobarBorder "Top" "#bbbbbb" 2 ("  " ++ s ++ "  ")) --probs better way to do this
-                                                  , ppHiddenNoWindows =  wrap "  " "  "
+                                                  , ppHidden = (\s -> createDwmBox "#bbbbbb" ("  " ++ s ++ "  ")) --probs better way to do this
+                                                  , ppHiddenNoWindows = wrap "  " "  "
                                           }
                                       )
+                                      where
+                                        createDwmBox color prefix = "<box type=HBoth offset=L19 color="++color++"><box type=Top mt=3 color="++color++"><box type=Top color="++color++">" ++ prefix ++ "</box></box></box>"
 
 main :: IO ()
 main = do
-- 
cgit 1.4.1