From 6adb81680046f2d1e38591d8dee14420ed6d8dfd Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sun, 17 Jun 2018 20:53:59 +0200
Subject: Fix insertPosition for floating windows, dialogs from scratchpad

---
 gui/conf/xmonad.hs | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'gui/conf')

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") ]
 
-- 
cgit v1.2.3