diff options
author | Florian Pritz <bluewind@xssn.at> | 2011-01-17 21:17:22 +0100 |
---|---|---|
committer | Florian Pritz <bluewind@xssn.at> | 2011-01-17 21:17:22 +0100 |
commit | d16669342859464f34d5d42a9cacc846d1439cc8 (patch) | |
tree | b62ca624a4268f687d1cf76a673c22a3cf588a1c /.vim/plugin | |
parent | 70f0ef31d89e361cb7c37de9b1b73a829c41c9a4 (diff) | |
download | dotfiles-d16669342859464f34d5d42a9cacc846d1439cc8.tar.gz dotfiles-d16669342859464f34d5d42a9cacc846d1439cc8.tar.xz |
add vim tabular plugin
Signed-off-by: Florian Pritz <bluewind@xssn.at>
Diffstat (limited to '.vim/plugin')
-rw-r--r-- | .vim/plugin/Tabular.vim | 280 |
1 files changed, 280 insertions, 0 deletions
diff --git a/.vim/plugin/Tabular.vim b/.vim/plugin/Tabular.vim new file mode 100644 index 0000000..84e08a7 --- /dev/null +++ b/.vim/plugin/Tabular.vim @@ -0,0 +1,280 @@ +" Tabular: Align columnar data using regex-designated column boundaries +" Maintainer: Matthew Wozniski (mjw@drexel.edu) +" Date: Thu, 11 Oct 2007 00:35:34 -0400 +" Version: 0.1 + +" Abort if running in vi-compatible mode or the user doesn't want us. +if &cp || exists('g:tabular_loaded') + if &cp && &verbose + echo "Not loading Tabular in compatible mode." + endif + finish +endif + +let g:tabular_loaded = 1 + +" Stupid vimscript crap {{{1 +let s:savecpo = &cpo +set cpo&vim + +" Private Things {{{1 + +" Dictionary of command name to command +let s:TabularCommands = {} + +" Generate tab completion list for :Tabularize {{{2 +" Return a list of commands that match the command line typed so far. +" NOTE: Tries to handle commands with spaces in the name, but Vim doesn't seem +" to handle that terribly well... maybe I should give up on that. +function! s:CompleteTabularizeCommand(argstart, cmdline, cursorpos) + let names = keys(s:TabularCommands) + if exists("b:TabularCommands") + let names += keys(b:TabularCommands) + endif + + let cmdstart = substitute(a:cmdline, '^\s*\S\+\s*', '', '') + + return filter(names, 'v:val =~# ''^\V'' . escape(cmdstart, ''\'')') +endfunction + +" Choose the proper command map from the given command line {{{2 +" Returns [ command map, command line with leading <buffer> removed ] +function! s:ChooseCommandMap(commandline) + let map = s:TabularCommands + let cmd = a:commandline + + if cmd =~# '^<buffer>\s\+' + if !exists('b:TabularCommands') + let b:TabularCommands = {} + endif + let map = b:TabularCommands + let cmd = substitute(cmd, '^<buffer>\s\+', '', '') + endif + + return [ map, cmd ] +endfunction + +" Parse '/pattern/format' into separate pattern and format parts. {{{2 +" If parsing fails, return [ '', '' ] +function! s:ParsePattern(string) + if a:string[0] != '/' + return ['',''] + endif + + let pat = '\\\@<!\%(\\\\\)\{-}\zs/' . tabular#ElementFormatPattern() . '*$' + let format = matchstr(a:string[1:-1], pat) + if !empty(format) + let format = format[1 : -1] + let pattern = a:string[1 : -len(format) - 2] + else + let pattern = a:string[1 : -1] + endif + + return [pattern, format] +endfunction + +" Split apart a list of | separated expressions. {{{2 +function! s:SplitCommands(string) + if a:string =~ '^\s*$' + return [] + endif + + let end = match(a:string, "[\"'|]") + + " Loop until we find a delimiting | or end-of-string + while end != -1 && (a:string[end] != '|' || a:string[end+1] == '|') + if a:string[end] == "'" + let end = match(a:string, "'", end+1) + 1 + if end == 0 + throw "No matching end single quote" + endif + elseif a:string[end] == '"' + " Find a " preceded by an even number of \ (or 0) + let pattern = '\%(\\\@<!\%(\\\\\)*\)\@<="' + let end = matchend(a:string, pattern, end+1) + 1 + if end == 0 + throw "No matching end double quote" + endif + else " Found || + let end += 2 + endif + + let end = match(a:string, "[\"'|]", end) + endwhile + + if end == 0 || a:string[0 : end - (end > 0)] =~ '^\s*$' + throw "Empty element" + endif + + if end == -1 + let rv = [ a:string ] + else + let rv = [ a:string[0 : end-1] ] + s:SplitCommands(a:string[end+1 : -1]) + endif + + return rv +endfunction + +" Public Things {{{1 + +" Command associating a command name with a simple pattern command {{{2 +" AddTabularPattern[!] [<buffer>] name /pattern[/format] +" +" If <buffer> is provided, the command will only be available in the current +" buffer, and will be used instead of any global command with the same name. +" +" If a command with the same name and scope already exists, it is an error, +" unless the ! is provided, in which case the existing command will be +" replaced. +" +" pattern is a regex describing the delimiter to be used. +" +" format describes the format pattern to be used. The default will be used if +" none is provided. +com! -nargs=+ -bang AddTabularPattern + \ call AddTabularPattern(<q-args>, <bang>0) + +function! AddTabularPattern(command, force) + try + let [ commandmap, rest ] = s:ChooseCommandMap(a:command) + + let name = matchstr(rest, '.\{-}\ze\s*/') + let pattern = substitute(rest, '.\{-}\s*\ze/', '', '') + + let [ pattern, format ] = s:ParsePattern(pattern) + + if empty(name) || empty(pattern) + throw "Invalid arguments!" + endif + + if !a:force && has_key(commandmap, name) + throw string(name) . " is already defined, use ! to overwrite." + endif + + let command = "tabular#TabularizeStrings(a:lines, " . string(pattern) + + if !empty(format) + let command .= ", " . string(format) + endif + + let command .= ")" + + let commandmap[name] = ":call tabular#PipeRange(" + \ . string(pattern) . "," + \ . string(command) . ")" + catch + echohl ErrorMsg + echomsg "AddTabularPattern: " . v:exception + echohl None + endtry +endfunction + +" Command associating a command name with a pipeline of functions {{{2 +" AddTabularPipeline[!] [<buffer>] name /pattern/ func [ | func2 [ | func3 ] ] +" +" If <buffer> is provided, the command will only be available in the current +" buffer, and will be used instead of any global command with the same name. +" +" If a command with the same name and scope already exists, it is an error, +" unless the ! is provided, in which case the existing command will be +" replaced. +" +" pattern is a regex that will be used to determine which lines will be +" filtered. If the cursor line doesn't match the pattern, using the command +" will be a no-op, otherwise the cursor and all contiguous lines matching the +" pattern will be filtered. +" +" Each 'func' argument represents a function to be called. This function +" will have access to a:lines, a List containing one String per line being +" filtered. +com! -nargs=+ -bang AddTabularPipeline + \ call AddTabularPipeline(<q-args>, <bang>0) + +function! AddTabularPipeline(command, force) + try + let [ commandmap, rest ] = s:ChooseCommandMap(a:command) + + let name = matchstr(rest, '.\{-}\ze\s*/') + let pattern = substitute(rest, '.\{-}\s*\ze/', '', '') + + let commands = matchstr(pattern, '^/.\{-}\\\@<!\%(\\\\\)\{-}/\zs.*') + let pattern = matchstr(pattern, '/\zs.\{-}\\\@<!\%(\\\\\)\{-}\ze/') + + if empty(name) || empty(pattern) + throw "Invalid arguments!" + endif + + if !a:force && has_key(commandmap, name) + throw string(name) . " is already defined, use ! to overwrite." + endif + + let commandlist = s:SplitCommands(commands) + + if empty(commandlist) + throw "Must provide a list of functions!" + endif + + let cmd = ":call tabular#PipeRange(" . string(pattern) + + for command in commandlist + let cmd .= "," . string(command) + endfor + + let cmd .= ")" + + let commandmap[name] = cmd + catch + echohl ErrorMsg + echomsg "AddTabularPipeline: " . v:exception + echohl None + endtry +endfunction + +" Tabularize /pattern[/format] {{{2 +" Tabularize name +" +" Align text, either using the given pattern, or the command associated with +" the given name. +com! -nargs=+ -range -complete=customlist,<SID>CompleteTabularizeCommand + \ Tabularize <line1>,<line2>call Tabularize(<q-args>) + +function! Tabularize(command) range + let range = a:firstline . ',' . a:lastline + + try + let [ pattern, format ] = s:ParsePattern(a:command) + + if !empty(pattern) + let cmd = "tabular#TabularizeStrings(a:lines, " . string(pattern) + + if !empty(format) + let cmd .= "," . string(format) + endif + + let cmd .= ")" + + exe range . 'call tabular#PipeRange(pattern, cmd)' + else + if exists('b:TabularCommands') && has_key(b:TabularCommands, a:command) + let command = b:TabularCommands[a:command] + elseif has_key(s:TabularCommands, a:command) + let command = s:TabularCommands[a:command] + else + throw "Unrecognized command " . string(a:command) + endif + + exe range . command + endif + catch + echohl ErrorMsg + echomsg "Tabularize: " . v:exception + echohl None + return + endtry +endfunction + +" Stupid vimscript crap, part 2 {{{1 +let &cpo = s:savecpo +unlet s:savecpo + +" vim:set sw=2 sts=2 fdm=marker: |