module Neovim.Context (
newUniqueFunctionName,
Neovim,
Neovim',
NeovimException(..),
FunctionMap,
FunctionMapEntry,
mkFunctionMap,
runNeovim,
forkNeovim,
err,
restart,
quit,
ask,
asks,
get,
gets,
put,
modify,
throwError,
module Control.Monad.IO.Class,
) where
import Neovim.Context.Internal (FunctionMap, FunctionMapEntry, Neovim,
Neovim', forkNeovim, mkFunctionMap,
newUniqueFunctionName, runNeovim)
import qualified Neovim.Context.Internal as Internal
import Control.Concurrent (putMVar)
import Control.Exception
import Control.Monad.Except
import Control.Monad.IO.Class
import Control.Monad.Reader
import Control.Monad.State
import Data.Data (Typeable)
data NeovimException
= ErrorMessage String
deriving (Typeable, Show)
instance Exception NeovimException
err :: String -> Neovim r st a
err = throw . ErrorMessage
restart :: Neovim r st ()
restart = liftIO . flip putMVar Internal.Restart =<< Internal.asks' Internal.transitionTo
quit :: Neovim r st ()
quit = liftIO . flip putMVar Internal.Quit =<< Internal.asks' Internal.transitionTo