diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-16 11:35:09 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-04-16 11:35:09 -0600 |
| commit | 4114631cb78f5c21a70ae5fe697b8230e965c1fb (patch) | |
| tree | 6baf9a882b5df229d648df3ecb956ca5313bc791 /src/Main.hs | |
| parent | e7d0c65ef807cf6d595273a764ec95d17c8708b5 (diff) | |
| parent | 65456557536f7886ae079fa2b980a1ef7f0619c0 (diff) | |
| download | rde-4114631cb78f5c21a70ae5fe697b8230e965c1fb.tar.gz rde-4114631cb78f5c21a70ae5fe697b8230e965c1fb.tar.bz2 rde-4114631cb78f5c21a70ae5fe697b8230e965c1fb.zip | |
Merge branch 'v017' of josher.dev:rde into v017
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index 56c66f5..edce3fb 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -11,6 +11,7 @@ import XMonad.Layout.Fullscreen (fullscreenEventHook) import System.Environment (setEnv) import Data.Monoid import qualified Data.Map as Map +import Text.Printf import Rahm.Desktop.Swallow import Rahm.Desktop.Windows @@ -20,6 +21,8 @@ import Rahm.Desktop.Layout import Rahm.Desktop.Logger import Rahm.Desktop.DMenu (menuCommandString) import Rahm.Desktop.RebindKeys +import Rahm.Desktop.Hooks.WindowChange +import Rahm.Desktop.History import qualified XMonad as X import qualified XMonad.StackSet as W @@ -35,8 +38,8 @@ main = do xmobar <- spawnXMobar - (=<<) X.xmonad $ - applyKeys $ ewmh $ docks $ def + (=<<) X.xmonad $ + applyKeys $ withLocationChangeHook historyHook $ ewmh $ docks $ def { terminal = "alacritty" , modMask = mod3Mask , borderWidth = 2 @@ -75,6 +78,10 @@ main = do } +changeHook :: Location -> Location -> X () +changeHook l1 l2 = do + logs $ printf "Change %s -> %s" (show l1) (show l2) + doCenterFloat :: ManageHook doCenterFloat = ask >>= \w -> doF . W.float w . centerRect . snd =<< liftX (floatLocation w) |