diff options
Diffstat (limited to 'dotfiles/xmonad.hs')
| -rw-r--r-- | dotfiles/xmonad.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs index 95f36a2..3280f51 100644 --- a/dotfiles/xmonad.hs +++ b/dotfiles/xmonad.hs @@ -46,6 +46,8 @@ import XMonad.Actions.CycleWS import XMonad.Hooks.EwmhDesktops +import XMonad.Util.ClickableWorkspaces + ------------------------------------------------------------------------ -- Workspaces -- The default number of workspaces (virtual screens) and their names. @@ -224,8 +226,8 @@ myStatusBar = statusBarProp "xmobar" (do , ppTitle = id , ppSep = " | " , ppLayout = (\_ -> "") - , ppHidden = createDwmBox "#bbbbbb" . wrap " " " " - , ppHiddenNoWindows = wrap " " " " + , ppHidden = (\s -> clickableWrap ((read s::Int) - 1) (createDwmBox "#bbbbbb" (" " ++ s ++ " "))) --better way to clickablewrap . + , ppHiddenNoWindows = (\s -> clickableWrap ((read s::Int) - 1) (" " ++ s ++ " ")) } ) where |