urbit/pkg/hs/urbit-king/lib/Urbit/Vere/Term/Render.hs

{-|
    Terminal Driver
-}
module Urbit.Vere.Term.Render
    ( clearScreen
    , clearLine
    , cursorRight
    , cursorLeft
    , soundBell
    ) where

import ClassyPrelude

import qualified System.Console.ANSI as ANSI


-- Types -----------------------------------------------------------------------

clearScreen :: MonadIO m => m ()
clearScreen = liftIO $ ANSI.clearScreen

clearLine :: MonadIO m => m ()
clearLine = liftIO $ ANSI.clearLine

soundBell :: MonadIO m => m ()
soundBell = liftIO $ putStr "\a"

cursorLeft :: MonadIO m => Int -> m ()
cursorLeft = liftIO . ANSI.cursorBackward

cursorRight :: MonadIO m => Int -> m ()
cursorRight = liftIO . ANSI.cursorForward