aboutsummaryrefslogtreecommitdiff
path: root/gui/conf/xmonad.hs
diff options
context:
space:
mode:
authorAdrian Kummerlaender2018-06-17 20:53:59 +0200
committerAdrian Kummerlaender2018-06-17 20:53:59 +0200
commit6adb81680046f2d1e38591d8dee14420ed6d8dfd (patch)
tree2f8691aca269d4038ee6b06b5c168b28dc98c558 /gui/conf/xmonad.hs
parent14197c9ea4926d2459db5042b915ca69698b568c (diff)
downloadnixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar.gz
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar.bz2
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar.lz
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar.xz
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.tar.zst
nixos_home-6adb81680046f2d1e38591d8dee14420ed6d8dfd.zip
Fix insertPosition for floating windows, dialogs from scratchpad
Diffstat (limited to 'gui/conf/xmonad.hs')
-rw-r--r--gui/conf/xmonad.hs12
1 files changed, 9 insertions, 3 deletions
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index 71990e9..359e312 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -3,6 +3,7 @@ import XMonad.Util.EZConfig
import XMonad.StackSet
import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.InsertPosition
import XMonad.Layout.NoBorders
@@ -128,6 +129,11 @@ customEventHook = do
handleEventHook def
fullscreenEventHook
+customManageHook = composeOne
+ [ transience
+ , isDialog -?> doCenterFloat
+ , pure True -?> insertPosition Below Newer <+> namedScratchpadManageHook scratchpads ]
+
customLogHook = do
historyHook
customizeBorderWhen (isFloat <&&> isNotFullscreen) "#aadb0f" 6
@@ -141,9 +147,9 @@ main = xmonad $ ewmh
, keys = \c -> mkKeymap c keybindings
, startupHook = return () >> checkKeymap def keybindings
, handleEventHook = customEventHook
- , layoutHook = availableLayouts
- , manageHook = insertPosition Below Newer <+> namedScratchpadManageHook scratchpads
- , logHook = customLogHook }
+ , manageHook = customManageHook
+ , logHook = customLogHook
+ , layoutHook = availableLayouts }
`additionalKeys`
[ ((noModMask, xK_Menu) , namedScratchpadAction scratchpads "terminal") ]