A module for spawning a pipe whose Handle lives in the Xmonad state.

This module makes it possible to spawn a pipe to Dzen2 in the startupHook and write to it from inside the logHook without the need for global variables.

import XMonad.Util.SpawnNamedPipe
import Data.Maybe

-- StartupHook
startupHook' = spawnNamedPipe "dzen2" "dzenPipe"

-- LogHook
logHook' = do
    mh <- getNamedPipeHandle "dzenPipe"
        dynamicLogWithPP $ def {
            ppOutput = maybe (\s -> return ()) (hPutStrLn) mh}

-- Main
main = xmonad $ def { startupHook = startupHook'
                    , logHook = logHook'}