Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import XMonad
- import XMonad.Layout
- import XMonad.Layout.NoBorders
- import XMonad.Hooks.EwmhDesktops
- import XMonad.Hooks.ManageDocks
- import XMonad.Util.EZConfig
- import XMonad.Hooks.ManageHelpers
- myDefault = ewmh defaultConfig
- myManageHooks = composeAll
- [ appName =? "panel" --> doIgnore
- , appName =? "galculator" --> doFloat
- , manageDocks
- , isFullscreen --> doFullFloat
- ]
- main = xmonad $ myDefault
- { borderWidth = 1
- , manageHook = myManageHooks <+> manageHook myDefault
- , terminal = "sakura"
- , layoutHook = avoidStruts $ smartBorders (layoutHook myDefault)
- , handleEventHook = docksEventHook <+> fullscreenEventHook <+> ewmhDesktopsEventHook <+> handleEventHook myDefault }
- `additionalKeysP`
- [ ("M-b", sendMessage ToggleStruts)
- , ("M-C-l", spawn "slock")
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement