Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Xmonad configuration, my try
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO
main = do
xmproc <- spawnPipe "/usr/bin/xmobar /home/pimeys/.xmobarrc"
xmonad $ defaultConfig
{ manageHook = manageDocks
<+> manageHook defaultConfig
, layoutHook = avoidStruts $ layoutHook defaultConfig
, terminal = "urxvt +sb -vb"
, logHook = dynamicLogWithPP xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" "" . shorten 50
}
, modMask = mod4Mask
} `additionalKeys`
[
((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock") -- meta shift z
, ((mod4Mask .|. shiftMask, xK_a), spawn "gvim ~/code/ruby") -- meta shift z
, ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s") -- print --> screenshot
, ((mod4Mask, xK_i), spawn "amixer -c 1 sset Master 0")
, ((mod4Mask, xK_u), spawn "amixer -c 1 sset Master 1dB-")
, ((mod4Mask, xK_o), spawn "amixer -c 1 sset Master 1dB")
, ((mod4Mask, xK_p), spawn "/usr/bin/dmenu_run")
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment