twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

ClickableWorkspace Improvement for X.A.DynamicWorkspaces

Browse Source
This commit is contained in:
oogeek 2021-04-12 22:02:54 +08:00
parent f5464224e2
commit a33de7f73a
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
XMonad/Util/ClickableWorkspaces.hs
View File

@ -26,8 +26,9 @@ import Data.Functor ((<&>))
import XMonad
import XMonad.Hooks.StatusBar.PP (xmobarAction, PP(..))
import XMonad.Util.WorkspaceCompare (getWsIndex)
import XMonad.Util.WorkspaceCompare (getSortByIndex)
import qualified XMonad.StackSet as W
import Data.List (elemIndex)
-- $usage
-- If you're using the "XMonad.Hooks.StatusBar" interface, apply 'clickablePP'
@ -55,6 +56,19 @@ import qualified XMonad.StackSet as W
clickableWrap :: Int -> String -> String
clickableWrap i ws = xmobarAction ("xdotool set_desktop " ++ show i) "1" ws
-- Note that 'getWsIndex' from "XMonad.Util.WorkspaceCompare" only works for
-- predefined workspaces. When used together with "XMonad.Action.DynamicWorkspaces",
-- 'getWsIndex' needs to be rewritten to get the correct index of a workspace.
-- The workspace order perceived by @xdotool@ is the same as that by 'getSortByIndex'.
-- So 'getSortByIndex' is used in such case.
-- | Return the index of a workspace if it exists.
getWsIndex :: X (WorkspaceId -> Maybe Int)
getWsIndex = do
wSort <- getSortByIndex
spaces <- gets (map W.tag . wSort . W.workspaces . windowset)
return $ flip elemIndex spaces
-- | Return a function that wraps workspace names in an xmobar action that
-- switches to that workspace.
--