init

1 files changed, 30 insertions, 0 deletions

diff --git a/ftplugin/haskell.vim b/ftplugin/haskell.vim
new file mode 100644
index 0000000..651f033
--- /dev/null
+++ b/ftplugin/haskell.vim
@@ -0,0 +1,30 @@
+function! s:OverwriteBuffer(output)
+    let winview = winsaveview()
+    silent! undojoin
+    normal! gg"_dG
+    call append(0, split(a:output, '\v\n'))
+    normal! G"_dd
+    call winrestview(winview)
+endfunction
+
+function! s:RunStylishHaskell()
+    let output = system("stylish-haskell" . " " . bufname("%"))
+    let errors = matchstr(output, '\(Language\.Haskell\.Stylish\.Parse\.parseModule:[^\x0]*\)')
+    if v:shell_error != 0
+        echom output
+    elseif empty(errors)
+        call s:OverwriteBuffer(output)
+        write
+    else
+        echom errors
+    endif
+endfunction
+
+set formatprg=stylish-haskell
+set makeprg=hlint
+
+augroup HaskellLint
+    autocmd!
+    autocmd BufWritePost *.hs | call s:RunStylishHaskell() | silent make! <afile> | silent redraw!
+    autocmd QuickFixCmdPost [^l]* cwindow
+augroup END