| 
														
															@@ -27,8 +27,10 @@ import XMonad.Config.Kde 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 import XMonad.Hooks.EwmhDesktops 
														 | 
														
														 | 
														
															 import XMonad.Hooks.EwmhDesktops 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 main = do 
														 | 
														
														 | 
														
															 main = do 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+  -- xmproc <- spawnPipe "xmobar" 
														 | 
													
												
											
												
													
														| 
														 | 
														
															   xmonad $ ewmh $ docks kde4Config 
														 | 
														
														 | 
														
															   xmonad $ ewmh $ docks kde4Config 
														 | 
													
												
											
												
													
														| 
														 | 
														
															     { manageHook = manageHook kdeConfig <+> myManageHook 
														 | 
														
														 | 
														
															     { manageHook = manageHook kdeConfig <+> myManageHook 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+    -- { manageHook = manageDocks <+> manageHook kdeConfig <+> myManageHook 
														 | 
													
												
											
												
													
														| 
														 | 
														
															     , layoutHook = smartBorders $ avoidStruts $ 
														 | 
														
														 | 
														
															     , layoutHook = smartBorders $ avoidStruts $ 
														 | 
													
												
											
												
													
														| 
														 | 
														
															                    (smartSpacing 5 $ withBorder 2 $ Tall 1 (3/100) (1/2)) ||| 
														 | 
														
														 | 
														
															                    (smartSpacing 5 $ withBorder 2 $ Tall 1 (3/100) (1/2)) ||| 
														 | 
													
												
											
												
													
														| 
														 | 
														
															                    (smartSpacing 5 $ withBorder 2 $ Mirror (Tall 1 (3/100) (1/2))) ||| 
														 | 
														
														 | 
														
															                    (smartSpacing 5 $ withBorder 2 $ Mirror (Tall 1 (3/100) (1/2))) ||| 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -41,6 +43,10 @@ main = do 
														 | 
													
												
											
												
													
														| 
														 | 
														
															                    -- It's not a bug, it's a feature. 
														 | 
														
														 | 
														
															                    -- It's not a bug, it's a feature. 
														 | 
													
												
											
												
													
														| 
														 | 
														
															                    simpleTabbed 
														 | 
														
														 | 
														
															                    simpleTabbed 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+    -- , logHook = dynamicLogWithPP xmobarPP 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+    --   { ppOutput = hPutStrLn xmproc 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+    --   , ppTitle = xmobarColor "green" "" . shorten 50 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+    --   } 
														 | 
													
												
											
												
													
														| 
														 | 
														
															     , startupHook = startup 
														 | 
														
														 | 
														
															     , startupHook = startup 
														 | 
													
												
											
												
													
														| 
														 | 
														
															     , handleEventHook = handleEventHook def <+> fullscreenEventHook 
														 | 
														
														 | 
														
															     , handleEventHook = handleEventHook def <+> fullscreenEventHook 
														 | 
													
												
											
												
													
														| 
														 | 
														
															     , modMask     = mod4Mask 
														 | 
														
														 | 
														
															     , modMask     = mod4Mask 
														 | 
													
												
											
										
											
												
													
														 | 
														
															@@ -74,8 +80,10 @@ myManageHook = composeAll . concat $ 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 startupList :: [String] 
														 | 
														
														 | 
														
															 startupList :: [String] 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 startupList = 
														 | 
														
														 | 
														
															 startupList = 
														 | 
													
												
											
												
													
														| 
														 | 
														
															-  [ "owncloud" 
														 | 
														
														 | 
														
															 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+  [ "feh --bg-scale ~/Owncloud/Backgrounds/Xmbindings.png" 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+  -- , "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --alpha 0 --tint 0x000000 --height 22" 
														 | 
													
												
											
												
													
														| 
														 | 
														
															   , "compton" 
														 | 
														
														 | 
														
															   , "compton" 
														 | 
													
												
											
												
													
														| 
														 | 
														
															 
														 | 
														
														 | 
														
															+  , "owncloud" 
														 | 
													
												
											
												
													
														| 
														 | 
														
															   ] 
														 | 
														
														 | 
														
															   ] 
														 | 
													
												
											
												
													
														| 
														 | 
														
															  
														 | 
														
														 | 
														
															  
														 | 
													
												
											
												
													
														| 
														 | 
														
															 startup :: X () 
														 | 
														
														 | 
														
															 startup :: X () 
														 |