|
@@ -27,8 +27,10 @@ import XMonad.Config.Kde
|
|
|
import XMonad.Hooks.EwmhDesktops
|
|
|
|
|
|
main = do
|
|
|
+
|
|
|
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))) |||
|
|
@@ -41,6 +43,10 @@ main = do
|
|
|
|
|
|
simpleTabbed
|
|
|
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
, startupHook = startup
|
|
|
, handleEventHook = handleEventHook def <+> fullscreenEventHook
|
|
|
, modMask = mod4Mask
|
|
@@ -74,8 +80,10 @@ myManageHook = composeAll . concat $
|
|
|
|
|
|
startupList :: [String]
|
|
|
startupList =
|
|
|
- [ "owncloud"
|
|
|
+ [ "feh --bg-scale ~/Owncloud/Backgrounds/Xmbindings.png"
|
|
|
+
|
|
|
, "compton"
|
|
|
+ , "owncloud"
|
|
|
]
|
|
|
|
|
|
startup :: X ()
|