public
Created

Xmonad configuration, my try

  • Download Gist
xmonad.hs
Haskell
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
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")
]

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.