Add current configurations from old repository

1 files changed, 665 insertions, 0 deletions

diff --git a/vim/bundle/tlib_vim/autoload/tlib/agent.vim b/vim/bundle/tlib_vim/autoload/tlib/agent.vim
new file mode 100644
index 0000000..e61f24b
--- /dev/null
+++ b/vim/bundle/tlib_vim/autoload/tlib/agent.vim
@@ -0,0 +1,665 @@
+" @Author:      Tom Link (micathom AT gmail com?subject=[vim])
+" @Website:     http://www.vim.org/account/profile.php?user_id=4037
+" @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+" @Revision:    329
+
+
+" :filedoc:
+" Various agents for use as key handlers in tlib#input#List()
+
+" Number of items to move when pressing <c-up/down> in the input list window.
+TLet g:tlib_scroll_lines = 10
+
+
+" General {{{1
+
+function! tlib#agent#Exit(world, selected) "{{{3
+    if a:world.key_mode == 'default'
+        call a:world.CloseScratch()
+        let a:world.state = 'exit empty escape'
+        let a:world.list = []
+        " let a:world.base = []
+        call a:world.ResetSelected()
+    else
+        let a:world.key_mode = 'default'
+        let a:world.state = 'redisplay'
+    endif
+    return a:world
+endf
+
+
+function! tlib#agent#CopyItems(world, selected) "{{{3
+    let @* = join(a:selected, "\n")
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+
+" InputList related {{{1
+
+function! tlib#agent#PageUp(world, selected) "{{{3
+    let a:world.offset -= (winheight(0) / 2)
+    let a:world.state = 'scroll'
+    return a:world
+endf
+
+
+function! tlib#agent#PageDown(world, selected) "{{{3
+    let a:world.offset += (winheight(0) / 2)
+    let a:world.state = 'scroll'
+    return a:world
+endf
+
+
+function! tlib#agent#Home(world, selected) "{{{3
+    let a:world.prefidx = 1
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#End(world, selected) "{{{3
+    let a:world.prefidx = len(a:world.list)
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#Up(world, selected, ...) "{{{3
+    TVarArg ['lines', 1]
+    let a:world.idx = ''
+    if a:world.prefidx > lines
+        let a:world.prefidx -= lines
+    else
+        let a:world.prefidx = len(a:world.list)
+    endif
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#Down(world, selected, ...) "{{{3
+    TVarArg ['lines', 1]
+    let a:world.idx = ''
+    if a:world.prefidx <= (len(a:world.list) - lines)
+        let a:world.prefidx += lines
+    else
+        let a:world.prefidx = 1
+    endif
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#UpN(world, selected) "{{{3
+    return tlib#agent#Up(a:world, a:selected, g:tlib_scroll_lines)
+endf
+
+
+function! tlib#agent#DownN(world, selected) "{{{3
+    return tlib#agent#Down(a:world, a:selected, g:tlib_scroll_lines)
+endf
+
+
+function! tlib#agent#ShiftLeft(world, selected) "{{{3
+    let a:world.offset_horizontal -= (winwidth(0) / 2)
+    if a:world.offset_horizontal < 0
+        let a:world.offset_horizontal = 0
+    endif
+    let a:world.state = 'display shift'
+    return a:world
+endf
+
+
+function! tlib#agent#ShiftRight(world, selected) "{{{3
+    let a:world.offset_horizontal += (winwidth(0) / 2)
+    let a:world.state = 'display shift'
+    return a:world
+endf
+
+
+function! tlib#agent#Reset(world, selected) "{{{3
+    let a:world.state = 'reset'
+    return a:world
+endf
+
+
+function! tlib#agent#ToggleRestrictView(world, selected) "{{{3
+    if empty(a:world.filtered_items)
+        return tlib#agent#RestrictView(a:world, a:selected)
+    else
+        return tlib#agent#UnrestrictView(a:world, a:selected)
+    endif
+endf
+
+
+function! tlib#agent#RestrictView(world, selected) "{{{3
+    " TLogVAR a:selected
+    let filtered_items = map(copy(a:selected), 'index(a:world.base, v:val) + 1')
+    " TLogVAR 1, filtered_items
+    let filtered_items = filter(filtered_items, 'v:val > 0')
+    " TLogVAR 2, filtered_items
+    if !empty(filtered_items)
+        let a:world.filtered_items = filtered_items
+    endif
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#UnrestrictView(world, selected) "{{{3
+    let a:world.filtered_items = []
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#Input(world, selected) "{{{3
+    let flt0 = a:world.CleanFilter(a:world.filter[0][0])
+    let flt1 = input('Filter: ', flt0)
+    echo
+    if flt1 != flt0
+        if empty(flt1)
+            call getchar(0)
+        else
+            call a:world.SetFrontFilter(flt1)
+        endif
+    endif
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+" Suspend (see |tlib#agent#Suspend|) the input loop and jump back to the 
+" original position in the parent window.
+function! tlib#agent#SuspendToParentWindow(world, selected) "{{{3
+    let world = a:world
+    let winnr = world.win_wnr
+    " TLogVAR winnr
+    if winnr != -1
+        let world = tlib#agent#Suspend(world, a:selected)
+        if world.state =~ '\<suspend\>'
+            call world.SwitchWindow('win')
+            " let pos = world.cursor
+            " " TLogVAR pos
+            " if !empty(pos)
+            "     call setpos('.', pos)
+            " endif
+            return world
+        endif
+    endif
+    let world.state = 'redisplay'
+    return world
+endf
+
+
+" Suspend lets you temporarily leave the input loop of 
+" |tlib#input#List|. You can resume editing the list by pressing <c-z>, 
+" <m-z>. <space>, <c-LeftMouse> or <MiddleMouse> in the suspended window.
+" <cr> and <LeftMouse> will immediatly select the item under the cursor.
+" < will select the item but the window will remain opened.
+function! tlib#agent#Suspend(world, selected) "{{{3
+    if a:world.allow_suspend
+        " TAssert IsNotEmpty(a:world.scratch)
+        " TLogDBG bufnr('%')
+        let br = tlib#buffer#Set(a:world.scratch)
+        " TLogVAR br, a:world.bufnr, a:world.scratch
+        if bufnr('%') != a:world.scratch
+            echohl WarningMsg
+            echom "tlib#agent#Suspend: Internal error: Not a scratch buffer:" bufname('%')
+            echohl NONE
+        endif
+        " TLogVAR bufnr('%'), bufname('%'), a:world.scratch
+        call tlib#autocmdgroup#Init()
+        exec 'autocmd TLib BufEnter <buffer='. a:world.scratch .'> call tlib#input#Resume("world", 0, '. a:world.scratch .')'
+        let b:tlib_world = a:world
+        exec br
+        let a:world.state = 'exit suspend'
+    else
+        echom 'Suspend disabled'
+        let a:world.state = 'redisplay'
+    endif
+    return a:world
+endf
+
+
+function! tlib#agent#Help(world, selected) "{{{3
+    let a:world.state = 'help'
+    return a:world
+endf
+
+
+function! tlib#agent#OR(world, selected) "{{{3
+    if !empty(a:world.filter[0])
+        call insert(a:world.filter[0], '')
+    endif
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#AND(world, selected) "{{{3
+    if !empty(a:world.filter[0])
+        call insert(a:world.filter, [''])
+    endif
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#ReduceFilter(world, selected) "{{{3
+    call a:world.ReduceFilter()
+    let a:world.offset = 1
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#PopFilter(world, selected) "{{{3
+    call a:world.PopFilter()
+    let a:world.offset = 1
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#Debug(world, selected) "{{{3
+    " echo string(world.state)
+    echo string(a:world.filter)
+    echo string(a:world.idx)
+    echo string(a:world.prefidx)
+    echo string(a:world.sel_idx)
+    call getchar()
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+function! tlib#agent#Select(world, selected) "{{{3
+    call a:world.SelectItem('toggle', a:world.prefidx)
+    " let a:world.state = 'display keepcursor'
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#SelectUp(world, selected) "{{{3
+    call a:world.SelectItem('toggle', a:world.prefidx)
+    if a:world.prefidx > 1
+        let a:world.prefidx -= 1
+    endif
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#SelectDown(world, selected) "{{{3
+    call a:world.SelectItem('toggle', a:world.prefidx)
+    if a:world.prefidx < len(a:world.list)
+        let a:world.prefidx += 1
+    endif
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#SelectAll(world, selected) "{{{3
+    let listrange = range(1, len(a:world.list))
+    let mode = empty(filter(copy(listrange), 'index(a:world.sel_idx, a:world.GetBaseIdx(v:val)) == -1'))
+                \ ? 'toggle' : 'set'
+    for i in listrange
+        call a:world.SelectItem(mode, i)
+    endfor
+    let a:world.state = 'display keepcursor'
+    return a:world
+endf
+
+
+function! tlib#agent#ToggleStickyList(world, selected) "{{{3
+    let a:world.sticky = !a:world.sticky
+    let a:world.state = 'display keepcursor'
+    return a:world
+endf
+
+
+
+" EditList related {{{1
+
+function! tlib#agent#EditItem(world, selected) "{{{3
+    let lidx = a:world.prefidx
+    " TLogVAR lidx
+    " TLogVAR a:world.table
+    let bidx = a:world.GetBaseIdx(lidx)
+    " TLogVAR bidx
+    let item = a:world.GetBaseItem(bidx)
+    let item = input(lidx .'@'. bidx .': ', item)
+    if item != ''
+        call a:world.SetBaseItem(bidx, item)
+    endif
+    let a:world.state = 'display'
+    return a:world
+endf
+
+
+" Insert a new item below the current one.
+function! tlib#agent#NewItem(world, selected) "{{{3
+    let basepi = a:world.GetBaseIdx(a:world.prefidx)
+    let item = input('New item: ')
+    call insert(a:world.base, item, basepi)
+    let a:world.state = 'reset'
+    return a:world
+endf
+
+
+function! tlib#agent#DeleteItems(world, selected) "{{{3
+    let remove = copy(a:world.sel_idx)
+    let basepi = a:world.GetBaseIdx(a:world.prefidx)
+    if index(remove, basepi) == -1
+        call add(remove, basepi)
+    endif
+    " call map(remove, 'a:world.GetBaseIdx(v:val)')
+    for idx in reverse(sort(remove))
+        call remove(a:world.base, idx - 1)
+    endfor
+    let a:world.state = 'display'
+    call a:world.ResetSelected()
+    " let a:world.state = 'reset'
+    return a:world
+endf
+
+
+function! tlib#agent#Cut(world, selected) "{{{3
+    let world = tlib#agent#Copy(a:world, a:selected)
+    return tlib#agent#DeleteItems(world, a:selected)
+endf
+
+
+function! tlib#agent#Copy(world, selected) "{{{3
+    let a:world.clipboard = []
+    let bidxs = copy(a:world.sel_idx)
+    call add(bidxs, a:world.GetBaseIdx(a:world.prefidx))
+    for bidx in sort(bidxs)
+        call add(a:world.clipboard, a:world.GetBaseItem(bidx))
+    endfor
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#Paste(world, selected) "{{{3
+    if has_key(a:world, 'clipboard')
+        for e in reverse(copy(a:world.clipboard))
+            call insert(a:world.base, e, a:world.prefidx)
+        endfor
+    endif
+    let a:world.state = 'display'
+    call a:world.ResetSelected()
+    return a:world
+endf
+
+
+function! tlib#agent#EditReturnValue(world, rv) "{{{3
+    return [a:world.state !~ '\<exit\>', a:world.base]
+endf
+
+
+
+" Files related {{{1
+
+function! tlib#agent#ViewFile(world, selected) "{{{3
+    if !empty(a:selected)
+        let back = a:world.SwitchWindow('win')
+        " TLogVAR back
+        for filename in a:selected
+            call tlib#file#Edit(filename)
+        endfor
+        " if !&hidden && &l:modified
+        "     let cmd0 = 'split'
+        "     let cmd1 = 'sbuffer'
+        " else
+        "     let cmd0 = 'edit'
+        "     let cmd1 = 'buffer'
+        " endif
+        " call tlib#file#With(cmd0, cmd1, a:selected, a:world)
+        " TLogVAR &filetype
+        exec back
+        let a:world.state = 'display'
+    endif
+    return a:world
+endf
+
+
+function! tlib#agent#EditFile(world, selected) "{{{3
+    return tlib#agent#Exit(tlib#agent#ViewFile(a:world, a:selected), a:selected)
+endf
+
+
+function! tlib#agent#EditFileInSplit(world, selected) "{{{3
+    call a:world.CloseScratch()
+    " call tlib#file#With('edit', 'buffer', a:selected[0:0], a:world)
+    " call tlib#file#With('split', 'sbuffer', a:selected[1:-1], a:world)
+    call tlib#file#With('split', 'sbuffer', a:selected, a:world)
+    return tlib#agent#Exit(a:world, a:selected)
+endf
+
+
+function! tlib#agent#EditFileInVSplit(world, selected) "{{{3
+    call a:world.CloseScratch()
+    " call tlib#file#With('edit', 'buffer', a:selected[0:0], a:world)
+    " call tlib#file#With('vertical split', 'vertical sbuffer', a:selected[1:-1], a:world)
+    let winpos = tlib#fixes#Winpos()
+    call tlib#file#With('vertical split', 'vertical sbuffer', a:selected, a:world)
+    if !empty(winpos)
+        exec winpos
+    endif
+    return tlib#agent#Exit(a:world, a:selected)
+endf
+
+
+function! tlib#agent#EditFileInTab(world, selected) "{{{3
+    " TLogVAR a:selected
+    call a:world.CloseScratch()
+    call tlib#file#With('tabedit', 'tab sbuffer', a:selected, a:world)
+    return tlib#agent#Exit(a:world, a:selected)
+endf
+
+
+function! tlib#agent#ToggleScrollbind(world, selected) "{{{3
+    let a:world.scrollbind = get(a:world, 'scrollbind') ? 0 : 1
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#ShowInfo(world, selected)
+    let lines = []
+    for f in a:selected
+        if filereadable(f)
+            let desc = [getfperm(f), strftime('%c', getftime(f)),  getfsize(f) .' bytes', getftype(f)]
+            call add(lines, fnamemodify(f, ':p'))
+            call add(lines, '  '. join(desc, '; '))
+        endif
+    endfor
+    let a:world.temp_lines = lines
+    let a:world.state = 'printlines'
+    return a:world
+endf
+
+
+
+" Buffer related {{{1
+
+function! tlib#agent#PreviewLine(world, selected) "{{{3
+    let l = a:selected[0]
+    let ww = winnr()
+    exec a:world.win_wnr .'wincmd w'
+    call tlib#buffer#ViewLine(l, 1)
+    exec ww .'wincmd w'
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+" If not called from the scratch, we assume/guess that we don't have to 
+" suspend the input-evaluation loop.
+function! tlib#agent#GotoLine(world, selected) "{{{3
+    if !empty(a:selected)
+
+        " let l = a:selected[0]
+        " " TLogVAR l
+        " let back = a:world.SwitchWindow('win')
+        " " TLogVAR back
+        " " if a:world.win_wnr != winnr()
+        " "     let world = tlib#agent#Suspend(a:world, a:selected)
+        " "     exec a:world.win_wnr .'wincmd w'
+        " " endif
+        " call tlib#buffer#ViewLine(l)
+        " exec back
+        " let a:world.state = 'display'
+
+        let l = a:selected[0]
+        if a:world.win_wnr != winnr()
+            let world = tlib#agent#Suspend(a:world, a:selected)
+            exec a:world.win_wnr .'wincmd w'
+        endif
+        call tlib#buffer#ViewLine(l, 1)
+        
+    endif
+    return a:world
+endf
+
+
+function! tlib#agent#DoAtLine(world, selected) "{{{3
+    if !empty(a:selected)
+        let cmd = input('Command: ', '', 'command')
+        if !empty(cmd)
+            call a:world.SwitchWindow('win')
+            " let pos = getpos('.')
+            let view = winsaveview()
+            for l in a:selected
+                call tlib#buffer#ViewLine(l, '')
+                exec cmd
+            endfor
+            " call setpos('.', pos)
+            call winrestview(view)
+        endif
+    endif
+    call a:world.ResetSelected()
+    let a:world.state = 'exit'
+    return a:world
+endf
+
+
+function! tlib#agent#Wildcard(world, selected) "{{{3
+    if !empty(a:world.filter[0])
+        let rx_type = a:world.matcher.FilterRxPrefix()
+        let flt0 = a:world.CleanFilter(a:world.filter[0][0])
+        if rx_type == '\V'
+            let flt0 .= '\.\{-}'
+        else
+            let flt0 .= '.\{-}'
+        endif
+        call a:world.SetFrontFilter(flt0)
+    endif
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#Null(world, selected) "{{{3
+    let a:world.state = 'redisplay'
+    return a:world
+endf
+
+
+function! tlib#agent#ExecAgentByName(world, selected) "{{{3
+    let s:agent_names_world = a:world
+    let agent_names = {'Help': 'tlib#agent#Help'}
+    for def in values(a:world.key_map[a:world.key_mode])
+        if has_key(def, 'help') && !empty(def.help) && has_key(def, 'agent') && !empty(def.agent)
+            let agent_names[def.help] = def.agent
+        endif
+    endfor
+    let s:agent_names = sort(keys(agent_names))
+    let command = input('Command: ', '', 'customlist,tlib#agent#CompleteAgentNames')
+    " TLogVAR command
+    if !has_key(agent_names, command)
+        " TLogVAR command
+        silent! let matches = filter(keys(agent_names), 'v:val =~ command')
+        " TLogVAR matches
+        if len(matches) == 1
+            let command = matches[0]
+        endif
+    endif
+    if has_key(agent_names, command)
+        let agent = agent_names[command]
+        return call(agent, [a:world, a:selected])
+    else
+        if !empty(command)
+            echohl WarningMsg
+            echom "Unknown command:" command
+            echohl NONE
+            sleep 1
+        endif
+        let a:world.state = 'display'
+        return a:world
+    endif
+endf
+
+
+function! tlib#agent#CompleteAgentNames(ArgLead, CmdLine, CursorPos)
+    let arglead = tolower(a:Arglead)
+    return filter(copy(s:agent_names), 'stridx(tolower(v:val), arglead) != -1')
+endf
+
+
+function! tlib#agent#Complete(world, selected) abort "{{{3
+    let rxprefix = a:world.matcher.FilterRxPrefix()
+    let flt = a:world.filter[0][0]
+    " TLogVAR flt
+    let fltrx = rxprefix . flt . '\m[^[:space:][:cntrl:][:punct:]<>*+?&~{}()\[\]\\/]\+'
+    let fltrx0 = '\m^' . fltrx
+    " TLogVAR fltrx, fltrx0
+    let words = {}
+    for item in a:world.list
+        let parts = split(item, '\ze'. fltrx)
+        " TLogVAR item, parts
+        for part in parts
+            let word = matchstr(part, fltrx0)
+            " TLogVAR part, word
+            if !empty(word)
+                let words[word] = 1
+            endif
+        endfor
+    endfor
+    " TLogVAR keys(words)
+    let completions = keys(words)
+    " let completions = filter(keys(words), 'matchstr(v:val, fltrx0)')
+    let completions = sort(completions, 's:SortCompletions')
+    let completions = tlib#list#Uniq(completions)
+    " TLogVAR 0, completions
+    while len(completions) > 1
+        let nchar = strwidth(completions[0]) - 1
+        let completions = map(completions, 'strpart(v:val, 0, nchar)')
+        " TLogVAR 'reduce', completions
+        let completions = tlib#list#Uniq(completions)
+        " TLogVAR 'unique', len(completions), completions
+    endwh
+    " TLogVAR 9, completions
+    if empty(completions)
+        let a:world.state = 'redisplay update'
+    else
+        let a:world.filter[0][0] = completions[0]
+        let a:world.state = 'display update'
+    endif
+    return a:world
+endf
+
+
+function! s:SortCompletions(a, b) abort "{{{3
+    let i1 = strwidth(a:a)
+    let i2 = strwidth(a:b)
+    return i2 - i1
+endf
+