mirror of
https://github.com/correl/xmonadcfg.git
synced 2024-11-23 19:19:56 +00:00
33 lines
1.2 KiB
Haskell
33 lines
1.2 KiB
Haskell
import XMonad
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Util.Run(spawnPipe)
|
|
import XMonad.Util.EZConfig(additionalKeys)
|
|
import System.IO
|
|
|
|
myManageHook = composeAll
|
|
[ resource =? "Do" --> doIgnore
|
|
, className =? "Gimp" --> doFloat
|
|
, className =? "Vncviewer" --> doFloat
|
|
]
|
|
|
|
myBorderWidth = 2
|
|
|
|
main = do
|
|
xmproc <- spawnPipe "xmobar"
|
|
xmonad $ defaultConfig
|
|
{ manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above
|
|
<+> manageHook defaultConfig
|
|
, layoutHook = avoidStruts $ layoutHook defaultConfig
|
|
, logHook = dynamicLogWithPP $ xmobarPP
|
|
{ ppOutput = hPutStrLn xmproc
|
|
, ppTitle = xmobarColor "green" "" . shorten 50
|
|
}
|
|
{-, modMask = mod4Mask -- Rebind Mod to the Windows key-}
|
|
{-, handleEventHook = fullScreenEventHook-}
|
|
, terminal = "terminator"
|
|
} `additionalKeys`
|
|
[ ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
|
|
, ((0, xK_Print), spawn "scrot")
|
|
]
|