2016-09-11 07:24:17 -04:00
|
|
|
if !exists('g:polyglot_disabled') || index(g:polyglot_disabled, 'purescript') == -1
|
|
|
|
|
|
|
|
setlocal comments=s1fl:{-,mb:\ \ ,ex:-},:--
|
2017-09-27 13:57:29 -04:00
|
|
|
setlocal include=^import
|
|
|
|
setlocal includeexpr=printf('%s.purs',substitute(v:fname,'\\.','/','g'))
|
|
|
|
|
|
|
|
let s:PS = []
|
|
|
|
fun! InitPureScript()
|
|
|
|
let dirs = map(
|
|
|
|
\ findfile("psc-package.json", expand("%:p:h") . ";/", -1),
|
|
|
|
\ { idx, val -> fnamemodify(val, ":p:h") }
|
|
|
|
\ )
|
|
|
|
if empty(dirs)
|
|
|
|
let dirs = map(
|
|
|
|
\ findfile("bower.json", expand("%:p:h") . ";/", -1),
|
|
|
|
\ { idx, val -> fnamemodify(val, ":p:h") }
|
|
|
|
\ )
|
|
|
|
if empty(dirs)
|
|
|
|
return
|
|
|
|
endif
|
|
|
|
endif
|
|
|
|
|
|
|
|
let path = expand("%:p")
|
|
|
|
for p in s:PS
|
|
|
|
if stridx(path, p[0], 0) == 0
|
|
|
|
let &l:path=p[1]
|
|
|
|
return
|
|
|
|
endif
|
|
|
|
endfor
|
|
|
|
|
|
|
|
let dir = dirs[len(dirs) - 1]
|
|
|
|
let gp = globpath(dir, "src/**/*.purs", v:true, v:true)
|
|
|
|
if empty(gp)
|
|
|
|
return
|
|
|
|
endif
|
|
|
|
|
|
|
|
let &l:path=join([dir, dir . "/bower_components/**", dir . "/src/**"], ",")
|
|
|
|
call add(s:PS, [dir, &l:path])
|
|
|
|
endfun
|
|
|
|
call InitPureScript()
|
2016-09-11 07:24:17 -04:00
|
|
|
|
|
|
|
endif
|