vim-lawrencium: autoload/lawrencium/status.vim annotate

annotate autoload/lawrencium/status.vim @ 155:e52c62ac52fc default tip master

Fixed a couple issues with README

author	Zach Wilson <zakrywilson@gmail.com>
date	Wed, 19 Jan 2022 11:42:53 -0600
parents	78176bdfe0be
children

rev	line source
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2 function! lawrencium#status#init() abort
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	3 call lawrencium#add_command("Hgstatus :call lawrencium#status#HgStatus(0, '')")
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	4 call lawrencium#add_command("-nargs=1 Hgchangestatus :call lawrencium#status#HgStatus(1, <q-args>)")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	5
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	6 call lawrencium#add_reader('status', "lawrencium#status#read", 1)
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	7 call lawrencium#add_reader('changestatus', "lawrencium#status#read_change", 1)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	8 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	9
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	10 function! lawrencium#status#read(repo, path_parts, full_path) abort
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	11 call s:do_read_status(a:repo, a:path_parts, a:full_path, '', '')
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	12 endfunction
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	13
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	14 function! lawrencium#status#read_change(repo, path_parts, full_path) abort
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	15 call s:do_read_status(a:repo, a:path_parts, a:full_path, '--change', a:path_parts['value'])
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	16 endfunction
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	17
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	18 function! s:do_read_status(repo, path_parts, full_path, opt, opt_val) abort
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	19 if a:path_parts['path'] == ''
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	20 if a:opt == ''
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	21 call a:repo.ReadCommandOutput('status')
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	22 else
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	23 call a:repo.ReadCommandOutput('status', a:opt, a:opt_val)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	24 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	25 else
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	26 if a:opt == ''
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	27 call a:repo.ReadCommandOutput('status', a:full_path)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	28 else
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	29 call a:repo.ReadCommandOutput('status', a:opt, a:opt_val, a:full_path)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	30 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	31 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	32 setlocal nomodified
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	33 setlocal filetype=hgstatus
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	34 setlocal bufhidden=delete
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	35 setlocal buftype=nofile
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	36 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	37
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	38 function! lawrencium#status#HgStatus(status_type, status_param) abort
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	39 " Get the repo and the Lawrencium path for `hg status`.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	40 let l:repo = lawrencium#hg_repo()
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	41 if a:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	42 let l:status_path = l:repo.GetLawrenciumPath('', 'status', '')
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	43 elseif a:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	44 let l:status_path = l:repo.GetLawrenciumPath('', 'changestatus', a:status_param)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	45 else
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	46 call lawrencium#throwerr("Invalid status type: " . string(a:status_type))
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	47 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	48
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	49 " Open the Lawrencium buffer in a new split window of the right size.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	50 if g:lawrencium_status_win_split_above
145 78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	51 execute "keepalt leftabove split " . fnameescape(l:status_path)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	52 else
145 78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	53 execute "keepalt rightbelow split " . fnameescape(l:status_path)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	54 endif
145 78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	55
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	56 if (line('$') == 1 && getline(1) == '')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	57 " Buffer is empty, which means there are not changes...
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	58 " Quit and display a message.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	59 " TODO: figure out why the first `echom` doesn't show when alone.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	60 bdelete
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	61 echom "Nothing was modified."
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	62 echom ""
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	63 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	64 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	65
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	66 execute "setlocal winfixheight"
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	67 if !g:lawrencium_status_win_split_even
145 78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	68 let l:status_win_height = (line('$') + 1)
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	69 if g:lawrencium_status_win_maxheight > 0
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	70 let l:status_win_height = min([
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	71 \l:status_win_height,
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	72 \&lines * g:lawrencium_status_win_maxheight / 100
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	73 \])
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	74 endif
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	75 execute "resize " . l:status_win_height
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	76 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	77
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	78 let b:lawrencium_status_type = a:status_type
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	79 let b:lawrencium_status_param = a:status_param
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	80
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	81 " Add some nice commands.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	82 command! -buffer Hgstatusdiff :call s:HgStatus_Diff(0)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	83 command! -buffer Hgstatusvdiff :call s:HgStatus_Diff(1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	84 command! -buffer Hgstatustabdiff :call s:HgStatus_Diff(2)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	85 command! -buffer Hgstatusdiffsum :call s:HgStatus_DiffSummary(1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	86 command! -buffer Hgstatusvdiffsum :call s:HgStatus_DiffSummary(2)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	87 command! -buffer Hgstatustabdiffsum :call s:HgStatus_DiffSummary(3)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	88 command! -buffer Hgstatusrefresh :call s:HgStatus_Refresh()
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	89 if a:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	90 command! -buffer Hgstatusedit :call s:HgStatus_FileEdit(0)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	91 command! -buffer -range -bang Hgstatusrevert :call s:HgStatus_Revert(<line1>, <line2>, <bang>0)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	92 command! -buffer -range Hgstatusaddremove :call s:HgStatus_AddRemove(<line1>, <line2>)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	93 command! -buffer -range=% -bang Hgstatuscommit :call s:HgStatus_Commit(<line1>, <line2>, <bang>0, 0)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	94 command! -buffer -range=% -bang Hgstatusvcommit :call s:HgStatus_Commit(<line1>, <line2>, <bang>0, 1)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	95 command! -buffer -range=% -nargs=+ Hgstatusqnew :call s:HgStatus_QNew(<line1>, <line2>, <f-args>)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	96 command! -buffer -range=% Hgstatusqrefresh :call s:HgStatus_QRefresh(<line1>, <line2>)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	97 elseif a:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	98 command! -buffer Hgstatusedit :call s:HgStatus_FileEdit(0)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	99 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	100
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	101 " Add some handy mappings.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	102 if g:lawrencium_define_mappings
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	103 nnoremap <buffer> <silent> <C-N> :call search('^[MARC\!\?I ]\s.', 'We')<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	104 nnoremap <buffer> <silent> <C-P> :call search('^[MARC\!\?I ]\s.', 'Wbe')<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	105 nnoremap <buffer> <silent> <C-D> :Hgstatustabdiff<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	106 nnoremap <buffer> <silent> <C-V> :Hgstatusvdiff<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	107 nnoremap <buffer> <silent> <C-U> :Hgstatusdiffsum<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	108 nnoremap <buffer> <silent> <C-H> :Hgstatusvdiffsum<cr>
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	109 nnoremap <buffer> <silent> q :bdelete!<cr>
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	110 if a:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	111 nnoremap <buffer> <silent> <cr> :Hgstatusedit<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	112 nnoremap <buffer> <silent> <C-A> :Hgstatusaddremove<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	113 nnoremap <buffer> <silent> <C-S> :Hgstatuscommit<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	114 nnoremap <buffer> <silent> <C-R> :Hgstatusrefresh<cr>
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	115
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	116 vnoremap <buffer> <silent> <C-A> :Hgstatusaddremove<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	117 vnoremap <buffer> <silent> <C-S> :Hgstatuscommit<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	118 elseif a:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	119 nnoremap <buffer> <silent> <cr> :Hgstatusedit<cr>
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	120 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	121 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	122 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	123
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	124 function! lawrencium#status#HgStatusRefresh(...) abort
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	125 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	126 let l:win_nr = bufwinnr(a:1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	127 call lawrencium#trace("Switching back to status window ".l:win_nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	128 if l:win_nr < 0
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 140 diff changeset	129 call lawrencium#throwerr("Can't find the status window anymore!")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	130 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	131 execute l:win_nr . 'wincmd w'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	132 " Delete everything in the buffer, and re-read the status into it.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	133 " TODO: In theory I would only have to do `edit` like below when we're
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	134 " already in the window, but for some reason Vim just goes bonkers and
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	135 " weird shit happens. I have no idea why, hence the work-around here
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	136 " to bypass the whole `BufReadCmd` auto-command altogether, and just
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	137 " edit the buffer in place.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	138 normal! ggVGd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	139 call lawrencium#read_lawrencium_file(b:lawrencium_path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	140 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	141 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	142
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	143 " Just re-edit the buffer, it will reload the contents by calling
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	144 " the matching Mercurial command.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	145 edit
145 78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	146
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	147 " The window might have been resize if something happened (like, say, we
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	148 " opened a commit message window, and closed it).
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	149 if g:lawrencium_status_win_split_even
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	150 execute "resize " . (&lines / 2)
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	151 else
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	152 let l:status_win_height = (line('$') + 1)
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	153 if g:lawrencium_status_win_maxheight > 0
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	154 let l:status_win_height = min([
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	155 \l:status_win_height,
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	156 \&lines * g:lawrencium_status_win_maxheight / 100
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	157 \])
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	158 endif
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	159 execute "resize " . l:status_win_height
78176bdfe0be Add `lawrencium_status_win_maxheight` setting. Ludovic Chabant <ludovic@chabant.com> parents: 142 diff changeset	160 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	161 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	162
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	163 function! s:HgStatus_Refresh() abort
652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	164 call lawrencium#status#HgStatusRefresh()
652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	165 endfunction
652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	166
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	167 function! s:HgStatus_FileEdit(newtab) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	168 " Get the path of the file the cursor is on.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	169 let l:filename = s:HgStatus_GetSelectedFile()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	170
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	171 " Remember what kind of revision we need to read.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	172 let l:status_type = b:lawrencium_status_type
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	173 let l:status_param = b:lawrencium_status_param
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	174
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	175 let l:cleanupbufnr = -1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	176 if a:newtab == 0
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	177 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	178 " If the file is already open in a window, jump to that window.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	179 for nr in range(1, winnr('$'))
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	180 let l:br = winbufnr(nr)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	181 let l:bpath = fnamemodify(bufname(l:br), ':p')
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	182 if l:bpath ==# l:filename
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	183 execute nr . 'wincmd w'
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	184 return
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	185 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	186 endfor
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	187 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	188 " Jump to the previous window and open the file there.
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	189 wincmd p
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	190 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	191 " Just open a new tab so we can edit the file there.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	192 " We don't use `tabedit` because it messes up the current window
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	193 " if it happens to be the same file.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	194 " We'll just have to clean up the default empty buffer created.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	195 tabnew
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	196 let l:cleanupbufnr = bufnr('%')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	197 endif
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	198
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	199 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	200 " Just normal status.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	201 execute 'edit ' . fnameescape(l:filename)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	202 elseif l:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	203 " Status for some given change. Show the file after the change.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	204 let l:repo = lawrencium#hg_repo()
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	205 let l:rev_path = l:repo.GetLawrenciumPath(l:filename, 'rev', l:status_param)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	206 execute 'edit ' . fnameescape(l:rev_path)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	207 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	208
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	209 if l:cleanupbufnr >= 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	210 execute 'bdelete ' . l:cleanupbufnr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	211 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	212 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	213
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	214 function! s:HgStatus_AddRemove(linestart, lineend) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	215 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	216 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['!', '?'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	217 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	218 call lawrencium#error("No files to add or remove in selection or current line.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	219 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	220 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	221
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	222 " Run `addremove` on those paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	223 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	224 call l:repo.RunCommand('addremove', l:filenames)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	225
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	226 " Refresh the status window.
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	227 call lawrencium#status#HgStatusRefresh()
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	228 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	229
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	230 function! s:HgStatus_Revert(linestart, lineend, bang) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	231 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	232 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	233 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	234 call lawrencium#error("No files to revert in selection or current line.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	235 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	236 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	237
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	238 " Run `revert` on those paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	239 " If the bang modifier is specified, revert with no backup.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	240 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	241 if a:bang
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	242 call insert(l:filenames, '-C', 0)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	243 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	244 call l:repo.RunCommand('revert', l:filenames)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	245
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	246 " Refresh the status window.
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	247 call lawrencium#status#HgStatusRefresh()
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	248 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	249
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	250 function! s:HgStatus_Commit(linestart, lineend, bang, vertical) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	251 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	252 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	253 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	254 call lawrencium#error("No files to commit in selection or file.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	255 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	256 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	257
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	258 " Run `Hgcommit` on those paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	259 let l:buf_nr = bufnr('%')
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	260 let l:callback = 'call lawrencium#status#HgStatusRefresh('.l:buf_nr.')'
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	261 call lawrencium#commit#HgCommit(a:bang, a:vertical, l:callback, l:filenames)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	262 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	263
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	264 function! s:HgStatus_Diff(split) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	265 " Open the file and run `Hgdiff` on it.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	266 " We also need to translate the split mode for it... if we already
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	267 " opened the file in a new tab, `HgDiff` only needs to do a vertical
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	268 " split (i.e. split=1).
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	269 let l:newtab = 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	270 let l:hgdiffsplit = a:split
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	271 if a:split == 2
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	272 let l:newtab = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	273 let l:hgdiffsplit = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	274 endif
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	275
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	276 " Remember what kind of revision we need to read.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	277 let l:status_type = b:lawrencium_status_type
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	278 let l:status_param = b:lawrencium_status_param
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	279
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	280 call s:HgStatus_FileEdit(l:newtab)
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	281 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	282 call lawrencium#diff#HgDiff('%:p', l:hgdiffsplit)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	283 elseif l:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	284 let l:rev1 = 'p1('.l:status_param.')'
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	285 let l:rev2 = l:status_param
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	286 call lawrencium#diff#HgDiff('%:p', l:hgdiffsplit, l:rev1, l:rev2)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	287 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	288 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	289
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	290 function! s:HgStatus_DiffSummary(split) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	291 " Get the path of the file the cursor is on.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	292 let l:path = s:HgStatus_GetSelectedFile()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	293 " Reuse the same diff summary window
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	294 let l:reuse_id = 'lawrencium_diffsum_for_' . bufnr('%')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	295 let l:split_prev_win = (a:split < 3)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	296 let l:args = {'reuse_id': l:reuse_id, 'use_prev_win': l:split_prev_win,
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	297 \'avoid_win': winnr(), 'split_mode': a:split}
142 c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	298 if b:lawrencium_status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	299 call lawrencium#diff#HgDiffSummary(l:path, l:args)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	300 elseif b:lawrencium_status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	301 let l:rev1 = 'p1('.b:lawrencium_status_param.')'
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	302 let l:rev2 = b:lawrencium_status_param
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	303 call lawrencium#diff#HgDiffSummary(l:path, l:args, l:rev1, l:rev2)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	304 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	305 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	306
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	307 function! s:HgStatus_QNew(linestart, lineend, patchname, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	308 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	309 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	310 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	311 call lawrencium#error("No files in selection or file to create patch.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	312 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	313 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	314
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	315 " Run `Hg qnew` on those paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	316 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	317 call insert(l:filenames, a:patchname, 0)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	318 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	319 call insert(l:filenames, '-m', 0)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	320 let l:message = '"' . join(a:000, ' ') . '"'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	321 call insert(l:filenames, l:message, 1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	322 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	323 call l:repo.RunCommand('qnew', l:filenames)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	324
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	325 " Refresh the status window.
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	326 call lawrencium#status#HgStatusRefresh()
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	327 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	328
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	329 function! s:HgStatus_QRefresh(linestart, lineend) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	330 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	331 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	332 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	333 call lawrencium#error("No files in selection or file to refresh the patch.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	334 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	335 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	336
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	337 " Run `Hg qrefresh` on those paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	338 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	339 call insert(l:filenames, '-s', 0)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	340 call l:repo.RunCommand('qrefresh', l:filenames)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	341
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	342 " Refresh the status window.
140 652a6f5df0f3 Fixed for broken things after the reorganization. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	343 call lawrencium#status#HgStatusRefresh()
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	344 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	345
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	346
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	347 function! s:HgStatus_GetSelectedFile() abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	348 let l:filenames = s:HgStatus_GetSelectedFiles()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	349 return l:filenames[0]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	350 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	351
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	352 function! s:HgStatus_GetSelectedFiles(...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	353 if a:0 >= 2
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	354 let l:lines = getline(a:1, a:2)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	355 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	356 let l:lines = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	357 call add(l:lines, getline('.'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	358 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	359 let l:filenames = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	360 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	361 for line in l:lines
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	362 if a:0 >= 3
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	363 let l:status = s:HgStatus_GetFileStatus(line)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	364 if index(a:3, l:status) < 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	365 continue
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	366 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	367 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	368 " Yay, awesome, Vim's regex syntax is fucked up like shit, especially for
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	369 " look-aheads and look-behinds. See for yourself:
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	370 let l:filename = matchstr(l:line, '\v(^[MARC\!\?I ]\s)@<=.*')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	371 let l:filename = l:repo.GetFullPath(l:filename)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	372 call add(l:filenames, l:filename)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	373 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	374 return l:filenames
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	375 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	376
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	377 function! s:HgStatus_GetFileStatus(...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	378 let l:line = a:0 ? a:1 : getline('.')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	379 return matchstr(l:line, '\v^[MARC\!\?I ]')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	380 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	381

Mercurial > vim-lawrencium

annotate autoload/lawrencium/status.vim @ 155:e52c62ac52fc default tip master