|  | @@ -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 ()
 |