335 lines
10 KiB
VimL
335 lines
10 KiB
VimL
setlocal ts=2 sw=2 expandtab
|
|
|
|
"set background=light
|
|
"set guifont=Neep\ Medium\ Semi-Condensed\ 18
|
|
|
|
" tags
|
|
call CmdAlias('hasktags', '!hasktags -c .<CR>')
|
|
|
|
" from
|
|
" https://raw.githubusercontent.com/begriffs/haskell-vim-now/master/git-hscope
|
|
call CmdAlias('codex', 'call system("haskell-ctags")<CR><CR>call LoadHscope()<CR>')
|
|
|
|
|
|
map <leader>ctg :codex<CR>
|
|
set tags=tags;/,codex.tags;/
|
|
|
|
" classic ctags jump
|
|
" nnoremap <leader>gd <C-]>
|
|
|
|
nnoremap <silent> <leader>cgd :cs find g <C-R>=expand("<cword>")<CR><CR>
|
|
nnoremap <silent> <C-\> :cs find c <C-R>=expand("<cword>")<CR><CR>
|
|
|
|
set cscopeprg=do_at_stack_root\ hscope
|
|
set csre
|
|
set csto=1 " search codex tags first
|
|
set nocst
|
|
" set cscopequickfix=s-,c-,d-,i-,t-,e-,a-
|
|
|
|
function! LoadHscope()
|
|
set nocscopeverbose " suppress 'duplicate connection' error
|
|
let hsf = findfile("hscope.out", ".;")
|
|
if filereadable(hsf)
|
|
exe "cs add " . hsf
|
|
elseif $HSCOPE_DB != ""
|
|
cs add $HSCOPE_DB
|
|
endif
|
|
set cscopeverbose
|
|
endfunction
|
|
au BufEnter /*.hs call LoadHscope()
|
|
|
|
|
|
|
|
|
|
"hoogle
|
|
nnoremap <leader>ho :Hoogle<CR>
|
|
nnoremap <leader>hc :HoogleClose<CR>
|
|
|
|
|
|
" haskell-vim
|
|
let g:haskell_classic_highlighting = 1
|
|
let g:haskell_indent_disable = 1
|
|
" let g:haskell_enable_quantification = 1
|
|
" let g:haskell_enable_recursivedo = 1
|
|
" let g:haskell_enable_arrowsyntax = 1
|
|
" let g:haskell_enable_pattern_synonyms = 1
|
|
" let g:haskell_enable_typeroles = 1
|
|
" let g:haskell_indent_if = 3
|
|
" let g:haskell_indent_case = 5
|
|
" let g:haskell_indent_let = 4
|
|
" let g:haskell_indent_where = 6
|
|
" let g:haskell_indent_do = 3
|
|
" let g:haskell_indent_in = 1
|
|
|
|
|
|
" haskellmode-vim
|
|
function! HaskellDocCurrentWord()
|
|
let word = expand("<cword>")
|
|
exe "IDoc " . word
|
|
endfunction
|
|
|
|
" done by LSP now
|
|
nmap <F7> :call HaskellDocCurrentWord()<CR><CR>
|
|
|
|
nmap <silent> <F3> :silent update <bar> HsimportModule<CR>
|
|
nmap <silent> <F4> :silent update <bar> HsimportSymbol<CR>
|
|
|
|
|
|
" liquid-types
|
|
let g:vim_annotations_offset = '/.liquid/'
|
|
|
|
|
|
" autocmd BufWritePost *.hs call s:check_and_lint()
|
|
" function! s:check_and_lint()
|
|
" let l:path = expand('%:p')
|
|
" let l:qflist = ghcmod#make('check', l:path)
|
|
" call extend(l:qflist, ghcmod#make('lint', l:path))
|
|
" call setqflist(l:qflist)
|
|
" cwindow
|
|
" if empty(l:qflist)
|
|
" echo "No errors found"
|
|
" endif
|
|
" endfunction
|
|
|
|
|
|
|
|
" LSP
|
|
let g:LanguageClient_autoStart = 0
|
|
let g:LanguageClient_serverCommands = {
|
|
\ 'haskell': ['hie-wrapper', '--lsp', '-d', '-l', $HOME.'/lang-server-lnvim.log'],
|
|
\ }
|
|
" we use ALE instead
|
|
let g:LanguageClient_diagnosticsEnable = 0
|
|
|
|
" nnoremap <leader>ld :call LanguageClient#textDocument_definition()<CR>
|
|
" nnoremap <leader>lr :call LanguageClient#textDocument_rename()<CR>
|
|
" nnoremap <leader>lf :call LanguageClient#textDocument_formatting()<CR>
|
|
" nnoremap <leader>lt :call LanguageClient#textDocument_typeDefinition()<CR>
|
|
" nnoremap <leader>lx :call LanguageClient#textDocument_references()<CR>
|
|
" nnoremap <leader>la :call LanguageClient_workspace_applyEdit()<CR>
|
|
" nnoremap <leader>lc :call LanguageClient#textDocument_completion()<CR>
|
|
" nnoremap <leader>lh :call LanguageClient#textDocument_hover()<CR>
|
|
" nnoremap <leader>ls :call LanguageClient_textDocument_documentSymbol()<CR>
|
|
" nnoremap <leader>lm :call LanguageClient_contextMenu()<CR>
|
|
" nnoremap <F6> :call LanguageClient#textDocument_hover()<CR>
|
|
|
|
|
|
" deoplete
|
|
"call deoplete#custom#option('sources',{
|
|
" \ '_': ['buffer'],
|
|
" \ 'haskell': ['neosnippet', 'buffer', 'file', 'neco-ghc']
|
|
" \ })
|
|
" " \ 'haskell': ['neosnippet', 'buffer', 'file', 'neco-ghc']
|
|
"call deoplete#enable()
|
|
"call deoplete#enable_logging('DEBUG', $HOME . '/deoplete.log')
|
|
"" inoremap <expr><tab> pumvisible() ? "\<c-n>" : "\<tab>"
|
|
|
|
let g:ghcmod_hlint_options = ['--ignore=Eta reduce $']
|
|
|
|
" ALE
|
|
let g:ale_enabled = 0
|
|
let g:ale_linters = {'haskell':[], 'c':['clang']}
|
|
" let g:ale_linters = {'haskell':['ghc-mod', 'hdevtools', 'argon'], 'c':['clang']}
|
|
" let g:ale_fixers = {
|
|
" \ 'haskell': ['brittany'],
|
|
" \}
|
|
let g:ale_haskell_hdevtools_options = "-g '-Wall' -g '-Wno-orphans'"
|
|
let g:ale_haskell_argon_error_level = 14
|
|
let g:ale_haskell_argon_warn_level = 10
|
|
let g:ale_haskell_argon_info_level = 6
|
|
|
|
" completion
|
|
"
|
|
" neco-ghc
|
|
" let g:necoghc_enable_detailed_browse = 1
|
|
" let g:haskellmode_completion_ghc = 0
|
|
" autocmd FileType haskell setlocal omnifunc=necoghc#omnifunc
|
|
" let g:ycm_semantic_triggers = {'haskell' : ['.']}
|
|
|
|
" let g:ycm_language_server = [ { 'name': 'haskell', 'filetypes': [ 'haskell', 'hs', 'lhs' ], 'cmdline': [ 'hie-wrapper' ], 'project_root_files': [ '.stack.yaml', 'cabal.config', 'package.yaml', 'cabal.project' ] } ]
|
|
|
|
|
|
|
|
" clear search
|
|
" nmap <F2> :noh<CR>:GhcModTypeClear<CR>
|
|
" imap <F2> <C-O>:noh<CR>:GhcModTypeClear<CR>
|
|
|
|
" unmap <F3>
|
|
" unmap <F4>
|
|
|
|
" nmap <F6> :GhcModType<CR>
|
|
|
|
" for intero
|
|
" if has("nvim")
|
|
" let g:ale_enabled = 0
|
|
|
|
" " let g:intero_backend = {
|
|
" " \ 'command': 'cabal new-repl',
|
|
" " \ 'options': '',
|
|
" " \ 'cwd': expand('%:p:h'),
|
|
" " \}
|
|
|
|
" " Intero starts automatically. Set this if you'd like to prevent that.
|
|
" let g:intero_start_immediately = 1
|
|
|
|
" " Enable type information on hover (when holding cursor at point for ~1 second).
|
|
" let g:intero_type_on_hover = 1
|
|
|
|
" " Change the intero window size; default is 10.
|
|
" let g:intero_window_size = 15
|
|
|
|
" " Sets the intero window to split vertically; default is horizontal
|
|
" " let g:intero_vertical_split = 1
|
|
|
|
" " let g:intero_ghci_options = '-dynamic'
|
|
|
|
" " OPTIONAL: Make the update time shorter, so the type info will trigger faster.
|
|
" set updatetime=1000
|
|
|
|
let g:neoformat_enabled_haskell = ['brittany']
|
|
|
|
|
|
|
|
" map <silent> <leader>t <Plug>InteroGenericType
|
|
" nnoremap <silent> <leader>jd :InteroGoToDef<CR>
|
|
" map <silent> <leader>T <Plug>InteroType
|
|
" nnoremap <silent> <leader>it :InteroTypeInsert<CR>
|
|
" nnoremap <leader>ist :InteroSetTargets<SPACE>
|
|
" endif
|
|
|
|
|
|
|
|
|
|
" ============ coc.nvim ===========
|
|
" markdown rendering of code blocks
|
|
let g:markdown_fenced_languages = ['haskell']
|
|
|
|
" if hidden is not set, TextEdit might fail.
|
|
set hidden
|
|
|
|
" Some servers have issues with backup files, see #649
|
|
set nobackup
|
|
set nowritebackup
|
|
|
|
" Better display for messages
|
|
"set cmdheight=2
|
|
|
|
" You will have bad experience for diagnostic messages when it's default 4000.
|
|
set updatetime=300
|
|
|
|
" don't give |ins-completion-menu| messages.
|
|
set shortmess+=c
|
|
|
|
" always show signcolumns
|
|
set signcolumn=yes
|
|
|
|
" Use tab for trigger completion with characters ahead and navigate.
|
|
" Use command ':verbose imap <tab>' to make sure tab is not mapped by other plugin.
|
|
inoremap <silent><expr> <TAB>
|
|
\ pumvisible() ? "\<C-n>" :
|
|
\ <SID>check_back_space() ? "\<TAB>" :
|
|
\ coc#refresh()
|
|
inoremap <expr><S-TAB> pumvisible() ? "\<C-p>" : "\<C-h>"
|
|
|
|
function! s:check_back_space() abort
|
|
let col = col('.') - 1
|
|
return !col || getline('.')[col - 1] =~# '\s'
|
|
endfunction
|
|
|
|
" Use <c-space> to trigger completion.
|
|
inoremap <silent><expr> <c-space> coc#refresh()
|
|
|
|
" Use <cr> to confirm completion, `<C-g>u` means break undo chain at current position.
|
|
" Coc only does snippet and additional edit on confirm.
|
|
inoremap <expr> <cr> pumvisible() ? "\<C-y>" : "\<C-g>u\<CR>"
|
|
" Or use `complete_info` if your vim support it, like:
|
|
" inoremap <expr> <cr> complete_info()["selected"] != "-1" ? "\<C-y>" : "\<C-g>u\<CR>"
|
|
|
|
" Use `[g` and `]g` to navigate diagnostics
|
|
nmap <silent> [g <Plug>(coc-diagnostic-prev)
|
|
nmap <silent> ]g <Plug>(coc-diagnostic-next)
|
|
|
|
" Remap keys for gotos
|
|
nmap <silent> gd <Plug>(coc-definition)
|
|
nmap <silent> gy <Plug>(coc-type-definition)
|
|
nmap <silent> gi <Plug>(coc-implementation)
|
|
nmap <silent> gr <Plug>(coc-references)
|
|
|
|
" Use K to show documentation in preview window
|
|
nnoremap <silent> K :call <SID>show_documentation()<CR>
|
|
|
|
function! s:show_documentation()
|
|
if (index(['vim','help'], &filetype) >= 0)
|
|
execute 'h '.expand('<cword>')
|
|
else
|
|
call CocAction('doHover')
|
|
endif
|
|
endfunction
|
|
|
|
" Highlight symbol under cursor on CursorHold
|
|
autocmd CursorHold * silent call CocActionAsync('highlight')
|
|
|
|
" Remap for rename current word
|
|
nmap <leader>rn <Plug>(coc-rename)
|
|
|
|
" Remap for format selected region
|
|
xmap <leader>f <Plug>(coc-format-selected)
|
|
nmap <leader>f <Plug>(coc-format-selected)
|
|
|
|
augroup mygroup
|
|
autocmd!
|
|
" Setup formatexpr specified filetype(s).
|
|
autocmd FileType typescript,json setl formatexpr=CocAction('formatSelected')
|
|
" Update signature help on jump placeholder
|
|
autocmd User CocJumpPlaceholder call CocActionAsync('showSignatureHelp')
|
|
augroup end
|
|
|
|
" Remap for do codeAction of selected region, ex: `<leader>aap` for current paragraph
|
|
xmap <leader>a <Plug>(coc-codeaction-selected)
|
|
nmap <leader>a <Plug>(coc-codeaction-selected)
|
|
|
|
" Remap for do codeAction of current line
|
|
nmap <leader>ac <Plug>(coc-codeaction)
|
|
" Fix autofix problem of current line
|
|
nmap <leader>qf <Plug>(coc-fix-current)
|
|
|
|
" Create mappings for function text object, requires document symbols feature of languageserver.
|
|
xmap if <Plug>(coc-funcobj-i)
|
|
xmap af <Plug>(coc-funcobj-a)
|
|
omap if <Plug>(coc-funcobj-i)
|
|
omap af <Plug>(coc-funcobj-a)
|
|
|
|
" Use <TAB> for select selections ranges, needs server support, like: coc-tsserver, coc-python
|
|
nmap <silent> <TAB> <Plug>(coc-range-select)
|
|
xmap <silent> <TAB> <Plug>(coc-range-select)
|
|
|
|
" Use `:Format` to format current buffer
|
|
command! -nargs=0 Format :call CocAction('format')
|
|
|
|
" Use `:Fold` to fold current buffer
|
|
command! -nargs=? Fold :call CocAction('fold', <f-args>)
|
|
|
|
" use `:OR` for organize import of current buffer
|
|
command! -nargs=0 OR :call CocAction('runCommand', 'editor.action.organizeImport')
|
|
|
|
" Add status line support, for integration with other plugin, checkout `:h coc-status`
|
|
set statusline^=%{coc#status()}%{get(b:,'coc_current_function','')}
|
|
|
|
" Using CocList
|
|
" Show all diagnostics
|
|
nnoremap <silent> <space>a :<C-u>CocList diagnostics<cr>
|
|
" Manage extensions
|
|
nnoremap <silent> <space>e :<C-u>CocList extensions<cr>
|
|
" Show commands
|
|
nnoremap <silent> <space>c :<C-u>CocList commands<cr>
|
|
" Find symbol of current document
|
|
nnoremap <silent> <space>o :<C-u>CocList outline<cr>
|
|
" Search workspace symbols
|
|
nnoremap <silent> <space>s :<C-u>CocList -I symbols<cr>
|
|
" Do default action for next item.
|
|
nnoremap <silent> <space>j :<C-u>CocNext<CR>
|
|
" Do default action for previous item.
|
|
nnoremap <silent> <space>k :<C-u>CocPrev<CR>
|
|
" Resume latest coc list
|
|
nnoremap <silent> <space>p :<C-u>CocListResume<CR>
|