nvim-hs-0.0.2: library/Neovim/Plugin/ConfigHelper.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{- |
Module      :  Neovim.Plugin.ConfigHelper
Description :  Helper plugin to ease recompiling the nvim-hs config
Copyright   :  (c) Sebastian Witte
License     :  Apache-2.0

Maintainer  :  woozletoff@gmail.com
Stability   :  experimental
Portability :  GHC

-}
module Neovim.Plugin.ConfigHelper
    where

import           Config.Dyre                         (Params)
import           Config.Dyre.Paths                   (getPaths)
import           Neovim.API.TH
import           Neovim.Config
import           Neovim.Plugin.Classes
import           Neovim.Plugin.ConfigHelper.Internal

-- | Note that you cannot really use this plugin by hand. It is automatically
-- loaded for all Neovim instances.
plugin :: Params NeovimConfig -> IO NeovimPlugin
plugin params = do
    (_, _, cfgFile, _, libsDir) <- getPaths params
    wrapPlugin Plugin
        { exports =
            [ $(function' 'pingNvimhs) Sync
            ]
        , statefulExports =
            [ (params, [],
                [ $(autocmd 'recompileNvimhs) "BufWritePost" def
                        { acmdSync    = Async
                        , acmdPattern = cfgFile
                        }
                , $(autocmd 'recompileNvimhs) "BufWritePost" def
                        { acmdSync    = Async
                        , acmdPattern = libsDir++"/*"
                        }
                , $(command' 'restartNvimhs) [CmdSync Async, CmdBang, CmdRegister]
                ])
            ]
        }