Advertisement
travnewmatic

Untitled

Oct 20th, 2014
209
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.00 KB | None
  1. -- default desktop configuration for Fedora
  2.  
  3. import System.Posix.Env (getEnv)
  4. import Data.Maybe (maybe)
  5.  
  6. import XMonad
  7. import XMonad.Config.Desktop
  8. import XMonad.Config.Gnome
  9. import XMonad.Config.Kde
  10. import XMonad.Config.Xfce
  11.  
  12. import XMonad.Hooks.DynamicLog
  13. import XMonad.Hooks.ManageDocks
  14. import XMonad.Util.Run(spawnPipe)
  15. import XMonad.Util.EZConfig(additionalKeys)
  16. import System.IO
  17.  
  18. main = do
  19. xmonad $ defaultConfig
  20. { manageHook = manageDocks <+> manageHook defaultConfig
  21. , layoutHook = avoidStruts $ layoutHook defaultConfig
  22. , modMask = mod4Mask -- Rebind Mod to the Windows key
  23. } `additionalKeys`
  24. [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
  25. , ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
  26. , ((0, xK_Print), spawn "scrot")
  27. ]
  28.  
  29. desktop "gnome" = gnomeConfig
  30. desktop "kde" = kde4Config
  31. desktop "xfce" = xfceConfig
  32. desktop "xmonad-mate" = gnomeConfig
  33. desktop _ = desktopConfig
Advertisement
RAW Paste Data Copied
Advertisement