Graphics.Vty.Input.Loop

The input layer used to be a single function that correctly accounted for the non-threaded runtime by emulating the terminal VMIN adn VTIME handling. This has been removed and replace with a more straightforward parser. The non-threaded runtime is no longer supported.

This is an example of an algorithm where code coverage could be high, even 100%, but the behavior is still under tested. I should collect more of these examples...

Documentation

data Input

Constructors

Input

Fields

_eventChannel :: Chan Event

Channel of events direct from input processing. Unlike nextEvent this will not refresh the display if the next event is an EvResize.

shutdownInput :: IO ()

Shuts down the input processing. This should return the terminal input state to before the input initialized.

_configRef :: IORef Config

Changes to this value are reflected after the next event.

_inputFd :: Fd

File descriptor used for input.

_inputDebug :: Maybe Handle

input debug log

inputFd :: Lens' Input Fd

inputDebug :: Lens' Input (Maybe Handle)

eventChannel :: Lens' Input (Chan Event)

configRef :: Lens' Input (IORef Config)

data InputBuffer

Constructors

InputBuffer

Fields

_ptr :: Ptr Word8

_size :: Int

size :: Lens' InputBuffer Int

ptr :: Lens' InputBuffer (Ptr Word8)

data InputState

Constructors

InputState

Fields

_unprocessedBytes :: String

_appliedConfig :: Config

_inputBuffer :: InputBuffer

_stopRequestRef :: IORef Bool

_classifier :: String -> KClass

unprocessedBytes :: Lens' InputState String

stopRequestRef :: Lens' InputState (IORef Bool)

inputBuffer :: Lens' InputState InputBuffer

classifier :: Lens' InputState (String -> KClass)

appliedConfig :: Lens' InputState Config

type InputM a = StateT InputState (ReaderT Input IO) a

logMsg :: String -> InputM ()

loopInputProcessor :: InputM ()

addBytesToProcess :: String -> InputM ()

emit :: Event -> InputM ()

readFromDevice :: InputM String

applyTimingConfig :: Fd -> Config -> IO ()

parseEvent :: InputM Event

dropInvalid :: InputM ()

stopIfRequested :: InputM ()

runInputProcessorLoop :: ClassifyMap -> Input -> IORef Bool -> IO ()

attributeControl :: Fd -> IO (IO (), IO ())

logClassifyMap :: Input -> String -> ClassifyMap -> IO ()

initInputForFd :: Config -> String -> ClassifyMap -> Fd -> IO Input

setTermTiming :: Fd -> Int -> Int -> IO ()