Xmonad/Config archive/k6b (kyle's) xmonad.hs
< Xmonad | Config archive
Jump to navigation
Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Layout.IM
import XMonad.Layout.PerWorkspace
import XMonad.Layout.Reflect
import XMonad.Layout.Grid
import XMonad.Prompt
import XMonad.Prompt.Man
import System.IO
myTerminal = "urxvtc" --my preferred terminal
myWorkspaces = ["Don't","Panic!","::k6b::",".42.","5","6","7","8","9"] --list of tag names
myManageHook = composeAll
[ className =? "MPlayer" --> doFloat --float mplayer
, className =? "Gimp" --> doFloat --float gimp
, className =? "Gimp" --> doShift ".42." --move gimp to window
, className =? "Keepassx" --> doCenterFloat --float keepassx
, className =? "Firefox" --> doShift "Panic!" --move firefox to window
, className =? "feh" --> doCenterFloat --center and float feh
]
myLayoutHook = avoidStruts (Mirror tall ||| Grid ||| tall ||| Full) --layout list
where
tall = Tall nmaster delta ratio --define tall layout sizes
nmaster = 1
ratio = 1/2
delta = 2/100
--xmobar config
myLogHook h = dynamicLogWithPP xmobarPP
{ ppHidden = xmobarColor "grey" "" --tag color
, ppOutput = hPutStrLn h --tag list and window title
, ppTitle = xmobarColor "green" "" --window title color
}
myStatusBar = "xmobar" --define first xmobar
myStartupHook :: X ()
myStartupHook = do
spawn "xmobar ~/.xmobarrc2" --start second xmobar
spawn "~/scripts/startup.sh" --startup script
main = do
din <- spawnPipe myStatusBar
xmonad $ defaultConfig
{ manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
, layoutHook = myLayoutHook
, logHook = myLogHook din
, startupHook = myStartupHook
, terminal = myTerminal
, workspaces = myWorkspaces
, modMask = mod4Mask
} `additionalKeys`
[ ((mod4Mask, xK_f), spawn "firefox") --start firefox
, ((mod4Mask, xK_F11), spawn "sudo /sbin/reboot") --reboot
, ((mod4Mask, xK_F12), spawn "sudo /sbin/shutdown -h now") --shutdown
, ((mod4Mask, xK_p), spawn "dmenu_run -nb black -nf white") --call dmenu
, ((mod4Mask .|. shiftMask, xK_h), spawn "feh --scale ~/pictures/Xmbindings.png") --keymask dialog
, ((mod4Mask, xK_F1), manPrompt defaultXPConfig) --man prompt
, ((0, xK_Print), spawn "'scrot' -e 'mv $f ~/pictures/screenshots'") --take screenshot
, ((0, 0x1008ff13), spawn "amixer -q set Master 2dB+") --raise sound
, ((0, 0x1008ff11), spawn "amixer -q set Master 1dB-") --lower sound
, ((0, 0x1008ff12), spawn "amixer -q set Master toggle") --mute sound
]