Monky.Examples.Modify

Example that limits MPD song title to 20 characters

import Data.Text as T

modifyMPD :: [MonkyOut] -> [MonkyOut]
modifyMPD orig@(MonkyPlain xs:ys) =
  if T.length xs > 20
     then MonkyPlain (T.take 17 xs append "..."):ys
     else orig


evtPack    $ getModifyHandle modifyMPD $ getMPDHandle "127.0.0.1" "6600"

Documentation

data ModifyHandle a

Handle for duing pure modification of module output

Instances

EvtModule a => EvtModule (ModifyHandle a)

Methods

startEvtLoop :: ModifyHandle a -> ([MonkyOut] -> IO ()) -> IO ()

PollModule a => PollModule (ModifyHandle a)

Methods

getOutput :: ModifyHandle a -> IO [MonkyOut]

initialize :: ModifyHandle a -> IO ()

getModifyHandle :: ([MonkyOut] -> [MonkyOut]) -> IO a -> IO (ModifyHandle a)

Get a handle to purely modify another modules output

data IOModifyHandle a

Handle for modifying output in IO monad

Instances

EvtModule a => EvtModule (IOModifyHandle a)

Methods

startEvtLoop :: IOModifyHandle a -> ([MonkyOut] -> IO ()) -> IO ()

PollModule a => PollModule (IOModifyHandle a)

Methods

getOutput :: IOModifyHandle a -> IO [MonkyOut]

initialize :: IOModifyHandle a -> IO ()

getIOModifyHandle :: ([MonkyOut] -> IO [MonkyOut]) -> IO a -> IO (IOModifyHandle a)

Get a handle that can modify another handles output in the IO monad

changeImage :: Char -> MonkyOut -> MonkyOut

Change the replacemant char in an monky image (if your font doesn't support it), returns initial value if not an image