37 lines
1.5 KiB
VimL
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
|