From fd61bf44f45a6832dd56bf6fbbd59a06f80dd2d9 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kj@orbekk.com>
Date: Tue, 19 May 2020 21:08:12 -0400
Subject: Some stuff from firelink

---
 xmonad/xmonad.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'xmonad/xmonad.hs')

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 4df0d58..b8989c8 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -2,6 +2,7 @@ import System.Posix.Unistd (nodeName, getSystemID)
 import System.Posix.Env (setEnv)
 import XMonad
 import XMonad.Actions.CycleWS
+import XMonad.Config.Kde
 import XMonad.Config.Desktop
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageDocks
@@ -33,7 +34,7 @@ main = do
 layoutScreensHost = "unused" -- orange
 
 myConfig host =
-  (docks . ewmh) $ desktopConfig
+  (docks . ewmh) $ kdeConfig
     { layoutHook = smartBorders $ myLayout
     , keys = myKeys
     , modMask = mod4Mask
@@ -42,7 +43,7 @@ myConfig host =
     , focusedBorderColor = "#ff0000"
     , normalBorderColor = "#777778"
     , workspaces = pure <$> "\"<>PYFAOEUI"
-    , manageHook = insertPosition Below Newer <+> (isDialog --> doF W.shiftMaster <+> doF W.swapDown)
+    , manageHook = manageHook kdeConfig <+> insertPosition Below Newer <+> (isDialog --> doF W.shiftMaster <+> doF W.swapDown)
     }
   where myLayout = onHost layoutScreensHost (verticalTiled ||| horizontalTiled ||| Full) $
                    layoutHook desktopConfig
-- 
cgit v1.2.3