SHARE
TWEET

simple ewmh xmonad.hs

a guest Mar 11th, 2013 132 Never
  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
Top