Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import XMonad
- import XMonad.Hooks.FadeInactive
- import XMonad.Config.Gnome
- import XMonad.Hooks.ManageDocks
- import qualified Data.Map as M
- import XMonad.Util.EZConfig(additionalKeys)
- import qualified XMonad.StackSet as W
- import XMonad.Hooks.ManageHelpers
- import XMonad.Layout.NoBorders
- myManageHook = composeAll [
- (role =? "gimp-toolbox" <||> role =? "gimp-image-window") --> (ask >>= doF . W.sink)
- , isFullscreen --> doFullFloat
- , (className =? "Gnome-panel" <&&> title =? "Run Application") --> doFloat
- , (className =? "Gnome-panel") --> doFloat
- ]
- where role = stringProperty "WM_WINDOW_ROLE"
- --Fading
- myLogHook :: X()
- myLogHook = fadeInactiveLogHook fadeAmount
- where fadeAmount = 0.8
- main = xmonad $ gnomeConfig {
- modMask = mod4Mask
- , manageHook = myManageHook <+> manageDocks <+> manageHook gnomeConfig
- , layoutHook = smartBorders (avoidStruts $ layoutHook gnomeConfig)
- , logHook = myLogHook
- } `additionalKeys`
- [ ((mod4Mask, xK_b), sendMessage ToggleStruts) ]
Add Comment
Please, Sign In to add comment