aboutsummaryrefslogtreecommitdiff
path: root/vim/bundle/vim-addon-mw-utils/autoload/tovl
diff options
context:
space:
mode:
Diffstat (limited to 'vim/bundle/vim-addon-mw-utils/autoload/tovl')
-rw-r--r--vim/bundle/vim-addon-mw-utils/autoload/tovl/scratch_buffer.vim103
-rw-r--r--vim/bundle/vim-addon-mw-utils/autoload/tovl/ui/filter_list.vim473
2 files changed, 576 insertions, 0 deletions
diff --git a/vim/bundle/vim-addon-mw-utils/autoload/tovl/scratch_buffer.vim b/vim/bundle/vim-addon-mw-utils/autoload/tovl/scratch_buffer.vim
new file mode 100644
index 0000000..217dca1
--- /dev/null
+++ b/vim/bundle/vim-addon-mw-utils/autoload/tovl/scratch_buffer.vim
@@ -0,0 +1,103 @@
+" old code
+
+augroup TOVLWrite
+augroup end
+
+" =========== scratch buffer =========================================
+" a scratch buffer is a temporary buffer where the user can enter some text
+" It can be used to get commit messages, edit configuration options and so on
+
+function! tovl#scratch_buffer#KeepIntactLineNr()
+ let i = 0
+ while getline(i)!= b:keepIntact && i < line('$')
+ let i = i+1
+ endwhile
+ if i > line('$')
+ return -1
+ else
+ return i
+ endif
+endfunction
+
+" opens a buffer and runs an action when the buffer is written
+" keys:
+" name : the name of the buffer
+" onWrite : will be called on write
+" onWrite is responsible for setlocal nomodified to indicate that
+" saving has been successful
+" help : callback returning additional information lines
+" getContent : callback returning lines
+" cmds : extra commands to be run (optional)
+" (maybe you prefer adding them the default way afer the
+" ScratchBuffer call. They'll be rerun on GetContents
+" sp_cmd : the command to use to create the new buffer. Defaults to :e
+" buftype : ...
+" modifiable : 1 / 0 defaults to 1
+function! tovl#scratch_buffer#ScratchBuffer(opts)
+ let a:opts['name'] = get(a:opts,'name', 'strach_buffer_without_name')
+ exec get(a:opts, 'sp_cmd', 'e').' '.escape(a:opts['name'],' ')
+ let b:settings = a:opts
+ let b:settings['modifiable'] = get(a:opts,'modifiable', 1)
+ setlocal buftype=acwrite
+ command! -buffer -nargs=0 Help call tovl#scratch_buffer#Help()
+
+ " setup write notification
+ au TOVLWrite BufWriteCmd <buffer> call tovl#scratch_buffer#Write()
+
+ if has_key(a:opts,'getContent')
+ command! -buffer -nargs=0 GetContents call tovl#scratch_buffer#GetContents()
+ GetContents
+ if !b:settings['modifiable']
+ setlocal nomodifiable
+ endif
+ endif
+ "let u=&undolevels
+ "setlocal undolevels=-1
+ "exec 'setlocal undolevels='.u
+
+ " mark buffer as not modified
+ setlocal nomodified
+
+ au BufReadCmd <buffer> GetContents
+
+ " run addittional commands
+ for cmd in get(a:opts,'cmds',[])
+ exec cmd
+ endfor
+ silent echo get(a:opts,'echo_help', "type :Help for help")
+endfunction
+
+" =========== utility functions ======================================
+
+function! tovl#scratch_buffer#Write()
+ if has_key(b:settings, 'onWrite')
+ call funcref#Call(b:settings['onWrite'])
+ else
+ echo "don't know how to write. Option hasn't been passed"
+ endif
+endfunction
+
+function! tovl#scratch_buffer#GetContents()
+ setlocal modifiable
+ " empty buffer
+ %g!//d
+ call append(0, funcref#Call(b:settings['getContent']))
+ if !b:settings['modifiable']
+ setlocal nomodifiable
+ endif
+ for cmd in get(b:settings,'cmds',[])
+ exec cmd
+ endfor
+endfunction
+
+function! tovl#scratch_buffer#Help()
+ let help = ["use :e! to reload contents, ZZ or :w(q) to write and quit"
+ \ ,""
+ \ ,"Help for this scratch buffer:"
+ \ ,"=======================================================","",""]
+ \ + funcref#Call(get(b:settings, 'help', []))
+ call tovl#scratch_buffer#ScratchBuffer({
+ \ 'name' : "return Help of ".b:settings['name'],
+ \ 'getContent' : help
+ \ })
+endfunction
diff --git a/vim/bundle/vim-addon-mw-utils/autoload/tovl/ui/filter_list.vim b/vim/bundle/vim-addon-mw-utils/autoload/tovl/ui/filter_list.vim
new file mode 100644
index 0000000..74b2ab4
--- /dev/null
+++ b/vim/bundle/vim-addon-mw-utils/autoload/tovl/ui/filter_list.vim
@@ -0,0 +1,473 @@
+" OLD CODE !
+" I should contribute the multiple filter feature to tlib
+
+" filter list displays a list of items
+" you can white / black filter them by regular expressions (similar to the
+" tlib TToC command
+" However you can edit the filters afterwards and select the cols which should
+" be shown
+
+fun! tovl#ui#filter_list#ListTest()
+ call tovl#ui#filter_list#ListView({
+ \ 'aligned' : 1,
+ \ 'Continuation' : funcref#Function('echo string(ARGS[0])'),
+ \ 'items' : [ {"aa" : "a\nAAAAAAAAAAA", 'bb' : "bbbbbbbbbbbbb\nB" },
+ \ {"aa" : "2a\n2AAAAAAAAAAAA", "bb" : "2 bbbbbbbbbbbbb\n2B"},
+ \ {"aa" : "XXX", "bb" : "YY"} ],
+ \ })
+
+endfun
+
+fun! s:Intersection(a, b)
+ return filter(copy(a:a), 'index(a:b, v:val) >= 0')
+endf
+
+fun! tovl#ui#filter_list#ListTestGotoLineCurrentBuf()
+ let nr=1
+ let lines = []
+ for l in getline(0,line('$'))
+ call add(lines, {'nr': nr, 'line' :l})
+ let nr = nr +1
+ endfor
+ call tovl#ui#filter_list#ListView({
+ \ 'aligned' : 0,
+ \ 'keys' : ['nr','line'],
+ \ 'number' : 1,
+ \ 'selectByIdOrFilter' : 1,
+ \ 'Continuation' : funcref#Function('exec ARGS[0]["nr"]'),
+ \ 'items' : lines,
+ \ })
+endfun
+
+" opens a new filtered list
+" keys of opts parameters:
+" Continuation: This function will be called with the selected items
+" items: { key : (string or dict) }
+" items willl be modified. use copy(youritems) as argument to prevent
+" this. An item is either a string or a dict
+" (eg {'file' : .., 'line': ... , 'msg' : .. )
+" keys: list of keys to be shown (optional)
+" filter: list of inital filters which must be applied
+" contains [ { filter: .. , keep : .. }, ] see FilterItems() below
+" aligned: default 0
+" sp_cmd: the command to be used to create the new buffer (default ':e')
+" init : 0 / 1 (default 1): wether to show the view right now
+" number: 0 /1 (default 1): number items ?
+" selectByIdOrFilter: 1: start in getchar() loop so that the user can select
+" the item even faster
+" auto: only do this if all items fit on screen
+" (recommend)
+" cmds: extra cmds to be run
+" cursorAt : at which item to put the cursor?
+"
+" If you don't like the default view you can override UpdateDisplay
+"
+" Usage examples of this list control:
+" - db results
+" - replacement of the quickfix window
+" - select a buffer etc
+fun! tovl#ui#filter_list#ListView(opts)
+ " ActivateAddons theonevimlib
+ let d = {}
+ let d.items = a:opts.items
+ let d.cursorAt = get(a:opts, 'cursorAt', 0)
+ let d.aligned = get(a:opts, 'aligned', 0)
+ let d.sep = ' '
+ let d.filter = get(a:opts, 'filter', [])
+ " using sp because of bd! (FIXME)
+ let d.sp_cmd = get(a:opts, 'sp_cmd', 'sp')
+ let d.allKeys = {}
+ let d.closeOnContinuation = get(a:opts,'closeOnContinuation',1)
+ " don't recommend OnSingleMatch, use OnSingleMatchCR instead
+ let d.continueOnSingleMatch = get(a:opts, 'continueOnSingleMatch',0)
+ let d.continueOnSingleMatchCR = get(a:opts, 'continueOnSingleMatchCR',1)
+ let d.selectByIdOrFilter = get(a:opts, 'selectByIdOrFilter', 0)
+ let d.linesToItems = {}
+ let d.number = get(a:opts, 'number', 1)
+ let d.cmds = get(a:opts, 'cmds', [])
+ let d.syn_cmds = get(a:opts, 'syn_cmds', [])
+
+ if has_key(a:opts,'keys') | let d.keys = a:opts.keys | endif
+ if has_key(a:opts,'Continuation') | let d.Continuation = a:opts.Continuation | endif
+
+ " cache already filtered items in case we want to view really long results
+ " contains [ { filter : { regex: .. , keep : .. } , items : .. , cursorAt :},
+ " { filter : { ... } , items: .. , cursorAt : }
+ let d.cached = []
+ " id of buffer
+ let d.buffer = -1
+ let d.modeText = ''
+
+ fun d.HelpText()
+ return [ "you've entered the the help of the powerful filtered view buffer",
+ \ "",
+ \ "type f to start filtering items by regex",
+ \ "type F to start dropping items by regex",
+ \ "k / K will ask you for the key to apply the filter to first",
+ \ "apply the filter by <cr> and press <cr> again to select item",
+ \ "",
+ \ "use :ShowAppliedFilters to list active filters",
+ \ "use :ToggleAlignment to toggle alignment",
+ \ "",
+ \ "TODO: Implement sorting, implement interface to change keys (displayed columns)"
+ \ ]
+ endfun
+
+ " create new scratch buffer
+ " preprocess items calculating line count and maxwidth for all items
+ fun d.NewBufferAndInit()
+ let self.bufferId = bufnr(bufname('%'))
+ for idx in range(0,len(self.items)-1)
+ if type(self.items[idx]) != 4
+ " no dict yet, make it one
+ let self.items[idx] = {'string_line' : self.items[idx]}
+ endif
+ let new = {}
+ for [k,v] in items(self.items[idx])
+ let lines = split(v,"\n")
+ let self.items[idx][k] = { 'text' : v, 'rows' : len(lines), 'cols' : max(map(copy(lines),'len(v:val)')), 'lines' : lines }
+ let self.allKeys[k] = 1
+ unlet k v
+ endfor
+ endfor
+ call tovl#scratch_buffer#ScratchBuffer({
+ \ 'help' : funcref#Function(self.HelpText,{ 'self' : self }),
+ \ 'sp_cmd' : self.sp_cmd,
+ \ 'cmds' : self.cmds
+ \ })
+ " I assume we have some kind of formatting anyway. Thus breaking lines is bad!
+ set nowrap
+ setlocal cursorline
+ let b:filtered_view = self
+ command! -buffer -nargs=0 ToggleAlignment call b:filtered_view.ToggleAlignment()
+ command! -buffer -nargs=0 ShowAppliedFilters call b:filtered_view.ShowAppliedFilters()
+ command! -buffer -nargs=0 RemoveFilters call b:filtered_view.RemoveFilters()
+ noremap <buffer> f :call b:filtered_view.FilterFromKeyboard(1,'')<cr>
+ " noremap <buffer> f :call b:filtered_view.FilterFromKeyboard(1)<cr>
+ noremap <buffer> F :call b:filtered_view.FilterFromKeyboard(0,'')<cr>
+ if has_key(self,'Continuation')
+ nnoremap <buffer> <cr> :call b:filtered_view.Continue()<cr>
+ endif
+ "noremap <buffer> k
+ "noremap <buffer> K
+
+ let [items, cursorAt] = self.FilteredItems()
+ " len(items) is an approximation because one item can have multiple
+ " lines.. However adding the lines first to check takes too much time
+ if self.selectByIdOrFilter == 1 || (self.selectByIdOrFilter == 'auto' && winheight('%') > len(items) )
+ call self.SelectByIdOrFilter()
+ else
+ " user should choose how to proceed
+ call self.UpdateDisplay()
+ endif
+ endfun
+
+ " user interface
+ fun d.ToggleAlignment()
+ let self.aligned = !self.aligned
+ call self.UpdateDisplay()
+ endfun
+ fun d.ShowAppliedFilters()
+ for i in self.filter | echo string(i) | endfor
+ endfun
+ fun d.RemoveFilters()
+ let self.filter = []
+ call self.UpdateDisplay()
+ endfun
+ fun d.Continue()
+ let item = self.CurrentItem()
+ call self.DoContinue(item)
+ endfun
+ fun d.DoContinue(v)
+ if self.closeOnContinuation | bw! | endif
+ call funcref#Call(self.Continuation,[a:v])
+ endfun
+
+ fun d.MapToOriginal(v)
+ if has_key(a:v, 'string_line')
+ return a:v.string_line.text
+ else
+ let d = {}
+ for [k,v] in items(a:v)
+ let d[k] = v.text
+ unlet k v
+ endfor
+ return d
+ endif
+ endfun
+
+ fun d.CurrentItem()
+ let idx=line('.')-len(self.headerLines)
+ while idx >= 0
+ if has_key(self.linesToItems, idx)
+ return self.MapToOriginal(self.FilteredItems()[0][self.linesToItems[idx]])
+ else
+ let idx = idx -1
+ endif
+ endwhile
+ throw "internal error, couldn't determine selected item!"
+ endfun
+
+ " updates the filter cache and returns the final filtered items
+ fun d.FilteredItems()
+ " update cache
+ let idx = 0
+ let [items, cursorAt] = [self.items, self.cursorAt]
+ for idx in range(0, len(self.filter)-1)
+ if idx +1 > len(self.cached) || self.cached[idx]['filter'] != self.filter[idx]
+ let self.cached = self.cached[:idx-1]
+ let [items, cursorAt] = self.FilterItem(copy(items), self.filter[idx], cursorAt)
+ call add(self.cached, { 'cursorAt' : cursorAt, 'items' : items, 'filter' : self.filter[idx]})
+ else
+ let ci = self.cached[idx]
+ let [items, cursorAt] = [ci['items'], ci['cursorAt']]
+ endif
+ endfor
+ return [items, cursorAt]
+ endfun
+
+ " calling this will return a set of lines which are expected to be the new
+ " buffer contents. The self.linesToItems dict is updated
+ fun d.UpdateDisplay()
+
+ if empty(self.filter)
+ let self.statusline= 'no filter applied, :Help for help'
+ else
+ let self.statusline = len(self.filter).' '.string(self.filter[-1])
+ endif
+
+ let self.linesToItems = {}
+ let [items, cursorAt] = self.FilteredItems()
+ "let num_width = printf('%.0f', trunc(log10(len(items))+1))
+ let num_width = 4
+ if self.aligned
+ " get column width.. (probably will not work with unicde characters.. I
+ " don't have a better solution)
+ let maxlens={}
+ for i in items
+ for [k,v] in items(i)
+ if get(maxlens,k,0) < v.cols
+ let maxlens[k] = v.cols
+ endif
+ endfor
+ endfor
+ endif
+
+ " format lines
+ let self.headerLines = [self.modeText]
+ let lines = copy(self.headerLines)
+ let lines_count = 0
+ if self.number
+ let fmt_startA = '%'.num_width.'s)'
+ let fmt_startB = '%'.num_width.'s'
+ else
+ let fmt_startA = '' | let fmt_startB = ''
+ endif
+ let cursorAtLine = 1 " sane default
+ for idx in range(0,len(items)-1)
+ let self.linesToItems[lines_count + 1] = idx
+ let i = items[idx]
+ let keys = has_key(self,'keys')
+ \ ? s:Intersection(self.keys, keys(i))
+ \ : keys(i)
+ let fmt = ''
+ let args = [i]
+ let cols = []
+ for k in keys
+ let fmt .= self.sep.'%-'.(self.aligned ? maxlens[k] : i[k]['cols']).'s'
+ call add(cols, i[k])
+ endfor
+ for row in range(0, max([1] + map(copy(cols),'v:val["rows"]'))-1)
+ let fmt_args = row == 0 ? [fmt_startA.fmt] : [fmt_startB.fmt]
+ if self.number
+ call add(fmt_args, row == 0 ? idx : '')
+ endif
+ for c in cols
+ call add(fmt_args, c.rows <= row ? '' : c.lines[row])
+ endfor
+ call add(lines, call('printf', fmt_args))
+ let lines_count += 1
+ endfor
+ if idx == cursorAt
+ let cursorAtLine = lines_count
+ endif
+ endfor
+ " update stauts line to show last applied filter
+ " disabled cause it causes trouble on :wincmd w
+ " setlocal statusline=%!b:filtered_view.statusline
+
+ " syntax
+ syn clear
+ for s in self.syn_cmds | exec s | endfor
+ let id = 0
+ " highlight filter regex in buffer as well
+ let syn_ids = [ 'Underlined', 'Todo', 'Error', 'Type', 'Statement' ]
+ for f in self.filter
+ if !f.keep || !has_key(f, 'regex') | continue | endif
+ if f.regex != ''
+ try
+ exec 'syn match '.syn_ids[id % len(syn_ids)].' '.string(f.regex)
+ catch /.*/
+ " ignore errors such as \ without following characters. Thus just
+ " ignore and wait for the next character
+ endtry
+ endif
+ let id = id +1
+ endfor
+ if len(lines) > winheight('%')
+ call extend(lines, self.headerLines)
+ endif
+ normal ggdG
+ call append(0, lines)
+ " place cursor
+ exec (cursorAtLine+1)
+ " move cursor into the middle of the window
+ normal zz
+ endf
+
+ " filter = keys :
+ " filter = string to be executed containing Val
+ " keep = 1 keep on match
+ " = 0 drop on match
+ " key (optional)
+ " cursorAt: at which item to put the cursor
+ " if that item is deleted it will be placed at the item above
+ " optional: key of dict if dict
+ fun d.FilterItem(items, filter, cursorAt)
+ let filter = 'Val =~ '.string(a:filter.regex)
+ let keep = a:filter.keep
+ let cursorAt = a:cursorAt
+
+ for idx in reverse(range(0, len(a:items)-1))
+ let i = a:items[idx]
+ if has_key(a:filter,'key')
+ let key = a:filter.key
+ if has_key(i, key)
+ " key given, only filter by this column
+ let Val = i[key]['text']
+ exec 'let any = '.filter
+ else
+ let any = 0
+ endif
+ else
+ let any = 0
+ " no key given, try all
+ for x in values(i)
+ let Val = x['text']
+ exec 'let any = '.filter
+ if any | break | endif
+ endfor
+ endif
+ if any != keep
+ call remove(a:items, idx)
+ if idx <= cursorAt
+ let cursorAt = cursorAt -1
+ endif
+ endif
+ endfor
+ return [a:items, cursorAt]
+ endfun
+
+ " if the user enters a number select by index else start filtering..
+ fun d.SelectByIdOrFilter()
+ let idx=''
+ let items = self.FilteredItems()[0]
+ try
+ let self.modeText = '[0-9]* : select by index| <esc>: escape getchar() loop, any char: start filtering'
+ call self.UpdateDisplay() | redraw
+ while 1
+ let c=getchar()
+ if index([13,10],c) >= 0
+ return self.DoContinue(self.MapToOriginal(items[idx]))
+ elseif index([27], c) >=0
+ " esc, abort
+ return
+ else
+ if type(c) == 0
+ let c = nr2char(c)
+ endif
+ if c == "\<bs>" || index(map(range(0,10),'v:val.""'),c) >= 0
+ if c == "\<bs>"
+ let idx = idx[:-2]
+ else
+ let idx .= c
+ endif
+ if idx < len(items) && idx.'0' > len(items) || idx == 0 && len(items) < 10
+ " only match
+ return self.DoContinue(self.MapToOriginal(items[idx]))
+ endif
+ else
+ return self.FilterFromKeyboard(1,c)
+ endif
+ endif
+ endwhile
+ finally
+ let self.modeText = ''
+ endtry
+ endfun
+
+ " gets a regular expresion filter by keybaord and updates the display while
+ " you're typing. The regex ist shown in the statusline
+ fun d.FilterFromKeyboard(keep, start, ...)
+ let self.modeText = 'press ESC to exit getchar() loop'
+ call self.UpdateDisplay() | redraw
+
+ try
+ let key_text = a:0 > 0 ? 'key : '.a:1 : ''
+ let filter_bak = self.filter
+ let filter = copy(self.filter)
+ let start = a:start
+ let filter_new = ''
+ while 1
+ if start != ''
+ " use c= last char to force updating display etc
+ let filter_new = start[:-2]
+ let c = start[-1:]
+ let start = ''
+ else
+ let c=getchar()
+ endif
+ if index([13,10],c) >= 0
+ " c-j or return, accept new filter
+ let items = self.FilteredItems()
+ if len(items) == 1 && has_key(self, 'Continuation') && self.continueOnSingleMatchCR
+ call self.DoContinue(self.MapToOriginal(items[0]))
+ endif
+ return
+ elseif index([27], c) >=0
+ " esc, abort
+ let self.filter = filter_bak
+ call self.UpdateDisplay()
+ return
+ else
+ if type(c) == 0
+ let c = nr2char(c)
+ endif
+ if c == "\<bs>"
+ let filter_new = filter_new[:-2]
+ else
+ let filter_new .= c
+ endif
+ let d = {'keep' : a:keep, 'regex' : filter_new }
+ if a:0 > 0
+ let d['key'] = a:1
+ endif
+ let self.filter = copy(filter_bak)
+ call add(self.filter, d)
+ let items = self.FilteredItems()
+ if len(items) == 1 && has_key(self, 'Continuation') && self.continueOnSingleMatch
+ call self.DoContinue(self.MapToOriginal(items[0]))
+ return
+ endif
+ call self.UpdateDisplay() | redraw
+ endif
+ endwhile
+ finally
+ let self.modeText = ''
+ endtry
+ endfun
+
+ if get(a:opts,'init',1)
+ call d.NewBufferAndInit()
+ endif
+endfun