xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout
import XMonad.Layout.Column
import XMonad.Layout.LayoutBuilder
import XMonad.Config.Desktop
import XMonad.Util.EZConfig
import XMonad.Util.Run(spawnPipe)

import System.IO

myLayout = jwall ||| Full
  where jwall = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
                 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))

main = do 
  screenSaver <- spawnPipe "xscreensaver"
  xmobar <- spawnPipe "/home/jwall/.cabal/bin/xmobar"
  xmonad  $ defaultConfig {
     terminal            = "urxvt"
     , focusFollowsMouse = True
     , layoutHook        = desktopLayoutModifiers $ myLayout
--     , logHook = dynamicLogWithPP $ xmobarPP
--                 { ppOutput = hPutStrLn xmobar
--                 , ppTitle = xmobarColor "green" "" . shorten 50
--                 , ppLayout = \s -> ""
--                 }
    , workspaces        = ["code", "communication", "random", "configuration"]
    } `additionalKeys` [
      ((controlMask .|. mod1Mask, xK_Delete), spawn "xscreensaver-command --lock")
      ]