ƒTƒCƒgXV’â‘Ø‚¿‚¤‚Á

ƒEƒBƒ“ƒhƒE‚𕪊„‚µ‚āA•Ð•û‚̃EƒBƒ“ƒhƒE‚ɉ½‚©‚̃ŠƒXƒg‚ð•\Ž¦A‘I‘ð‚³‚ê‚½‚牽‚©‚̏ˆ—‚ðs‚¤‚Ƃ��‚¤A
ƒtƒ@ƒCƒ‹ƒGƒNƒXƒvƒ[ƒ‰[‚Æ‚©‚Å‚æ‚­‚ ‚é‚t‚h‚ðAŠÈ’P‚ɍ\’z‚Å‚«‚Ä‚µ‚Ü‚¤vimƒXƒNƒŠƒvƒg tlib‚ÌŽg‚��•û‚ð“Ë‚«Ž~‚ß‚½B
ivimƒXƒNƒŠƒvƒg‘g‚ސlˆÈŠO‚ɂ́A–ð‚ɗ��‚½‚Ȃ��î•ñ‚Å‚·‚ªj

‚ŁA‰º‚ªÅï¿½ï¿½‚̃Tƒ“ƒvƒ‹B
:UndoBranchViewer‚Å‹N“®‚µ‚āA<C-p>‚Å‘I‘ð‚µ‚½s‚̃ƒbƒZ[ƒW‚ð•\Ž¦‚·‚éB
“®‚©‚·‚ɂ́A‚à‚¿‚ë‚ñAtlib‚ª•K—vB

tlib#input#List()‚É•\Ž¦‚·‚é•ï¿½ï¿½Žš—ñ‚̃ŠƒXƒg‚ƁA
‚ǂ̃L[‚ª‰Ÿ‚³‚ꂽ‚çA‚ǂ̃tƒ@ƒ“ƒNƒVƒ‡ƒ“‚ðŒÄ‚яo‚·‚©‚̃}ƒbƒsƒ“ƒO‚ð“n‚·B
key‚ªƒŠƒXƒg‚Ì‘I‘ð‚ÉŽg‚¤ƒL[‚ŁAagent‚ªƒtƒ@ƒ“ƒNƒVƒ‡ƒ“B

ƒXƒNƒŠƒvƒg‚Ì’†‚ÅŽg‚Á‚��‚é tlib#cmd#OutputAsList()‚́A
ƒRƒ}ƒ“ƒh‚ÌŒ‹‰Ê‚�Žš—ñ‚̃ŠƒXƒg‚ðì‚éƒRƒ}ƒ“ƒh‚Å‚·B

" ƒXƒNƒŠƒvƒg‚ª‰½“x‚à“Ç‚Ü‚ê‚é‚Ì‚ð–hŽ~‚·‚邽‚߂̂�N‚܂��‚Ȃ��
:if exists('loaded_undobranch_viewer')
    :finish
:endif
:let loaded_undobranch_viewer = 1

" ƒRƒ}ƒ“ƒh‚Ì’è‹`
" :UndoBranchViewer‚Á‚Ä‚·‚é‚ƁAs:UndoBranchViewer()‚ªŒÄ‚яo‚³‚ê‚éB
:command! -nargs=0 UndoBranchViewer :call s:UndoBranchViewer()

:function! s:UndoBranchViewer()
    :let g:undolistHandlers = [
        \ {'key': 16, 'agent': s:SNR().'AgentUndoPreview', 'key_name': '<c-p>', 'help': 'Undo preview'},
        \ {'key': 21, 'agent': s:SNR().'AgentUndoAndClose', 'key_name': '<c-u>', 'help': 'Undo and close'},
        \ {'pick_last_item': 0},
        \ ]
    :let s:undolists = tlib#cmd#OutputAsList('undolist')
    :call tlib#input#List('s', 'UndoBranch', s:undolists, g:undolistHandlers)
:endfunction

" ƒŠƒXƒg‚©‚ç<c-p>‚Å‘I‘ð‚³‚ê‚½‚Æ‚«‚ɌĂяo‚³‚ê‚éB
:function! s:AgentUndoPreview(world, selected)
    :let l:entry = a:selected[0]
    " ‘I‘ð‚³‚ê‚½•ï¿½ï¿½Žš‚ð•\Ž¦B
    :echo l:entry
    " •ï¿½ï¿½Žš‚ð•\Ž¦‚Å‚«‚é‚悤‚ɁA‚¿‚å‚Á‚Æ‘Ò‚Á‚Ä‚à‚炤B
    :5sleep
    :return a:world
:endfunction

" ƒŠƒXƒg‚©‚ç<c-u>‚Å‘I‘ð‚³‚ê‚½‚Æ‚«‚ɌĂяo‚³‚ê‚éB
" à–¾‚͏ȗª
:function! s:AgentUndoAndClose(world, selected)
    :return a:world
:endfunction

" tlib‚̃ŠƒXƒg‚łǂꂪ‘I‘ð‚³‚ê‚½‚©‚ð“Á’è‚·‚邽‚߂̕��Žš‚ð•Ô‚·
:function! s:SNR()
    :return matchstr(expand('<sfile>'), '<SNR>\d\+_\zeSNR$')
:endfunction