nvim-hs-0.0.2: Haskell plugin backend for neovim

Copyright(c) Sebastian Witte
LicenseApache-2.0
Maintainerwoozletoff@gmail.com
Stabilityexperimental
PortabilityGHC (due to Template Haskell)
Safe HaskellNone
LanguageHaskell2010

Neovim

Contents

Description

This module should contain all the things you need to write neovim plugins in your favorite language! :-)

The documentation in this module should enable you to write plugins. The chapters in this module start with a tl;dr paragraph that sums things up, which is useful to get an idea whether you should actually read the chapter and which will reduce your reading time if you just want to refresh your memory.

Synopsis

Installation

tl;dr

Since this is still very volatile, I recommend using a sandbox.

Make sure that neovim's executable (nvim) is on your $PATH during the following steps!

Install `nvim-hs` from git (example assumes you clone to $HOME/git/nvim-hs) using a sandbox:

$ mkdir -p ~/git ; cd ~/git
$ git clone https://github.com/saep/nvim-hs
$ cd nvim-hs
$ git sandbox init
$ cabal install

Create this executable script (e.g. $HOME/bin/nvim-hs):

#!/bin/sh

sandbox_directory=$HOME/git/nvim-hs
old_pwd="pwd"
cd "$sandbox_directory"
env CABAL_SANDBOX_CONFIG="$sandbox_directory"/cabal.sandbox.config cabal \
    exec "$sandbox_directory/.cabal-sandbox/bin/nvim-hs" -- "$@"
cd "$old_pwd"

Put this in your neovim config file (typically ~/.nvimrc or ~/.nvim/nvimrc):

if has('nvim') " This way you can also put it in your vim config file
  function! s:RequireHaskellHost(name)
    " If the nvim-hs script/executable is not on your path, you should give the full path here
    return rpcstart('nvim-hs', [a:name.name])
  endfunction

  " You can replace 'haskell' in the following lines with any name you like.
  call remote#host#Register('haskell', '*.[cl]\?hs', function('s:RequireHaskellHost'))
  " Blocks until nvim-hs has started (optional)
  call rpcrequest(remote#host#Require('haskell'),
          \ 'PingNvimhs', [])
endif

Explained

You essentially have to follow the instructions of the tl;dr subsection above, but this subsections tells you why you need those steps and it gives you the required knowledge do deviate from those instructions.

If you want to use or write plugins written in haskell for nvim-hs, you first have to make sure that neovim is installed and that it is available on your $PATH during the compilation of nvim-hs. Neovim emits information about its remotely callable API if you call it with the `--api-info` argument. This output is used to generate the API functions you desperately need to create useful plugins. Also, some internal functionality requires some of these functions.

The instructions to install nvim-hs should be self-explanatory. In any case, I (saep) recommend using a sandbox for now since there is no stable hackage release yet and a few librarier are newer than what is currently in stackage (namely mtl, which is a big deal). Using a sandbox requires you to install all the libraries you want or have to use in your plugins to be installed inside the sandbox! Some Vim plugins (e.g. ghc-mod) may show weird errors inside neovim for your configuration file because the sandbox is not inside your configuration folder. For nvim-hs you don't need to worry about that, though, because it has a builtin plugin which puts all compile-errors in the quickfix list automatically after you save your configuration file, so you don't need another plugin to detect compile time errors here. But we will discuss this later in more detail. The executable script sets up the build environment for nvim-hs to use the sandbox. You should only have to adjust the path for the sandbox_directory variable there if you did not install nvim-hs in a sandbox located at `\$HOME\/git\/nvim-hs`.

The Vim-script snippet is a bit lengthy, but the comments should explain how it works. In any case, the snippet can be put anywhere in your neovim configuration file and the last call of rpcrequest is not needed if you don't call any functionality before nvim-hs has started properly. Removing the call can improve the startup time. If you only need some functionality for haskell source files, you could move those last (or the last two) lines at the top of $HOME/.nvim/ftplugin/haskell.vim. You may wonder why we have to explicitly call PingNvimhs with the function rpcrequest here. The short answer is: The internals for registering functions from a remote host require this. The longer answer is as follows: Registering functions from a remote host does not define a function directly. It instead installs a hook via an autocmd that defines the function. This way, only functions that are actually used are registered and this probably was implemented this way for performance reasons. Buf, if we try to call a function from a remote host too early, the hooks may not yet be in place and we receive error messages. Since we do not generate any Vim-script files which contain those hooks, nvim-hs must be started and initialized and create those hooks. So the best way to make sure that nvim-hs is initialized is to try to call some functionon the msgpack-rpc channel that nvim-hs listens on. The function must not even exist, but not throwing an error message is probably nicer, so nvim-hs provides a function "PingNvimhs" which takes no arguments and returns "Pong".

Using nvim-hs essentially means to use a static binary that incorporates all plugins. It is generated using the Dyre library and the binary itself is found in $XDG_CACHE_DIR/nvim (usually @~/.cache/nvim). The Dyre library makes it feel more like a scripting language, because the binary is automatically created and executed without having to restart neovim.

Tutorial

tl;dr

type Neovim r st = StateT st (ReaderT (ConfigWrapper r) IO) Source

This is the environment in which all plugins are initially started. Stateless functions use '()' for the static configuration and the mutable state and there is another type alias for that case: Neovim'.

Functions have to run in this transformer stack to communicate with neovim. If parts of your own functions dont need to communicate with neovim, it is good practice to factor them out. This allows you to write tests and spot errors easier. Essentially, you should treat this similar to IO in general haskell programs.

type Neovim' = Neovim () () Source

Convenience alias for Neovim () ().

neovim :: NeovimConfig -> IO () Source

This is essentially the main function for nvim-hs, at least if you want to use the Config.Dyre for the configuration..

data NeovimConfig Source

Constructors

Config 

Fields

plugins :: [IO NeovimPlugin]

The list of plugins. The IO type inside the list allows the plugin author to run some arbitrary startup code before creating a value of type NeovimPlugin.

errorMessage :: Maybe String

Used by Dyre for storing compilation errors.

logOptions :: Maybe (FilePath, Priority)

Set the general logging options.

dyreParams :: Maybe (Params NeovimConfig)

Parmaeters used by Dyre. This is only used for the Neovim.Plugin.ConfigHelper plugin.

Instances

Default NeovimConfig 

def :: Default a => a

Using existing plugins

nvim-hs is all about importing and creating plugins. This is done following simple and concise API. Let's start by making a given plugin available inside our plugin provider. Assuming that we have installed a cabal package that exports an examplePlugin from the module TestPlugin.ExamplePlugin. A minimal configuration would then look like this:

{-# LANGUAGE TemplateHaskell #-}

import TestPlugin.ExamplePlugin (examplePlugin)

main = neovim def
        { plugins = [examplePlugin]
        }

That's all you have to do! Multiple plugins are simply imported and put in a list.

If the plugin is not packaged, you can also put the source files of the plugin inside $XDG_CONFIG_HOME/nvim/lib (usually ~/.config/nvim/lib). Assuming the same module name and plugin name, you can use the same configuration file. The source for the plugin must be located at $XDG_CONFIG_HOME/nvim/lib/TestPlugin/ExamplePlugin.hs and all source files it depends on must follow the same structure. This is the standard way how Haskell modules are defined in cabal projects. Having all plugins as source files can increase the compilation times, so plugins should be put in a cabal project once they are mature enough. This also makes them easy to share!

Creating a plugin

Creating plugins isn't difficult either. You just have to follow a simple API and not be surprised about compile time errors of seemingly valid code. This may sound scary, but it is not so bad. We will cover most pitfalls in the following paragraphs and if there isn't a solution for your error, you can always ask any friendly Haskeller in #haskell on irc.freenode.net!

Enough scary stuff said for now, let's write a plugin! Due to a stage restriction in GHC when using Template Haskell, we must define our functions in a different module than $XDG_CONFIG_HOME/nvim/nvim.hs. This is a bit unfortunate, but it will save you a lot of boring boilerplate and it will present you with helpful error messages if your plugin's functions do not work together with neovim.

So, let's write a plugin that calculates the nth Fibonacci number. Don't we all love those!

File ~/.config/nvim/lib/MyFirstPlugin.hs

module MyFirstPlugin
    ( fibonacci
    ) where

import Neovim

fibonacci :: Int -> Neovim' String
fibonacci n = show $ fibs !! n
  where
    fibs :: [Integer]
    fibs = 1:1:scanl1 (+) fibs

File ~/.config/nvim/nvim.hs:

{-# LANGUAGE TemplateHaskell #-}

import MyFirstPlugin (fibonacci)

fibonacciPlugin = wrapPlugin
    { exports = [ $(function' 'fibonacci) Sync ]
    }

main = neovim def
        { plugins = [fibonacciPlugin]
        }

Let's analyze how it works. The module MyFirstPlugin simply defines a function that takes the nth element of the infinite list of Fibonacci numbers. Even though the definition is very concise and asthetically pleasing, the important part is the type signature for fibonacci. Similarly how main :: IO () works in normal Haskell programs, Neovim' is the environment we need for plugins. Internally, it stores a few things that are needed to communicate with neovim, but that shouldn't bother you too much. Simply remember that every plugin function must have a function signature whose last element is of type Neovim r st something'. The result of fibonacci is String because neovim cannot handle big numbers so well. :-) You can use any argument or result type as long as it is an instance of NvimObject.

The second part of of the puzzle, which is the definition of fibonacciPlugin in ~/.config/nvim/nvim.hs, shows what a plugin is. It is essentially two lists of stateless and stateful functionality. A functionality can currently be one of three things: a function, a command and an autocmd in the context of vim terminology. In the end, all of those functionalities map to a function at the side of nvim-hs. If you really want to know what the distinction between those, you have to consult the :help pages of neovim (e.g. :help :function, :help :command and :help :autocmd). What's relevant from the side of nvim-hs is the distinction between stateful and stateless. A stateless function can be called at any time and it does not share any of its internals with other functions. A stateful function on the other hand can share a well-defined amount of state with other functions and in the next section I will show you a simple example for that. Anyhow, if you take a look at the type alias for Neovim, you notice the two type variables r and st. These can be accessed with different semantics each. A value of type r can only be read. It is more or less a static value you can query with ask or asks if you are inside a Neovim environment. The value st can be changed and those changes will be available to other functions which run in the same environment. You can get the current value with get, you can replace an existing value with put and you can also apply a function to the current state with modify. Notice how Neovim' is just a specialization of Neovim with its r and st set to ().

Now to the magical part: $(function' 'fibonacci). This is a so called Template Haskell splice and this is why you need {-# LANGUAGE TemplateHaskell #-} at the top of your Haskell file. This splice simply generates Haskell code that, in this case, still needs a value of type Synchronous which indicates whether calling the function will make neovim wait for its result or not. Internally, the expression $(function' 'fibonacci) Sync creates a value that contains all the necessary information to properly register the function with neovim. Note the prime symbol before the function name! This would have probably caused you some trouble if I haven't mentioned it here! Template Haskell simply requires you to put that in from of function names that are passed in a splice.

If you compile this (which should happen automatically if you have put those files at the appropriate places), you can calculate the 287323rd Fibonacci number like this:

:echo Fibonacci(287323)

You can also directly insert the result inside any text file opened with neovim by using the evaluation register by pressing the following key sequence in insert mode:

<C-r>=Fibonacci(287323)

data NeovimPlugin Source

Constructors

forall r st . NeovimPlugin (Plugin r st) 

data Plugin r st Source

This data type contains meta information for the plugin manager.

Constructors

Plugin 

Fields

exports :: [ExportedFunctionality () ()]
 
statefulExports :: [(r, st, [ExportedFunctionality r st])]
 

class NvimObject o where Source

Conversion from Object files to Haskell types and back with respect to neovim's interpretation.

Minimal complete definition

toObject

type Dictionary = Map ByteString Object Source

A generic vim dictionary is a simply a map from strings to objects. This type alias is sometimes useful as a type annotation especially if the OverloadedStrings extension is enabled.

wrapPlugin :: Monad m => Plugin r st -> m NeovimPlugin Source

Wrap a Plugin in some nice blankets, so that we can put them in a simple list.

function :: String -> Name -> Q Exp Source

Define an exported function by providing a cutom name and referencing the function you want to export.

Note that the name must start with an upper case letter.

Example: $(function MyExportedFunction 'myDefinedFunction) def

function' :: Name -> Q Exp Source

Define an exported function. This function works exactly like function, but it generates the exported name automatically by converting the first letter to upper case.

command :: String -> Name -> Q Exp Source

Similarly to function, this function is used to export a command with a custom name.

Note that commands must start with an upper case letter.

command' :: Name -> Q Exp Source

Define an exported command. This function works exactly like command, but it generates the command name by converting the first letter to upper case.

autocmd :: Name -> Q Exp Source

Define an autocmd. This function generates an export for autocmd. Since this is a static registration, arguments are not allowed here. You can of course define a fully applied functions and pass it as an arguments.

data Synchronous Source

This option detemines how neovim should behave when calling some functionality on a remote host.

Constructors

Async

Call the functionality entirely for its side effects and do not wait for it to finish. Calling a functionality with this flag set is completely asynchronous and nothing is really expected to happen. This is why a call like this is called notification on the neovim side of things.

Sync

Call the function and wait for its result. This is only synchronous on the neovim side. For comands it means that the GUI will (probably) not allow any user input until a reult is received. Functions run asynchronously inside neovim (or in one of its plugin providers) can use these functions concurrently.

data CommandOption Source

Options for commands.

Some command can also be described by using the OverloadedString extensions. This means that you can write a literal String inside your source file in place for a CommandOption value. See the documentation for each value on how these strings should look like (Both versions are compile time checked.)

Constructors

CmdSync Synchronous

Should neovim wait for an answer (Sync)?

Stringliteral: "sync" or "async"

CmdRegister

Register passed to the command.

Stringliteral: """

CmdRange RangeSpecification

Determines how neovim passes the range.

Stringliterals: "%" for WholeFile, "," for line and ",123" for 123 lines.

CmdCount Int

Command handles a count. The argument defines the default count.

Stringliteral: string of numbers (e.g. "132")

CmdBang

Command handles a bang

Stringliteral: "!"

data CommandArguments Source

You can use this type as the first argument for a function which is intended to be exported as a command. It holds information about the special attributes a command can take.

Constructors

CommandArguments 

Fields

bang :: Maybe Bool

Nothing means that the function was not defined to handle a bang, otherwise it means that the bang was passed (Just True) or that it was not passed when called (Just False).

range :: Maybe (Int, Int)

Range passed from neovim. Only set if CmdRange was used in the export declaration of the command.

Examples: * Just (1,12)

count :: Maybe Int

Count passed by neovim. Only set if CmdCount was used in the export declaration of the command.

register :: Maybe String

Register that the command canshouldmust use.

data AutocmdOptions Source

Constructors

AutocmdOptions 

Fields

acmdSync :: Synchronous

Option to indicate whether vim shuould block until the function has completed. (default: Sync)

acmdPattern :: String

Pattern to match on. (default: "*")

acmdNested :: Bool

Nested autocmd. (default: False)

See :h autocmd-nested

ask :: Neovim r st r Source

Retrieve the Cunfiguration (i.e. read-only state) from the Neovim context.

asks :: (r -> a) -> Neovim r st a Source

Retrieve something from the configuration with respect to the first function. Works exactly like asks.

put :: MonadState s m => s -> m ()

get :: MonadState s m => m s

gets :: MonadState s m => (s -> a) -> m a

modify :: MonadState s m => (s -> s) -> m ()

Creating a stateful plugin

Calling remote functions

Now that we are a little bit comfortable with the interface provided by nvim-hs, we can start to write a more complicated plugin. Let's create a random number generator.

File ~/.config/nvim/lib/MyRandomNumberGenerator.hs:

module MyRandomNumberGenerator
    ( nextRand
    , setNextNumber
    ) where

nextRand :: Neovim r [Int16] Int16
nextRand = do
    r <- gets head
    modify tail
    return r

setNextNumber :: Int16 -> Neovim r [Int16] ()
setNextNumber n = modify (n:)

File ~/.config/nvim/nvim.hs:

{-# LANGUAGE TemplateHaskell #-}

import MyRandomNumberGenerator (nextRand, setNextNumber)
import System.Random (newStdGen, randoms)

randPlugin = do
    g <- newStdGen                -- initialize with a random seed
    let randomNumbers = randoms g -- an infite list of random numbers
    wrapPlugin
        { statefulExports =
            [ ((), randomNumbers,
                [ $(function' 'nextRand) Sync
                , $(function' 'setNextNumber) Async
                ])
            ]
        }

main = neovim def
        { plugins = [randPlugin]
        }

That wasn't too hard, was it? The definition is very similar to the previous example, we just were able to mutate our state and share that with other functions. The only slightly tedious thing was to define the statefulExpors field because it is a list of triples which has a list of exported functionality as its third argument.

wait :: Neovim r st (STM result) -> Neovim r st result Source

Wait for the result of the STM action.

This action possibly blocks as it is an alias for ioSTM -> ioSTM >>= liftIO . atomically.

wait' :: Neovim r st (STM result) -> Neovim r st () Source

Variant of wait that discards the result.

waitErr Source

Arguments

:: Show e 
=> String

Prefix error message with this.

-> Neovim r st (STM (Either e result))

Function call to neovim

-> Neovim r st result 

Wait for the result of the STM action and call err . (loc++) . show if the action returned an error.

waitErr' :: Show e => String -> Neovim r st (STM (Either e result)) -> Neovim r st () Source

waitErr that discards the result.

err :: String -> Neovim r st a Source

throw . ErrorMessage

Generated functions for neovim interaction

Unsorted exports

liftIO :: MonadIO m => forall a. IO a -> m a

module Data.Int