-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathxmonad_kde.hs
More file actions
20 lines (17 loc) · 779 Bytes
/
xmonad_kde.hs
File metadata and controls
20 lines (17 loc) · 779 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
import XMonad
import XMonad.Config.Kde
import qualified XMonad.StackSet as W -- to shift and float windows
main = xmonad kdeConfig
{ modMask = mod4Mask -- use the Windows button as mod
, manageHook = manageHook kdeConfig <+> myManageHook
}
myManageHook = composeAll . concat $
[ [ className =? c --> doFloat | c <- myFloats]
, [ title =? t --> doFloat | t <- myOtherFloats]
, [ className =? c --> doF (W.shift "2") | c <- webApps]
, [ className =? c --> doF (W.shift "3") | c <- ircApps]
]
where myFloats = ["MPlayer", "Gimp"]
myOtherFloats = ["alsamixer"]
webApps = ["Firefox-bin", "Opera"] -- open on desktop 2
ircApps = ["Ksirc"] -- open on desktop 3