diff options
| author | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-06 20:01:31 +0200 |
|---|---|---|
| committer | Baitinq <manuelpalenzuelamerino@gmail.com> | 2022-07-06 20:01:31 +0200 |
| commit | be9705f4f42954916aaf0c94b17e3ae57a699ebe (patch) | |
| tree | cc9d1dfce4c249d785ed2f59e10f9301b3486b48 /dotfiles/xmonad.hs | |
| parent | XMonad: Add proper fullscreen capabilities (diff) | |
| download | nixos-config-be9705f4f42954916aaf0c94b17e3ae57a699ebe.tar.gz nixos-config-be9705f4f42954916aaf0c94b17e3ae57a699ebe.tar.bz2 nixos-config-be9705f4f42954916aaf0c94b17e3ae57a699ebe.zip | |
XMonad+XMobar: add clickable workspaces
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 |