diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-01-14 00:34:41 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-01-14 00:34:41 -0700 |
| commit | d3354e4a7099bd7b70973a66b836ba4f63b60bd6 (patch) | |
| tree | 73518e32a1b78aedeedbae4b596d04713c5908e0 /src/Main.hs | |
| parent | 0f05c8b099cc6a1f6299f095d96e6a79d4a96b4c (diff) | |
| parent | 0bde08d5180d08ef102d3d5bff0f50f2e7533e4e (diff) | |
| download | rde-d3354e4a7099bd7b70973a66b836ba4f63b60bd6.tar.gz rde-d3354e4a7099bd7b70973a66b836ba4f63b60bd6.tar.bz2 rde-d3354e4a7099bd7b70973a66b836ba4f63b60bd6.zip | |
Merge branch 'v017' of josher.dev:rde into v017
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index da3b4f1..f70496c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -13,9 +13,10 @@ import Data.Monoid import Internal.XMobarLog import Internal.Keys import Internal.Layout +import Internal.DMenu (menuCommandString) import qualified XMonad as X -import qualified XMonad.StackSet as S +import qualified XMonad.StackSet as W main = do @@ -24,6 +25,7 @@ main = do let fp = homeDir </> ".xmonad" </> "startup" setEnv "SUDO_ASKPASS" "/usr/bin/ssh-askpass" + setEnv "ROFI" menuCommandString xmobar <- spawnXMobar @@ -43,7 +45,8 @@ main = do , className =? "yakuake" --> doFloat , className =? "MPlayer" --> doFloat , title =? "Event Tester" --> doFloat - , title =? "Floating Term" --> doFloat + , title =? "Floating Term" --> doCenterFloat + , title =? "Notes" --> doCenterFloat , title =? "xmessage" --> doFloat , title =? "gxmessage" --> doFloat , className =? "mpv" --> doFloat @@ -55,3 +58,10 @@ main = do , clickJustFocuses = False , logHook = xMobarLogHook xmobar } + +doCenterFloat :: ManageHook +doCenterFloat = + ask >>= \w -> doF . W.float w . centerRect . snd =<< liftX (floatLocation w) + +centerRect :: W.RationalRect -> W.RationalRect +centerRect (W.RationalRect x y w h) = W.RationalRect ((1 - w) / 2) ((1 - h) / 2) w h |