106 lines
3.6 KiB
VimL
106 lines
3.6 KiB
VimL
|
"=============================================================================
|
||
|
" haskell.vim --- SpaceVim lang#haskell layer
|
||
|
" Copyright (c) 2016-2023 Wang Shidong & Contributors
|
||
|
" Author: Wang Shidong < wsdjeg@outlook.com >
|
||
|
" URL: https://spacevim.org
|
||
|
" License: GPLv3
|
||
|
"=============================================================================
|
||
|
|
||
|
""
|
||
|
" @section lang#haskell, layers-lang-haskell
|
||
|
" @parentsection layers
|
||
|
" This layer is for haskell development, disabled by default, to enable this
|
||
|
" layer, add following snippet to your SpaceVim configuration file.
|
||
|
" >
|
||
|
" [[layers]]
|
||
|
" name = 'lang#haskell'
|
||
|
" <
|
||
|
"
|
||
|
" @subsection Key bindings
|
||
|
" >
|
||
|
" Mode Key Function
|
||
|
" ---------------------------------------------
|
||
|
" normal SPC l r run current file
|
||
|
" <
|
||
|
"
|
||
|
" This layer also provides REPL support for haskell, the key bindings are:
|
||
|
" >
|
||
|
" Key Function
|
||
|
" ---------------------------------------------
|
||
|
" SPC l s i Start a inferior REPL process
|
||
|
" SPC l s b send whole buffer
|
||
|
" SPC l s l send current line
|
||
|
" SPC l s s send selection text
|
||
|
" <
|
||
|
"
|
||
|
|
||
|
function! SpaceVim#layers#lang#haskell#plugins() abort
|
||
|
let plugins = [
|
||
|
\ ['neovimhaskell/haskell-vim', { 'on_ft': 'haskell' }],
|
||
|
\ ['pbrisbin/vim-syntax-shakespeare', { 'on_ft': 'haskell' }],
|
||
|
\ ]
|
||
|
|
||
|
if SpaceVim#layers#lsp#check_filetype('haskell')
|
||
|
call add(plugins, ['eagletmt/neco-ghc', { 'on_ft': 'haskell' }])
|
||
|
endif
|
||
|
|
||
|
return plugins
|
||
|
endfunction
|
||
|
|
||
|
function! SpaceVim#layers#lang#haskell#config() abort
|
||
|
let g:haskellmode_completion_ghc = 0
|
||
|
|
||
|
call SpaceVim#plugins#repl#reg('haskell', 'ghci')
|
||
|
call SpaceVim#plugins#runner#reg_runner('haskell', [
|
||
|
\ 'ghc -v0 --make %s -o #TEMP#',
|
||
|
\ '#TEMP#'])
|
||
|
call SpaceVim#mapping#space#regesit_lang_mappings('haskell',
|
||
|
\ function('s:on_ft'))
|
||
|
|
||
|
if SpaceVim#layers#lsp#check_filetype('haskell')
|
||
|
call SpaceVim#mapping#gd#add('haskell',
|
||
|
\ function('SpaceVim#lsp#go_to_def'))
|
||
|
endif
|
||
|
|
||
|
augroup SpaceVim_lang_haskell
|
||
|
autocmd!
|
||
|
|
||
|
if SpaceVim#layers#lsp#check_filetype('haskell')
|
||
|
autocmd FileType haskell setlocal omnifunc=necoghc#omnifunc
|
||
|
endif
|
||
|
augroup END
|
||
|
endfunction
|
||
|
|
||
|
function! s:on_ft() abort
|
||
|
if SpaceVim#layers#lsp#check_filetype('haskell')
|
||
|
nnoremap <silent><buffer> K :call SpaceVim#lsp#show_doc()<CR>
|
||
|
|
||
|
call SpaceVim#mapping#space#langSPC('nnoremap', ['l', 'd'],
|
||
|
\ 'call SpaceVim#lsp#show_doc()', 'show_document', 1)
|
||
|
call SpaceVim#mapping#space#langSPC('nnoremap', ['l', 'e'],
|
||
|
\ 'call SpaceVim#lsp#rename()', 'rename symbol', 1)
|
||
|
endif
|
||
|
|
||
|
call SpaceVim#mapping#space#langSPC('nmap', ['l', 'r'],
|
||
|
\ 'call SpaceVim#plugins#runner#open()', 'execute current file', 1)
|
||
|
let g:_spacevim_mappings_space.l.s = {'name' : '+Send'}
|
||
|
call SpaceVim#mapping#space#langSPC('nmap', ['l','s', 'i'],
|
||
|
\ 'call SpaceVim#plugins#repl#start("haskell")',
|
||
|
\ 'start REPL process', 1)
|
||
|
call SpaceVim#mapping#space#langSPC('nmap', ['l','s', 'l'],
|
||
|
\ 'call SpaceVim#plugins#repl#send("line")',
|
||
|
\ 'send line and keep code buffer focused', 1)
|
||
|
call SpaceVim#mapping#space#langSPC('nmap', ['l','s', 'b'],
|
||
|
\ 'call SpaceVim#plugins#repl#send("buffer")',
|
||
|
\ 'send buffer and keep code buffer focused', 1)
|
||
|
call SpaceVim#mapping#space#langSPC('nmap', ['l','s', 's'],
|
||
|
\ 'call SpaceVim#plugins#repl#send("selection")',
|
||
|
\ 'send selection and keep code buffer focused', 1)
|
||
|
endfunction
|
||
|
|
||
|
function! SpaceVim#layers#lang#haskell#health() abort
|
||
|
call SpaceVim#layers#lang#haskell#plugins()
|
||
|
call SpaceVim#layers#lang#haskell#config()
|
||
|
return 1
|
||
|
endfunction
|