Skip to content

Instantly share code, notes, and snippets.

@VictorDenisov
Last active April 28, 2017 16:29
Show Gist options
  • Save VictorDenisov/8bed15eea8fa2da4accdc7a5ef83e4f9 to your computer and use it in GitHub Desktop.
Save VictorDenisov/8bed15eea8fa2da4accdc7a5ef83e4f9 to your computer and use it in GitHub Desktop.
import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName
import XMonad.Hooks.EwmhDesktops
import XMonad.Config.Xfce
import XMonad.Util.EZConfig (additionalKeys)
myManageHook = composeAll
[ className =? "Xfrun4" --> doCenterFloat
, manageDocks
]
myKeys = [ ((mod4Mask, xK_Print), spawn "scrot")
, ((mod4Mask .|. shiftMask, xK_Print), spawn "sleep 0.2; scrot -s")
]
main = xmonad $ xfceConfig
{ modMask = mod4Mask
--, workspaces = ["1:term","2:vim","3:web","4:comm","5","6","7"]
, terminal = "xfce4-terminal"
, manageHook = myManageHook <+> manageHook xfceConfig
, normalBorderColor = "gray20"
, focusedBorderColor = "gray80"
, startupHook = startupHook xfceConfig >> setWMName "LG3D"
, handleEventHook = fullscreenEventHook <+> handleEventHook xfceConfig
} `additionalKeys` myKeys
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment