diff options
| author | Josh Rahm <rahm@google.com> | 2023-11-30 18:56:15 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-11-30 18:56:15 -0700 |
| commit | 2a7d413e1b69e8b7f3a116951999c0f5bc1ec974 (patch) | |
| tree | eb470493cb6be185107f5203e908f5b71706a1bf /src/Rahm/Desktop/Common.hs | |
| parent | 73216dfd16231e90950c43a76d12529af77e5c83 (diff) | |
| download | rde-2a7d413e1b69e8b7f3a116951999c0f5bc1ec974.tar.gz rde-2a7d413e1b69e8b7f3a116951999c0f5bc1ec974.tar.bz2 rde-2a7d413e1b69e8b7f3a116951999c0f5bc1ec974.zip | |
Better modelling for moving between windows. Reworked shifting windows and made the movement atomic to improve speed
Diffstat (limited to 'src/Rahm/Desktop/Common.hs')
| -rw-r--r-- | src/Rahm/Desktop/Common.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs index 01fa35b..993726b 100644 --- a/src/Rahm/Desktop/Common.hs +++ b/src/Rahm/Desktop/Common.hs @@ -19,6 +19,7 @@ module Rahm.Desktop.Common ) where +import Rahm.Desktop.Logger import Data.Void (absurd, Void (..)) import Data.Either (either) import Control.Applicative ((<*)) @@ -149,12 +150,10 @@ withBorderColorE color wins fn = do lift $ setWindowBorderWithFallback d w colorName px myFinallyE fn $ - lift $ - withFocused $ \fw -> do - forM_ wins $ \w -> - when (w /= fw) $ - setWindowBorderWithFallback d w oColorName oPx - + lift $ do + forM_ wins $ \w -> + setWindowBorderWithFallback d w oColorName oPx + withFocused $ \fw -> setWindowBorderWithFallback d fw fColorName fPx withBorderColorM :: String -> [Window] -> MaybeT X a -> MaybeT X a |