|
@@ -27,8 +27,10 @@ import XMonad.Config.Kde
|
|
|
import XMonad.Hooks.EwmhDesktops
|
|
|
|
|
|
main = do
|
|
|
+ -- xmproc <- spawnPipe "xmobar"
|
|
|
xmonad $ ewmh $ docks kde4Config
|
|
|
{ manageHook = manageHook kdeConfig <+> myManageHook
|
|
|
+ -- { manageHook = manageDocks <+> 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
|
|
|
-- It's not a bug, it's a feature.
|
|
|
simpleTabbed
|
|
|
|
|
|
+ -- , logHook = dynamicLogWithPP xmobarPP
|
|
|
+ -- { ppOutput = hPutStrLn xmproc
|
|
|
+ -- , ppTitle = xmobarColor "green" "" . shorten 50
|
|
|
+ -- }
|
|
|
, 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"
|
|
|
+ -- , "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --alpha 0 --tint 0x000000 --height 22"
|
|
|
, "compton"
|
|
|
+ , "owncloud"
|
|
|
]
|
|
|
|
|
|
startup :: X ()
|