-
Notifications
You must be signed in to change notification settings - Fork 0
/
xmonad.hs
39 lines (36 loc) · 1.22 KB
/
xmonad.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import XMonad.ManageHook
import XMonad.Actions.CycleWS
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
myManageHook :: [ManageHook]
myManageHook =
[ resource =? "Do" --> doIgnore
,isFullscreen --> doFullFloat
, className =? "Unity-2d-panel" --> doIgnore ]
-- , className =? "Unity-2d-shell" --> doFloat ]
main = xmonad $ gnomeConfig
{ modMask = mod4Mask
, terminal = "urxvt"
, borderWidth = 2
, manageHook = manageHook gnomeConfig <+> composeAll myManageHook
, logHook = ewmhDesktopsLogHook >> setWMName "LG3D" -- java workaround
, layoutHook = smartBorders $ layoutHook gnomeConfig
}
`additionalKeysP`
[ ("M-S-q", spawn "gnome-session-save --gui --logout-dialog") -- display logout-dialog
-- Lock Screen
, ("M-S-l", spawn "gnome-screensaver-command -l")
, ("M-p", spawn "kupfer")
, ("M-<Space>", spawn "kupfer")
, ("<XF86Forward>", nextWS)
, ("<XF86Back>", prevWS)
, ("M1-<Tab>", windows W.focusDown)
, ("M-<R>", nextScreen)
, ("M-<L>", prevScreen)
]