diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 21:06:10 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-04-24 21:10:00 -0600 |
| commit | 07252ce0461d8746481881dbcc6ca07b71fd8553 (patch) | |
| tree | 6392e713485289bae9b6c25bb6f5da0436a5da61 /src/Rahm/Desktop/Keys.hs | |
| parent | 1ff9a98f85df0c3df4e3f1c3f332100922d18317 (diff) | |
| download | rde-07252ce0461d8746481881dbcc6ca07b71fd8553.tar.gz rde-07252ce0461d8746481881dbcc6ca07b71fd8553.tar.bz2 rde-07252ce0461d8746481881dbcc6ca07b71fd8553.zip | |
Roll Windows.hs into R.D.StackSet
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 0f61018..8cb2b76 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -61,7 +61,6 @@ import Rahm.Desktop.RebindKeys import Rahm.Desktop.Submap import Rahm.Desktop.Swallow import Rahm.Desktop.SwapMaster (swapMaster) -import Rahm.Desktop.Windows import Rahm.Desktop.Workspaces import qualified Rahm.Desktop.StackSet as W import Rahm.Desktop.History @@ -174,9 +173,9 @@ keymap = runKeys $ do -- focused. It's pretty annoying because it keeps me from doing some cool -- things all for BS security theater, but I guess there might be some way -- to do this via XTest? - shiftMod $ forAllWindows $ \w -> do + shiftMod $ withWindowSet $ mapM_ (\w -> do logs Info "Try send to %s" (show w) - sendKey (0, xK_a) w + sendKey (0, xK_a) w) . W.allWindows justMod $ doc "Print this documentation" @@ -888,7 +887,7 @@ windowBindings :: XConfig l -> XConfig l windowBindings xconfig = xconfig { startupHook = do - forAllWindows (runQuery doQuery) + withWindowSet $ mapM_ (runQuery doQuery) . W.allWindows startupHook xconfig, manageHook = (doQuery >> return (Endo id)) <> manageHook xconfig |