import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import System.IO

import XMonad.Layout.Accordion
import XMonad.Layout.Spiral

tiled = Tall (1/2) (3/100)
sp = spiral (6/7)

main = do
        xmproc <- spawnPipe "/usr/bin/xmobar /home/obscura/.xmobarrc"
        xmonad $ defaultConfig {
        manageHook = manageDocks <+> manageHook defaultConfig,
        layoutHook = avoidStruts $ (tiled ||| sp) $ layoutHook defaultConfig,
        logHook = dynamicLogWithPP xmobarPP
        {
        ppOutput = hPutStrLn xmproc,
        ppTitle = xmobarColor "green" "" . shorten 50
        }
        }