94 lines
2.9 KiB
VimL
94 lines
2.9 KiB
VimL
if exists('g:loaded_csv') && g:loaded_csv
|
|
finish
|
|
endif
|
|
let g:loaded_csv = 1
|
|
|
|
let s:cpo_save = &cpo
|
|
set cpo&vim
|
|
|
|
if exists("g:csv_autocmd_arrange")
|
|
if !exists("*CSVDoBufLoadAutocmd")
|
|
fu! CSVDoBufLoadAutocmd()
|
|
" Visually arrange columns when opening a csv file
|
|
aug CSV_Edit
|
|
au!
|
|
au BufReadPost,BufWritePost *.csv,*.dat,*.tsv,*.tab :exe
|
|
\ printf(":call CSVArrangeCol(1, %d, 0, %d)",
|
|
\ line('$'), get(g:, 'csv_autocmd_arrange_size', -1))
|
|
au BufWritePre *.csv,*.dat,*.tsv,*.tab :sil %UnArrangeColumn
|
|
aug end
|
|
endfu
|
|
call CSVDoBufLoadAutocmd()
|
|
endif
|
|
endif
|
|
|
|
com! -range -bang -nargs=? CSVTable call <sid>Table(<bang>0, <line1>, <line2>, <q-args>)
|
|
|
|
fu! <sid>Table(bang, line1, line2, delim)
|
|
if match(split(&ft, '\.'), 'csv') > -1
|
|
" Use CSVTabularize command
|
|
echohl WarningMsg
|
|
echomsg "For CSV files, use the :CSVTabularize command!"
|
|
echohl None
|
|
return
|
|
endif
|
|
" save and restore some options
|
|
if has("conceal")
|
|
let _a = [ &l:lz, &l:syntax, &l:ft, &l:sol, &l:tw, &l:wrap, &l:cole, &l:cocu, &l:fen, &l:fdm, &l:fdl, &l:fdc, &l:fml, &l:fdt, &l:ma, &l:ml]
|
|
else
|
|
let _a = [ &l:lz, &l:syntax, &l:ft, &l:sol, &l:tw, &l:wrap, &l:fen, &l:fdm, &l:fdl, &l:fdc, &l:fml, &l:fdt, &l:ma, &l:ml]
|
|
endif
|
|
let _b = winsaveview()
|
|
let line1 = a:line1
|
|
let line2 = a:line2
|
|
|
|
if line1 == line2
|
|
" use the current paragraph
|
|
let line1 = line("'{") + 1
|
|
let line2 = line("'}") - 1
|
|
endif
|
|
|
|
if !empty(a:delim)
|
|
let g:csv_delim = (a:delim ==# '\t' ? "\t" : a:delim)
|
|
endif
|
|
" try to guess the delimiter from the specified region, therefore, we need
|
|
" to initialize the plugin to inspect only those lines
|
|
let [ b:csv_start, b:csv_end ] = [ line1, line2 ]
|
|
" Reset b:did_ftplugin just to be sure
|
|
unlet! b:did_ftplugin
|
|
setl noml ft=csv lz ma
|
|
" get indent
|
|
let indent = matchstr(getline(a:line1), '^\s\+')
|
|
exe printf(':sil %d,%ds/^\s\+//e', line1, line2)
|
|
let last = line('$')
|
|
try
|
|
let b:csv_list=getline(line1, line2)
|
|
call filter(b:csv_list, '!empty(v:val)')
|
|
call map(b:csv_list, 'split(v:val, b:col.''\zs'')')
|
|
if exists(":CSVTabularize")
|
|
exe printf("%d,%dCSVTabularize%s", line1, line2, empty(a:bang) ? '' : '!')
|
|
else
|
|
echoerr "Not possible to call :CSVTabularize"
|
|
endif
|
|
unlet! b:col_width b:csv_list
|
|
catch
|
|
finally
|
|
if !empty(indent)
|
|
" Added one line above a:line1 and several lines below, so need to
|
|
" correct the range
|
|
exe printf(':sil %d,%ds/^/%s/e', (line1 - 1), (line2 + line('$') - last), indent)
|
|
endif
|
|
if has("conceal")
|
|
let [ &l:lz, &l:syntax, &l:ft, &l:sol, &l:tw, &l:wrap, &l:cole, &l:cocu, &l:fen, &l:fdm, &l:fdl, &l:fdc, &l:fml, &l:fdt, &l:ma, &l:ml] = _a
|
|
else
|
|
let [ &l:lz, &l:syntax, &l:ft, &l:sol, &l:tw, &l:wrap, &l:fen, &l:fdm, &l:fdl, &l:fdc, &l:fml, &l:fdt, &l:ma, &l:ml] = _a
|
|
endif
|
|
unlet! g:csv_delim
|
|
call winrestview(_b)
|
|
endtry
|
|
endfu
|
|
|
|
|
|
let &cpo = s:cpo_save
|
|
unlet s:cpo_save
|