diff options
| author | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-06 03:40:49 +0200 |
|---|---|---|
| committer | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-06 11:54:45 +0200 |
| commit | e172b4198c474919cd1c5fffdef3fbd5058e9cae (patch) | |
| tree | 986847b85f9e78cb6a1efae8e11200e0fab3243f /dotfiles/xmonad.hs | |
| parent | sxhkd: dmenu_run: Increase dmenu height to match xmobar (diff) | |
| download | nixos-config-e172b4198c474919cd1c5fffdef3fbd5058e9cae.tar.gz nixos-config-e172b4198c474919cd1c5fffdef3fbd5058e9cae.tar.bz2 nixos-config-e172b4198c474919cd1c5fffdef3fbd5058e9cae.zip | |
Xmonad/Xmobar: Add dwm style hidden active workspace icons
Diffstat (limited to 'dotfiles/xmonad.hs')
| -rw-r--r-- | dotfiles/xmonad.hs | 8 |
1 files 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 |