module Xmobar.Plugins.StdinReader (StdinReader(..)) where
import Prelude
import System.Posix.Process
import System.Exit
import System.IO
import Xmobar.Run.Exec
import Xmobar.X11.Actions (stripActions)
import Xmobar.System.Utils (onSomeException)
import Control.Monad (when)
data StdinReader = StdinReader | UnsafeStdinReader
deriving (Read, Show)
instance Exec StdinReader where
start stdinReader cb = do
eof <- isEOF
when eof $
do hPrint stderr "xmobar: eof at an early stage"
exitImmediately ExitSuccess
s <-
getLine `onSomeException`
(\e -> do
let errorMessage = "xmobar: Received exception " <> show e
hPrint stderr errorMessage
cb errorMessage)
cb $ escape stdinReader s
start stdinReader cb
escape :: StdinReader -> String -> String
escape StdinReader = stripActions
escape UnsafeStdinReader = id