57 lines
1.7 KiB
Plaintext
57 lines
1.7 KiB
Plaintext
import XMonad
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Util.Run(spawnPipe)
|
|
import XMonad.Util.EZConfig(additionalKeys)
|
|
import System.IO
|
|
|
|
|
|
-- Font
|
|
myFont = "-*-terminus-*-*-*-*-12-*-*-*-*-*-iso8859-*"
|
|
|
|
-- Colors
|
|
myBgBgColor = "black"
|
|
myFgColor = "gray80"
|
|
myBgColor = "gray20"
|
|
|
|
|
|
|
|
|
|
-- Dzen2 stuff
|
|
-----------------
|
|
--
|
|
myDzenGenOpts = "-fg '" ++ myFgColor ++ "' -bg '" ++ myBgColor ++ "' -fn '" ++ myFont ++ "' -h '16'"
|
|
|
|
-- Status Bar
|
|
myStatusBar = "dzen2 -w 665 -ta l " ++ myDzenGenOpts
|
|
|
|
-- Conky Bar
|
|
myConkyBar = "conky -c ~/.conky_bar | dzen2 -x 660 -w 365 " ++ myDzenGenOpts
|
|
|
|
|
|
myManageHook = composeAll
|
|
[ className =? "Gimp" --> doFloat
|
|
, className =? "Vncviewer" --> doFloat
|
|
]
|
|
|
|
main = do
|
|
myStatusBarPipe <- spawnPipe myStatusBar
|
|
xmproc <- spawnPipe myConkyBar
|
|
xmonad $ defaultConfig
|
|
{ manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above
|
|
<+> manageHook defaultConfig
|
|
, layoutHook = avoidStruts $ layoutHook defaultConfig
|
|
, handleEventHook = mconcat
|
|
[ docksEventHook
|
|
, handleEventHook defaultConfig ]
|
|
, logHook = dynamicLogWithPP xmobarPP
|
|
{ ppOutput = hPutStrLn xmproc
|
|
, ppTitle = xmobarColor "green" "" . shorten 50
|
|
}
|
|
, modMask = mod4Mask -- Rebind Mod to the Windows key
|
|
} `additionalKeys`
|
|
[ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
|
|
, ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
|
|
, ((0, xK_Print), spawn "scrot")
|
|
]
|