module Xmobar.Plugins.CommandReader(CommandReader(..)) where
import System.IO
import Xmobar.Run.Exec
import Xmobar.System.Utils (hGetLineSafe)
import System.Process(runInteractiveCommand, getProcessExitCode)
data CommandReader = CommandReader String String
deriving (Read, Show)
instance Exec CommandReader where
alias (CommandReader _ a) = a
start (CommandReader p _) cb = do
(hstdin, hstdout, hstderr, ph) <- runInteractiveCommand p
hClose hstdin
hClose hstderr
hSetBinaryMode hstdout False
hSetBuffering hstdout LineBuffering
forever ph (hGetLineSafe hstdout >>= cb)
where forever ph a =
do a
ec <- getProcessExitCode ph
case ec of
Nothing -> forever ph a
Just _ -> cb "EXITED"