mirror of
1
0
Fork 0
ultimate-vim/sources_non_forked/guile.vim/ftdetect/scheme.vim

37 lines
1.5 KiB
VimL

" License: The MIT License (MIT) {{{
" Copyright (c) 2019 HiPhish
"
" Permission is hereby granted, free of charge, to any person obtaining a
" copy of this software and associated documentation files (the
" "Software"), to deal in the Software without restriction, including
" without limitation the rights to use, copy, modify, merge, publish,
" distribute, sublicense, and/or sell copies of the Software, and to permit
" persons to whom the Software is furnished to do so, subject to the
" following conditions:
"
" The above copyright notice and this permission notice shall be included
" in all copies or substantial portions of the Software.
"
" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
" OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
" NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
" DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
" OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
" USE OR OTHER DEALINGS IN THE SOFTWARE.
" }}}
" Safely adjust to file type to not include `guile` more than once
function! s:adjust_ft()
for l:ft in split(&filetype, '\v\.')
if l:ft == 'guile'
return
endif
endfor
let &ft.='.guile'
endfunction
augroup filetypedetect
autocmd BufRead,BufNewFile *scm if guile#detect() | call s:adjust_ft() | endif
augroup end