|  | @@ -24,15 +24,25 @@ import Data.List(elemIndex, foldl1')
 | 
	
		
			
				|  |  |  -- kde
 | 
	
		
			
				|  |  |  import XMonad.Config.Kde
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  | +import XMonad.Hooks.EwmhDesktops
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |  main = do
 | 
	
		
			
				|  |  | -  xmonad $ docks kde4Config
 | 
	
		
			
				|  |  | +  xmonad $ ewmh $ docks kde4Config
 | 
	
		
			
				|  |  |      { manageHook = manageHook kdeConfig <+> myManageHook
 | 
	
		
			
				|  |  |      , layoutHook = smartBorders $ avoidStruts $
 | 
	
		
			
				|  |  |                     (smartSpacing 5 $ withBorder 2 $ Tall 1 (3/100) (1/2)) |||
 | 
	
		
			
				|  |  |                     (smartSpacing 5 $ withBorder 2 $ Mirror (Tall 1 (3/100) (1/2))) |||
 | 
	
		
			
				|  |  | -                   Full |||
 | 
	
		
			
				|  |  | -                   tabbed shrinkText def
 | 
	
		
			
				|  |  | +                   -- Full |||
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  | +                   -- Tabs are bugged/don't work in ewmh. On the
 | 
	
		
			
				|  |  | +                   -- bright side, it makes a window float over KDE's
 | 
	
		
			
				|  |  | +                   -- bar, which is what I want fullscreen to do.
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  | +                   -- It's not a bug, it's a feature.
 | 
	
		
			
				|  |  | +                   simpleTabbed
 | 
	
		
			
				|  |  | +
 | 
	
		
			
				|  |  |      , startupHook = startup
 | 
	
		
			
				|  |  | +    , handleEventHook = handleEventHook def <+> fullscreenEventHook
 | 
	
		
			
				|  |  |      , modMask     = mod4Mask
 | 
	
		
			
				|  |  |      } `additionalKeys` myKeys `removeKeys` myRemoveKeys
 | 
	
		
			
				|  |  |  
 |