Indent (#44)

* indent class and remove '|' from operator characters

If '|' was included then there is extra indent in
```
class RowLacking (entry :: Type)
                 (key :: Symbol)
                 (typ :: Type)
                 (row :: # Type) |
		 >>
                 entry typ -> key row
```

* indent pattern guards

* guard against class
* if the previous line contains `| otherwise` find the first line that
  does not start with `|` (actually find the first line that starts with
  `\k`, '^\%(\s*|\)\@!' did not work inside indent function for some
  reason.

Author: Coot

indent/purescript.vim

@@ -108,10 +108,16 @@ function! GetPurescriptIndent()
   endif
 
   let s = match(prevline, '[[:alnum:][:blank:]]\@<=|[[:alnum:][:blank:]$]')
-  if s >= 0 && index(s:GetSynStack(v:lnum - 1, s), "purescriptFunctionDecl") == -1
-    " ident pattern quards but not if we are in a type declaration
+  if s >= 0 && prevline !~ '^class\>' && index(s:GetSynStack(v:lnum - 1, s), "purescriptFunctionDecl") == -1
+    " ident pattern guards but not if we are in a type declaration
     " what we detect using syntax groups
-    return s
+    if prevline =~ '|\s*otherwise\>'
+      return indent(search('^\s*\k', 'bnW'))
+      " somehow this pattern does not work :/
+      " return indent(search('^\(\s*|\)\@!', 'bnW'))
+    else
+      return s
+    endif
   endif
 
   let s = match(line, '\%(\\.\{-}\)\@<=->')
@@ -165,10 +171,10 @@ function! GetPurescriptIndent()
     endif
   endif
 
-  if prevline =~ '[!#$%&*+./<>?@\\^|~-]\s*$'
+  if prevline =~ '[!#$%&*+./<>?@\\^~-]\s*$'
     let s = match(prevline, '=')
     if s > 0
-      return s + 2
+      return s + &l:shiftwidth
     endif
 
     let s = match(prevline, '\<:\>')
@@ -223,6 +229,10 @@ function! GetPurescriptIndent()
     return match(prevline, '\S') + (line !~ '^\s*[})]]' ? 0 : &l:shiftwidth)
   endif
 
+  if prevline =~ '^class'
+    return &l:shiftwidth
+  endif
+
   let s = match(prevline, '\<where\>\s*$')
   if s >= 0 && index(s:GetSynStack(v:lnum - 1, s), 'purescriptString') == -1
     return match(prevline, '\S') + g:purescript_indent_where