diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2023-12-07 00:50:01 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2023-12-07 00:50:54 -0700 |
| commit | 87b103a4995fd2b6bbd1e72c446fd789caf5a050 (patch) | |
| tree | 91e54916d8ced30a62b6c75ea278a10ba3a52341 /src/Main.hs | |
| parent | 83543b4972edcebf3d9e568ed6a556ce074daa06 (diff) | |
| download | rde-87b103a4995fd2b6bbd1e72c446fd789caf5a050.tar.gz rde-87b103a4995fd2b6bbd1e72c446fd789caf5a050.tar.bz2 rde-87b103a4995fd2b6bbd1e72c446fd789caf5a050.zip | |
Experimental ability to pin a window using Mod+p
A pinned window will always try to stay on the same screen in the sname
position if it can.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 507bd43..fa24255 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -67,6 +67,7 @@ import XMonad.Hooks.ManageHelpers (doFullFloat, isFullscreen) import XMonad.Layout.Fullscreen (fullscreenEventHook) import Data.List (isPrefixOf) import Rahm.Desktop.Keys.Wml (wmlLogHook) +import Rahm.Desktop.PinWindow (pinWindowChangeHook, pinWindowBorderUpdate) main = do logHook <- xMobarLogHook @@ -83,7 +84,7 @@ main = do (=<<) X.xmonad $ applyKeys $ - withStackChangeHook historyHook $ + withStackChangeHook (pinWindowChangeHook <> historyHook) $ ewmh $ docks $ def @@ -129,7 +130,7 @@ main = do ], focusFollowsMouse = False, clickJustFocuses = False, - logHook = wmlLogHook >> logHook xmobar + logHook = wmlLogHook >> pinWindowBorderUpdate >> logHook xmobar } -- Should the chrome window float? Returns false if the window's title starts |