Mercurial > vim-lawrencium

annotate autoload/lawrencium/status.vim @ 142:c9169233d45a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add `:Hgchangestatus` to show the status of any changeset.
author Ludovic Chabant <ludovic@chabant.com>
date Tue, 10 Jan 2017 23:52:34 -0800
parents 4d5f4233b04e
children 78176bdfe0be
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
51 execute "keepalt leftabove split " . fnameescape(l:status_path)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
52 else
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
53 execute "keepalt rightbelow split " . fnameescape(l:status_path)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
54 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
55
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
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
68 execute "setlocal winheight=" . (line('$') + 1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
69 execute "resize " . (line('$') + 1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
70 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
71
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
72 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
73 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
74
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
75 " Add some nice commands.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
76 command! -buffer Hgstatusdiff :call s:HgStatus_Diff(0)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
77 command! -buffer Hgstatusvdiff :call s:HgStatus_Diff(1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
78 command! -buffer Hgstatustabdiff :call s:HgStatus_Diff(2)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
79 command! -buffer Hgstatusdiffsum :call s:HgStatus_DiffSummary(1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
80 command! -buffer Hgstatusvdiffsum :call s:HgStatus_DiffSummary(2)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
81 command! -buffer Hgstatustabdiffsum :call s:HgStatus_DiffSummary(3)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
82 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
83 if a:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
84 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
85 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
86 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
87 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
88 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
89 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
90 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
91 elseif a:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
92 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
93 endif
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
94
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
95 " Add some handy mappings.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
96 if g:lawrencium_define_mappings
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
97 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
98 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
99 nnoremap <buffer> <silent> <C-D> :Hgstatustabdiff<cr>
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
100 nnoremap <buffer> <silent> <C-V> :Hgstatusvdiff<cr>
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
101 nnoremap <buffer> <silent> <C-U> :Hgstatusdiffsum<cr>
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
102 nnoremap <buffer> <silent> <C-H> :Hgstatusvdiffsum<cr>
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
103 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
104 if a:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
105 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
106 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
107 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
108 nnoremap <buffer> <silent> <C-R> :Hgstatusrefresh<cr>
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
109
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
110 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
111 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
112 elseif a:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
113 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
114 endif
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
115 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
116 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
117
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
118 function! lawrencium#status#HgStatusRefresh(...) abort
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
119 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
120 let l:win_nr = bufwinnr(a:1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
121 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
122 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
123 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
124 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
125 execute l:win_nr . 'wincmd w'
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
126 " 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
127 " 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
128 " 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
129 " 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
130 " 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
131 " edit the buffer in place.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
132 normal! ggVGd
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
133 call lawrencium#read_lawrencium_file(b:lawrencium_path)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
134 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
135 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
136
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
137 " 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
138 " the matching Mercurial command.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
139 edit
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
140 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
141
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
142 function! s:HgStatus_Refresh() abort
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
143 call lawrencium#status#HgStatusRefresh()
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
144 endfunction
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
145
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
146 function! s:HgStatus_FileEdit(newtab) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
147 " 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
148 let l:filename = s:HgStatus_GetSelectedFile()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
149
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
150 " 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
151 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
152 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
153
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
154 let l:cleanupbufnr = -1
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
155 if a:newtab == 0
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
156 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
157 " 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
158 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
159 let l:br = winbufnr(nr)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
160 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
161 if l:bpath ==# l:filename
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
162 execute nr . 'wincmd w'
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
163 return
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
164 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
165 endfor
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
166 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
167 " 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
168 wincmd p
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
169 else
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
170 " 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
171 " 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
172 " if it happens to be the same file.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
173 " 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
174 tabnew
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
175 let l:cleanupbufnr = bufnr('%')
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
176 endif
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
177
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
178 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
179 " Just normal status.
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
180 execute 'edit ' . fnameescape(l:filename)
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
181 elseif l:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
182 " 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
183 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
184 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
185 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
186 endif
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
187
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
188 if l:cleanupbufnr >= 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
189 execute 'bdelete ' . l:cleanupbufnr
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
190 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
191 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
192
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
193 function! s:HgStatus_AddRemove(linestart, lineend) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
194 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
195 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
196 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
197 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
198 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
199 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
200
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
201 " Run `addremove` on those paths.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
202 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
203 call l:repo.RunCommand('addremove', l:filenames)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
204
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
205 " Refresh the status window.
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
206 call lawrencium#status#HgStatusRefresh()
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
207 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
208
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
209 function! s:HgStatus_Revert(linestart, lineend, bang) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
210 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
211 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
212 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
213 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
214 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
215 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
216
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
217 " Run `revert` on those paths.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
218 " 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
219 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
220 if a:bang
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
221 call insert(l:filenames, '-C', 0)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
222 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
223 call l:repo.RunCommand('revert', l:filenames)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
224
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
225 " Refresh the status window.
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
226 call lawrencium#status#HgStatusRefresh()
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
227 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
228
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
229 function! s:HgStatus_Commit(linestart, lineend, bang, vertical) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
230 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
231 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
232 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
233 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
234 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
235 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
236
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
237 " Run `Hgcommit` on those paths.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
238 let l:buf_nr = bufnr('%')
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
239 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
240 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
241 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
242
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
243 function! s:HgStatus_Diff(split) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
244 " Open the file and run `Hgdiff` on it.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
245 " 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
246 " 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
247 " split (i.e. split=1).
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
248 let l:newtab = 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
249 let l:hgdiffsplit = a:split
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
250 if a:split == 2
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
251 let l:newtab = 1
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
252 let l:hgdiffsplit = 1
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
253 endif
142
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
254
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
255 " 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
256 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
257 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
258
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
259 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
260 if l:status_type == 0
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
261 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
262 elseif l:status_type == 1
c9169233d45a Add `:Hgchangestatus` to show the status of any changeset.
Ludovic Chabant <ludovic@chabant.com>
parents: 141
diff changeset
263 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
264 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
265 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
266 endif
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
267 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
268
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
269 function! s:HgStatus_DiffSummary(split) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
270 " 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
271 let l:path = s:HgStatus_GetSelectedFile()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
272 " Reuse the same diff summary window
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
273 let l:reuse_id = 'lawrencium_diffsum_for_' . bufnr('%')
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
274 let l:split_prev_win = (a:split < 3)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
275 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
276 \'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
277 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
278 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
279 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
280 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
281 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
282 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
283 endif
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
284 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
285
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
286 function! s:HgStatus_QNew(linestart, lineend, patchname, ...) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
287 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
288 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
289 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
290 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
291 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
292 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
293
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
294 " Run `Hg qnew` on those paths.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
295 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
296 call insert(l:filenames, a:patchname, 0)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
297 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
298 call insert(l:filenames, '-m', 0)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
299 let l:message = '"' . join(a:000, ' ') . '"'
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
300 call insert(l:filenames, l:message, 1)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
301 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
302 call l:repo.RunCommand('qnew', l:filenames)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
303
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
304 " Refresh the status window.
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
305 call lawrencium#status#HgStatusRefresh()
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
306 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
307
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
308 function! s:HgStatus_QRefresh(linestart, lineend) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
309 " Get the selected filenames.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
310 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
311 if len(l:filenames) == 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
312 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
313 return
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
314 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
315
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
316 " Run `Hg qrefresh` on those paths.
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
317 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
318 call insert(l:filenames, '-s', 0)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
319 call l:repo.RunCommand('qrefresh', l:filenames)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
320
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
321 " Refresh the status window.
140
652a6f5df0f3 Fixed for broken things after the reorganization.
Ludovic Chabant <ludovic@chabant.com>
parents: 139
diff changeset
322 call lawrencium#status#HgStatusRefresh()
139
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
323 endfunction
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
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
326 function! s:HgStatus_GetSelectedFile() abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
327 let l:filenames = s:HgStatus_GetSelectedFiles()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
328 return l:filenames[0]
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
329 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
330
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
331 function! s:HgStatus_GetSelectedFiles(...) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
332 if a:0 >= 2
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
333 let l:lines = getline(a:1, a:2)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
334 else
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
335 let l:lines = []
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
336 call add(l:lines, getline('.'))
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
337 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
338 let l:filenames = []
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
339 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
340 for line in l:lines
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
341 if a:0 >= 3
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
342 let l:status = s:HgStatus_GetFileStatus(line)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
343 if index(a:3, l:status) < 0
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
344 continue
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
345 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
346 endif
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
347 " 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
348 " look-aheads and look-behinds. See for yourself:
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
349 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
350 let l:filename = l:repo.GetFullPath(l:filename)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
351 call add(l:filenames, l:filename)
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
352 endfor
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
353 return l:filenames
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
354 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
355
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
356 function! s:HgStatus_GetFileStatus(...) abort
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
357 let l:line = a:0 ? a:1 : getline('.')
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
358 return matchstr(l:line, '\v^[MARC\!\?I ]')
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
359 endfunction
065625e1bb31 Split plugin file into multiple extensions.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
360