Use deoplete and LSP for haskell

after/ftplugin/haskell.vim

@@ -1,11 +1,8 @@
-setlocal ts=2 sw=2 expandtab omnifunc=necoghc#omnifunc
+setlocal ts=2 sw=2 expandtab
 
 "set background=light
 "set guifont=Neep\ Medium\ Semi-Condensed\ 18
 
-let g:haskell_classic_highlighting = 1
-
-
 syntax on
 filetype plugin indent on
 
@@ -13,27 +10,14 @@ filetype plugin indent on
 call CmdAlias('hasktags', '!/home/jule/.cabal/bin/hasktags -c .<CR>')
 
 
-
-function! HaskellDocCurrentWord()
-        let word = expand("<cword>")
-        exe "IDoc " . word
-endfunction
-
-
-
-nmap <F8> :call HaskellDocCurrentWord()<CR><CR>
-
-nmap <silent> <F3> :silent update <bar> HsimportModule<CR>
-nmap <silent> <F4> :silent update <bar> HsimportSymbol<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
@@ -42,6 +26,19 @@ nmap <silent> <F4> :silent update <bar> HsimportSymbol<CR>
 " 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/'
 
@@ -59,68 +56,79 @@ let g:vim_annotations_offset = '/.liquid/'
 " endfunction
 
 
-" let g:deoplete#enable_at_startup = 1
 
-" set hidden
+" LSP
+let g:LanguageClient_autoStart = 1
+let g:LanguageClient_serverCommands = {
+	\ 'haskell': ['hie', '--lsp', '-d', '-l', $HOME.'/lang-server.log'],
+	\ }
 
-" let g:LanguageClient_serverCommands = {
+nnoremap <silent> <F7> :call LanguageClient#textDocument_hover()<CR>
-	" \ 'haskell': ['hie', '--lsp', '-d', '-l', '/home/hasufell/lang-server.log'],
+nnoremap <silent> gd :call LanguageClient#textDocument_definition()<CR>
-	" \ }
+nnoremap <silent> <F8> :call LanguageClient#textDocument_rename()<CR>
 
-" nnoremap <silent> K :call LanguageClient#textDocument_hover()<CR>
+" deoplete
-" nnoremap <silent> gd :call LanguageClient#textDocument_definition()<CR>
+call deoplete#custom#option('sources',{
-" nnoremap <silent> <F2> :call LanguageClient#textDocument_rename()<CR>
+	\ '_': ['buffer'],
+	\ 'haskell': ['ultisnips', 'buffer', 'file', 'LanguageClient']
+	\ })
+call deoplete#enable()
 
-" autocmd VimEnter * LanguageClientStart
+let g:ghcmod_hlint_options = ['--ignore=Eta reduce $']
 
-if has("nvim")
+" ALE
-	let g:ale_enabled = 0
+let g:ale_enabled = 0 " LSP does it
+let g:ale_linters = {'haskell':['ghc-mod', 'hdevtools'], 'c':['clang']}
+" let g:ale_fixers = {
+	" \    'go': ['gofmt', 'goimports'],
+	" \}
+let g:ale_haskell_hdevtools_options = "-g '-Wall' -g '-Wno-orphans'"
 
-	" let g:intero_backend = {
+" completion
-			" \ 'command': 'cabal new-repl',
+"
-			" \ 'options': '',
+" neco-ghc
-			" \ 'cwd': expand('%:p:h'),
+" let g:necoghc_enable_detailed_browse = 1
-			" \}
+" let g:haskellmode_completion_ghc = 0
+" let g:necoghc_enable_detailed_browse = 1
+" autocmd FileType haskell setlocal omnifunc=necoghc#omnifunc
+" let g:ycm_semantic_triggers = {'haskell' : ['.']}
 
-	" 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
+" clear search
-	let g:intero_vertical_split = 1
+nmap <F2> :noh<CR>:GhcModTypeClear<CR>
+imap <F2> <C-O>:noh<CR>:GhcModTypeClear<CR>
 
-	" OPTIONAL: Make the update time shorter, so the type info will trigger faster.
+" unmap <F3>
-	set updatetime=1000
+" unmap <F4>
 
-	map <silent> <leader>t <Plug>InteroGenericType
+nmap <F6> :GhcModType<CR>
-else
-	let g:ghcmod_hlint_options = ['--ignore=Eta reduce $']
 
-	" ALE
+" for intero
-	let g:ale_linters = {'haskell':['ghc-mod', 'hdevtools'], 'c':['clang']}
+" if has("nvim")
-	" let g:ale_fixers = {
+	" let g:ale_enabled = 0
-		" \    'go': ['gofmt', 'goimports'],
-		" \}
-	let g:ale_haskell_hdevtools_options = "-g '-Wall' -g '-Wno-orphans'"
 
-	" neco-ghc
+	" " let g:intero_backend = {
-	let g:necoghc_enable_detailed_browse = 1
+			" " \ 'command': 'cabal new-repl',
-	let g:haskellmode_completion_ghc = 0
+			" " \ 'options': '',
-	let g:necoghc_enable_detailed_browse = 1
+			" " \ 'cwd': expand('%:p:h'),
-	autocmd FileType haskell setlocal omnifunc=necoghc#omnifunc
+			" " \}
-	let g:ycm_semantic_triggers = {'haskell' : ['.']}
 
-	" clear search
+	" " Intero starts automatically. Set this if you'd like to prevent that.
-	nmap <F2> :noh<CR>:GhcModTypeClear<CR>
+	" let g:intero_start_immediately = 1
-	imap <F2> <C-O>:noh<CR>:GhcModTypeClear<CR>
 
-	" unmap <F3>
+	" " Enable type information on hover (when holding cursor at point for ~1 second).
-	" unmap <F4>
+	" let g:intero_type_on_hover = 1
 
-	nmap <F6> :GhcModType<CR>
+	" " Change the intero window size; default is 10.
-endif
+	" let g:intero_window_size = 15
+
+	" " Sets the intero window to split vertically; default is horizontal
+	" let g:intero_vertical_split = 1
+
+	" " OPTIONAL: Make the update time shorter, so the type info will trigger faster.
+	" set updatetime=1000
+
+	" map <silent> <leader>t <Plug>InteroGenericType
+" endif

vimrc

@@ -5,10 +5,6 @@
 filetype plugin on
 filetype indent on
 
-" Section pathogen
-" let g:pathogen_disabled = []
-" call add(g:pathogen_disabled, 'syntastic')
-" call pathogen#infect()
 
 
 " vim-plug settings (Plugin declaration)
@@ -61,6 +57,20 @@ endif
 Plug 'LucHermitte/lh-vim-lib'
 Plug 'LucHermitte/local_vimrc'
 
+" completion
+Plug 'Valloric/YouCompleteMe', { 'do': './install.py --clang-completer --go-completer --rust-completer --system-boost --system-libclang',
+    \ 'for': ['c', 'python', 'sh', 'go', 'clojure', 'rust'],
+    \ }
+" deoplete for haskell
+if has('nvim')
+  Plug 'Shougo/deoplete.nvim', { 'do': ':UpdateRemotePlugins',
+			  \ }
+else
+  Plug 'Shougo/deoplete.nvim'
+  Plug 'roxma/nvim-yarp'
+  Plug 'roxma/vim-hug-neovim-rpc'
+endif
+
 " LSP
 " setting this per-language breaks "let g:LanguageClient_autoStart = 1",
 Plug 'autozimu/LanguageClient-neovim', {
@@ -68,27 +78,18 @@ Plug 'autozimu/LanguageClient-neovim', {
 	\ 'do': 'bash install.sh',
 	\ }
 " (Optional) Multi-entry selection UI.
-" Plug 'junegunn/fzf', { 'for': 'haskell' }
+Plug 'junegunn/fzf', { 'for': 'haskell' }
-" autocomplet
-" Plug 'Shougo/deoplete.nvim', { 'for': 'haskell' }
-" Plug 'roxma/nvim-yarp', { 'for': 'haskell' }
-" Plug 'roxma/vim-hug-neovim-rpc', { 'for': 'haskell' }
 
 " linting/compilation
 Plug 'w0rp/ale'
 
-" completion
-Plug 'Valloric/YouCompleteMe', { 'do': './install.py --clang-completer --go-completer --rust-completer --system-boost --system-libclang',
-    \ 'for': ['haskell', 'c', 'python', 'sh', 'go', 'clojure', 'rust'],
-    \ }
-
 " haskell
-if has("nvim")
+" if has("nvim")
-	Plug 'parsonsmatt/intero-neovim'
+	" Plug 'parsonsmatt/intero-neovim'
-else
+" endif
-	Plug 'eagletmt/ghcmod-vim', { 'for': 'haskell' }
+Plug 'eagletmt/ghcmod-vim', { 'for': 'haskell' }
-	Plug 'eagletmt/neco-ghc', { 'for': 'haskell' }
+" completion based on ghc-mod, not LSP
-endif
+" Plug 'eagletmt/neco-ghc', { 'for': 'haskell' }
 Plug 'lukerandall/haskellmode-vim', { 'for': 'haskell' }
 Plug 'neovimhaskell/haskell-vim', { 'for': 'haskell' }
 Plug 'ucsd-progsys/liquid-types.vim', { 'for': 'haskell' }
@@ -150,7 +151,7 @@ endif
 call plug#end()
 
 
-" ===== further plugin initialization =====
+" ===== further plugin initialization and default config =====
 so ~/.vim/plugged/cmdalias.vim/plugin/cmdalias.vim
 
 
@@ -166,6 +167,78 @@ if !has("nvim")
 endif
 
 
+" LSP
+let g:LanguageClient_autoStart = 0
+
+" deoplete
+let g:deoplete#enable_at_startup = 0
+
+" ==== delimitMate ====
+let g:delimitMate_matchpairs = "(:),[:],{:}"
+let g:delimitMate_expand_cr = 1
+let g:delimitMate_expand_space = 1
+let g:delimitMate_autoclose = 1
+
+
+" Solarized stuff
+" let g:solarized_termtrans=0
+" let g:solarized_degrade=0
+" let g:solarized_bold=1
+" let g:solarized_underline=1
+" let g:solarized_italic=1
+" let g:solarized_termcolors=16
+" let g:solarized_contrast="normal"
+let g:solarized_visibility="high"
+" let g:solarized_diffmode="normal"
+" let g:solarized_hitrail=0
+let g:solarized_menu=1
+
+
+" youcompleteme
+let g:ycm_filetype_blacklist = {
+	\ 'notes' : 1,
+	\ 'markdown' : 1,
+	\ 'text' : 1,
+	\ 'java' : 1,
+	\}
+let g:ycm_confirm_extra_conf = 0
+let g:ycm_global_ycm_extra_conf='~/.vim/.ycm_extra_conf.py'
+let g:ycm_collect_identifiers_from_tags_files = 1
+let g:ycm_seed_identifiers_with_syntax = 0
+" let g:ycm_always_populate_location_list = 1
+let g:ycm_autoclose_preview_window_after_completion = 1
+let g:ycm_key_invoke_completion = '<C-Space>'
+let g:ycm_key_list_select_completion = ['<TAB>']
+let g:ycm_key_list_previous_completion = ['<S-TAB>']
+" nnoremap <F4> :YcmCompleter GoToDefinition<CR>
+let g:ycm_server_log_level = 'error'
+let g:ycm_semantic_triggers = {'haskell' : ['. ', '$ ']}
+let g:ycm_goto_buffer_command = 'horizontal-split'
+
+
+" commenting
+let NERDSpaceDelims=1
+let NERDCreateDefaultMappings=0
+
+" haskellmode, needs to load early
+let g:haddock_browser='/usr/bin/firefox'
+let g:haddock_browser_callformat='%s file://%s >/dev/null 2>&1 &'
+
+
+" ==== conque ====
+" command aliases
+call CmdAlias('t','tabnew')
+" call CmdAlias('cmd','ConqueTermSplit')
+" call CmdAlias('bash','ConqueTermSplit bash<CR>')
+call CmdAlias('openall','tab sball')
+call CmdAlias('stripw','call StripTrailingWhitespaces()<CR>')
+call CmdAlias('hotkeys', 'tabnew ~/.vim/hotkeys')
+call CmdAlias('TC', 'call ToggleComment()<CR>')
+call CmdAlias('TF', 'call ToggleFoldText()<CR>')
+call CmdAlias('ctags', '!/usr/bin/ctags -R --langmap=c:.c.h --c++-kinds=+p --c-kinds=+p+x --fields=+i+a+S+t+l+m+n --extra=+q .<CR>')
+
+
+
 " global settings
 set foldmethod=syntax   "fold based on indent
 set foldnestmax=10      "deepest fold is 10 levels
@@ -186,30 +259,63 @@ set modelines=1
 
 let g:nickID = "hasufell"
 
+" don't yank to buffer on deletion
+" vnoremap d "_d
+" nnoremap d "_d
+vnoremap x "_x
+nnoremap x "_x
 
-" haskellmode, needs to load early
+" Syntax
-let g:haddock_browser='/usr/bin/firefox'
+syntax enable
-let g:haddock_browser_callformat='%s file://%s >/dev/null 2>&1 &'
+
+" pane navigation
+" Use ctrl-[hjkl] to select the active split!
+let g:C_Ctrl_j = 'off'
+let g:BASH_Ctrl_j = 'off'
+
+try
+    lang en_US
+catch
+endtry
+
+" ==========colors===========
+"set t_Co=256
+"let g:solarized_termcolors=256
+if has('gui_running')
+	set background=dark
+	colorscheme solarized
+else
+	set background=dark
+	colorscheme solarized
+endif
+
+if has("nvim")
+	if exists('g:GtkGuiLoaded')
+		let g:neosolarized_contrast = "normal"
+		let g:neosolarized_visibility = "normal"
+		let g:neosolarized_vertSplitBgTrans = 0
+		let g:neosolarized_bold = 1
+		let g:neosolarized_underline = 1
+		let g:neosolarized_italic = 1
+		set background=dark
+		colorscheme NeoSolarized
+	else
+		let g:neosolarized_contrast = "normal"
+		let g:neosolarized_visibility = "normal"
+		let g:neosolarized_vertSplitBgTrans = 0
+		let g:neosolarized_bold = 1
+		let g:neosolarized_underline = 1
+		let g:neosolarized_italic = 1
+		set background=dark
+		colorscheme NeoSolarized
+	endif
+endif
+
+" ===========================
 
 
 
 
-" ==== conque ====
-" command aliases
-call CmdAlias('t','tabnew')
-" call CmdAlias('cmd','ConqueTermSplit')
-" call CmdAlias('bash','ConqueTermSplit bash<CR>')
-call CmdAlias('openall','tab sball')
-call CmdAlias('stripw','call StripTrailingWhitespaces()<CR>')
-call CmdAlias('hotkeys', 'tabnew ~/.vim/hotkeys')
-call CmdAlias('TC', 'call ToggleComment()<CR>')
-call CmdAlias('TF', 'call ToggleFoldText()<CR>')
-call CmdAlias('ctags', '!/usr/bin/ctags -R --langmap=c:.c.h --c++-kinds=+p --c-kinds=+p+x --fields=+i+a+S+t+l+m+n --extra=+q .<CR>')
-
-
-" cabbrev git Git
-
-
 
 " Disable annoying auto line break
 fu! DisableBr()
@@ -249,83 +355,6 @@ endfunction
 " =======================
 
 
-" don't yank to buffer on deletion
-" vnoremap d "_d
-" nnoremap d "_d
-vnoremap x "_x
-nnoremap x "_x
-
-" Syntax
-syntax enable
-
-
-" ==== delimitMate ====
-let g:delimitMate_matchpairs = "(:),[:],{:}"
-let g:delimitMate_expand_cr = 1
-let g:delimitMate_expand_space = 1
-let g:delimitMate_autoclose = 1
-
-
-" pane navigation
-" Use ctrl-[hjkl] to select the active split!
-let g:C_Ctrl_j = 'off'
-let g:BASH_Ctrl_j = 'off'
-
-
-" ==========colors===========
-"set t_Co=256
-"let g:solarized_termcolors=256
-if has('gui_running')
-	set background=dark
-	colorscheme solarized
-else
-	set background=dark
-	colorscheme solarized
-endif
-
-if has("nvim")
-	if exists('g:GtkGuiLoaded')
-		let g:neosolarized_contrast = "normal"
-		let g:neosolarized_visibility = "normal"
-		let g:neosolarized_vertSplitBgTrans = 0
-		let g:neosolarized_bold = 1
-		let g:neosolarized_underline = 1
-		let g:neosolarized_italic = 1
-		set background=dark
-		colorscheme NeoSolarized
-	else
-		let g:neosolarized_contrast = "normal"
-		let g:neosolarized_visibility = "normal"
-		let g:neosolarized_vertSplitBgTrans = 0
-		let g:neosolarized_bold = 1
-		let g:neosolarized_underline = 1
-		let g:neosolarized_italic = 1
-		set background=dark
-		colorscheme NeoSolarized
-	endif
-endif
-
-" ===========================
-
-" Solarized stuff
-" let g:solarized_termtrans=0
-" let g:solarized_degrade=0
-" let g:solarized_bold=1
-" let g:solarized_underline=1
-" let g:solarized_italic=1
-" let g:solarized_termcolors=16
-" let g:solarized_contrast="normal"
-let g:solarized_visibility="high"
-" let g:solarized_diffmode="normal"
-" let g:solarized_hitrail=0
-let g:solarized_menu=1
-
-try
-    lang en_US
-catch
-endtry
-
-
 
 " ====== traling whitespace =====
 fun! ShowTrailingWhitespace(pattern)
@@ -368,37 +397,6 @@ endfun
 " ===========================
 
 
-" LSP
-let g:LanguageClient_autoStart = 0
-
-
-" youcompleteme
-let g:ycm_filetype_blacklist = {
-	\ 'notes' : 1,
-	\ 'markdown' : 1,
-	\ 'text' : 1,
-	\ 'java' : 1,
-	\}
-let g:ycm_confirm_extra_conf = 0
-let g:ycm_global_ycm_extra_conf='~/.vim/.ycm_extra_conf.py'
-let g:ycm_collect_identifiers_from_tags_files = 1
-let g:ycm_seed_identifiers_with_syntax = 0
-" let g:ycm_always_populate_location_list = 1
-let g:ycm_autoclose_preview_window_after_completion = 1
-let g:ycm_key_invoke_completion = '<C-Space>'
-let g:ycm_key_list_select_completion = ['<TAB>']
-let g:ycm_key_list_previous_completion = ['<S-TAB>']
-" nnoremap <F4> :YcmCompleter GoToDefinition<CR>
-let g:ycm_server_log_level = 'error'
-let g:ycm_semantic_triggers = {'haskell' : ['. ', '$ ']}
-let g:ycm_goto_buffer_command = 'horizontal-split'
-
-
-" commenting
-let NERDSpaceDelims=1
-let NERDCreateDefaultMappings=0
-
-
 " comment hiding
 func! IsComment( lnum )
 	return synIDattr(synID(a:lnum, match(getline(a:lnum),'\S')+1, 1),"name") =~? 'comment'