SHARE
TWEET

simple ewmh xmonad.hs

a guest Mar 11th, 2013 297 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. import XMonad
  2. import XMonad.Layout
  3. import XMonad.Layout.NoBorders
  4. import XMonad.Hooks.EwmhDesktops
  5. import XMonad.Hooks.ManageDocks
  6. import XMonad.Util.EZConfig
  7. import XMonad.Hooks.ManageHelpers
  8.  
  9. myDefault = ewmh defaultConfig
  10.  
  11. myManageHooks = composeAll
  12.     [ appName =? "panel" --> doIgnore
  13.     , appName =? "galculator" --> doFloat
  14.     , manageDocks
  15.     , isFullscreen --> doFullFloat
  16.     ]
  17.  
  18. main = xmonad $ myDefault
  19.     { borderWidth = 1
  20.     , manageHook = myManageHooks <+> manageHook myDefault
  21.     , terminal = "sakura"
  22.     , layoutHook = avoidStruts $ smartBorders (layoutHook myDefault)
  23.     , handleEventHook = docksEventHook <+> fullscreenEventHook <+> ewmhDesktopsEventHook <+> handleEventHook myDefault  }
  24.     `additionalKeysP`
  25.     [ ("M-b", sendMessage ToggleStruts)
  26.     , ("M-C-l", spawn "slock")
  27.     ]
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top