homes/programs/vim/ale.vim

   1 let g:ale_linters = {
   2 \ 'haskell': ['hie'],
   3 \}
   4 let b:ale_fixers = {
   5 \ 'haskell': ['hie', 'hlint']
   6 \}
   7 "let g:ale_command_wrapper = 'nice -n5 %*'
   8 "let g:ale_haskell_hie_executable = 'hie-wrapper'
   9 let g:ale_haskell_hie_executable = 'haskell-language-server-wrapper'
  10
  11 let g:ale_close_preview_on_insert = 1
  12 let g:ale_cursor_detail = 0
  13 let g:ale_keep_list_window_open = 0
  14 let g:ale_lint_delay = 200
  15 let g:ale_lint_on_enter = 0
  16 let g:ale_lint_on_insert_leave = 0
  17 let g:ale_lint_on_save = 1
  18 let g:ale_lint_on_text_changed = 'never'
  19 let g:ale_list_vertical = 0
  20 let g:ale_list_window_size = 5
  21 let g:ale_lsp_show_message_severity = 'information'
  22 let g:ale_lsp_suggestions = 1
  23 let g:ale_maximum_file_size = 1000000
  24 let g:ale_open_list = 1
  25 let g:ale_set_balloons = 1
  26 let g:ale_set_highlights = 1
  27 let g:ale_set_loclist = 1
  28 let g:ale_set_quickfix = 0
  29 let g:ale_sign_column_always = 1
  30 let g:ale_sign_error = '!!'
  31 let g:ale_sign_warning = ' !'
  32 let g:ale_virtualtext_cursor = 1
  33 let g:ale_virtualtext_delay = 10
  34
  35 " Unfortunately, this does not update the loclist position
  36 "nmap <silent> <C-j> :ALEPrevious<CR>
  37 "nmap <silent> <C-l> :ALENext<CR>
  38 nmap <silent> <C-w> :ALEPrevious -wrap -error<CR>
  39 nmap <silent> <C-e> :ALENext -wrap -error<CR>
  40
  41 function! LinterStatus() abort
  42   let l:counts = ale#statusline#Count(bufnr(''))
  43   let l:all_errors = l:counts.error + l:counts.style_error
  44   let l:all_non_errors = l:counts.total - l:all_errors
  45   if !get(g:, 'ale_enabled', 0)
  46     return ''
  47   elseif index(g:ale_filetype_blacklist, &filetype) != -1
  48     return ''
  49   elseif ale#engine#IsCheckingBuffer(bufnr('')) == 1
  50     return '...'
  51   elseif l:counts.total == 0
  52     return 'OK'
  53   else
  54     return printf('%dW %dE', all_non_errors, all_errors)
  55   fi
  56 endfunction
  57 " Refresh the statusline
  58 augroup RefreshStatusline
  59   autocmd!
  60   autocmd CursorHold,BufWritePost * :redrawstatus
  61   autocmd User ALEJobStarted,ALELintPost :redrawstatus
  62 augroup END
  63
  64 " Close the loclist window automatically when the buffer is closed
  65 augroup CloseLoclistWindowGroup
  66   autocmd!
  67   autocmd QuitPre * if empty(&buftype) | lclose | endif
  68 augroup END
  69
  70 "nmap <silent> <C-k> <Plug>(ale_previous_wrap)
  71 "nmap <silent> <C-l> <Plug>(ale_next_wrap)
  72
  73 hi ALEWarningSign ctermbg=darkyellow ctermfg=black
  74 hi ALEVirtualTextError ctermfg=red
  75 hi ALEVirtualTextWarning ctermfg=yellow
  76 hi ALEVirtualTextInfo ctermfg=blue
  77 "hi clear ALEWarning
  78
  79 let g:ale_completion_enabled = 0
  80 "set omnifunc=ale#completion#OmniFunc
  81 "au FileType haskell set omnifunc=ale#completion#OmniFunc
  82
  83 imap <C-p> <C-x><C-o>
  84 imap <silent><expr> <TAB>
  85  \ pumvisible() ? "\<C-n>" :
  86  \ <SID>check_back_space() ? "\<TAB>" :
  87  \ "\<C-p>"
  88 function! s:check_back_space() abort
  89         let col = col('.') - 1
  90         return !col || getline('.')[col - 1] =~# '\s'
  91 endfunction
  92 let g:ale_completion_symbols = {
  93 \ 'text': '',
  94 \ 'method': '',
  95 \ 'function': 'fun',
  96 \ 'constructor': 'cons',
  97 \ 'field': '',
  98 \ 'variable': 'var',
  99 \ 'class': 'type',
 100 \ 'interface': '',
 101 \ 'module': 'mod',
 102 \ 'property': 'prop',
 103 \ 'unit': 'unit',
 104 \ 'value': 'val',
 105 \ 'enum': '',
 106 \ 'keyword': 'keyword',
 107 \ 'snippet': '',
 108 \ 'color': 'color',
 109 \ 'file': '',
 110 \ 'reference': 'ref',
 111 \ 'folder': '',
 112 \ 'enum member': '',
 113 \ 'constant': '',
 114 \ 'struct': '',
 115 \ 'event': 'event',
 116 \ 'operator': '',
 117 \ 'type_parameter': 'type param',
 118 \ '<default>': 'v'
 119 \ }
 120
 121 nmap gd :ALEGoToDefinition<CR>