Xmonad.hs

import XMonad
import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.EwmhDesktops
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Actions.WorkspaceNames
import XMonad.Prompt
import XMonad.Layout.NoBorders
import System.IO
import System.Process
import System.Exit

import System.Posix.Env (getEnv)
import Data.Maybe (maybe)

-- Single-line Prefs

myModMask = mod4Mask
myTerminal = "terminator"


-- Manage Hook Stuff

windowRole = stringProperty "WM_WINDOW_ROLE"
windowName = stringProperty "WM_NAME"

myWindowRules = composeAll
    [ className     =? "Qasmizer"               --> doFloat
    , className     =? "MiniMetro.x86_64"       --> doFloat
    , windowName    =? "MiniMetro"              --> doFloat
    , (( className  =? "Chromium" ) <&&> ( windowRole =? "pop-up" <||> isInProperty "_NET_WM_STATE" "_NET_WM_STATE_ABOVE" ) )   --> doFloat
    , ( className   =? "Vlc" <&&> isFullscreen ) --> doFullFloat
    ]

main = do
    xmproc1 <- spawnPipe "/usr/bin/xmobar /home/cwbell/.xmonad/xmobar.hs"
    xmonad $ ewmh defaultConfig
        { modMask = myModMask
        , handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook
        , manageHook = myWindowRules <+> manageDocks <+> manageHook defaultConfig
        , terminal = myTerminal
        , layoutHook = avoidStruts $ smartBorders $ layoutHook defaultConfig
        , startupHook = startupHook defaultConfig
        , logHook = ( dynamicLogWithPP =<< workspaceNamesPP xmobarPP
                    { ppOutput = hPutStrLn xmproc1
                    , ppTitle = xmobarColor "green" "" . shorten 50
                    }
                )
        } `additionalKeys`
        [ (( mod4Mask               .|. controlMask , xK_l      ), spawn "xscreensaver-command -lock")
        , ((                            controlMask , xK_Print  ), spawn "sleep 0.2; scrot -s")
        , (( 0                                      , xK_Print  ), spawn "scrot -e 'mv $f ~/screenshots/'")
        , (( mod4Mask .|. shiftMask                 , xK_r      ), renameWorkspace defaultXPConfig)
        , (( mod4Mask               .|. controlMask , xK_Delete ), io (exitWith ExitSuccess) )
        , (( mod4Mask .|. shiftMask                 , xK_q      ), return() )
        , (( mod4Mask                               , xK_b      ), spawn "chromium --force-device-scale-factor=1" )
        , (( mod4Mask                               , xK_f      ), spawn "xfe")
        ]