slackcals

-- from:  https://mail.haskell.org/pipermail/xmonad/2009-May/007979.html

  logHook = ...other stuff... >> checkKBLayout

  ...

  checkKBLayout :: X ()
  checkKBLayout = do
    curTag <- gets (W.currentTag . windowset)
    when (curTag == "foo") $ spawn "set keyboard layout"

slackcals

--
-- Is there a more efficient/elegant way to do this?
--
-- Objective: To disable/enable the mouse cursor for specific windows
--

...
...
checkMouseDisable :: X ()
checkMouseDisable = do