Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

simple ewmh xmonad.hs

By: a guest on Mar 11th, 2013  |  syntax: Haskell  |  size: 0.82 KB  |  views: 121  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.     ]
clone this paste RAW Paste Data