vim-lawrencium: plugin/lawrencium.vim annotate

annotate plugin/lawrencium.vim @ 123:860e6502b239

Use HGPLAIN to ensure command outputs are clean.

author	Ludovic Chabant <ludovic@chabant.com>
date	Tue, 16 Feb 2016 21:53:42 -0800
parents	a9136d95cf47
children	d5602a22bab5

rev	line source
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1 " lawrencium.vim - A Mercurial wrapper
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2 " Maintainer: Ludovic Chabant <http://ludovic.chabant.com>
114 facd2506066f Bumped version. I should release this stuff more often. Ludovic Chabant <ludovic@chabant.com> parents: 113 diff changeset	3 " Version: 0.4.0
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	4
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	5 " Globals {{{
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	6
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	7 if !exists('g:lawrencium_debug')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	8 let g:lawrencium_debug = 0
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	9 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	10
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	11 if (exists('g:loaded_lawrencium') \|\| &cp) && !g:lawrencium_debug
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	12 finish
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	13 endif
6 1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	14 if (exists('g:loaded_lawrencium') && g:lawrencium_debug)
1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	15 echom "Reloaded Lawrencium."
1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	16 endif
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	17 let g:loaded_lawrencium = 1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	18
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	19 if !exists('g:lawrencium_hg_executable')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	20 let g:lawrencium_hg_executable = 'hg'
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	21 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	22
43 fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	23 if !exists('g:lawrencium_auto_cd')
fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	24 let g:lawrencium_auto_cd = 1
fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	25 endif
fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	26
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	27 if !exists('g:lawrencium_trace')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	28 let g:lawrencium_trace = 0
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	29 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	30
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	31 if !exists('g:lawrencium_define_mappings')
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	32 let g:lawrencium_define_mappings = 1
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	33 endif
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	34
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	35 if !exists('g:lawrencium_auto_close_buffers')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	36 let g:lawrencium_auto_close_buffers = 1
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	37 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	38
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	39 if !exists('g:lawrencium_annotate_width_offset')
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	40 let g:lawrencium_annotate_width_offset = 0
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	41 endif
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	42
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	43 if !exists('g:lawrencium_status_win_split_above')
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	44 let g:lawrencium_status_win_split_above = 0
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	45 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	46
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	47 if !exists('g:lawrencium_status_win_split_even')
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	48 let g:lawrencium_status_win_split_even = 0
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	49 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	50
108 497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	51 if !exists('g:lawrencium_record_start_in_working_buffer')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	52 let g:lawrencium_record_start_in_working_buffer = 0
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	53 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	54
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	55 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	56
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	57 " Utility {{{
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	58
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	59 " Strips the ending slash in a path.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	60 function! s:stripslash(path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	61 return fnamemodify(a:path, ':s?[/\\]$??')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	62 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	63
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	64 " Surrounds the given string with double quotes.
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	65 function! s:addquotes(str)
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	66 return '"' . a:str . '"'
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	67 endfunction
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	68
98 e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	69 " Returns whether a path is absolute.
e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	70 function! s:isabspath(path)
e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	71 return a:path =~# '\v^(\w\:)?[/\\]'
e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	72 endfunction
e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	73
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	74 " Normalizes the slashes in a path.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	75 function! s:normalizepath(path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	76 if exists('+shellslash') && &shellslash
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	77 return substitute(a:path, '\v/', '\\', 'g')
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	78 elseif has('win32')
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	79 return substitute(a:path, '\v/', '\\', 'g')
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	80 else
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	81 return a:path
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	82 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	83 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	84
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	85 " Shell-slashes the path (opposite of `normalizepath`).
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	86 function! s:shellslash(path)
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	87 if exists('+shellslash') && !&shellslash
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	88 return substitute(a:path, '\v\\', '/', 'g')
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	89 else
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	90 return a:path
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	91 endif
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	92 endfunction
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	93
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	94 " Like tempname() but with some control over the filename.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	95 function! s:tempname(name, ...)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	96 let l:path = tempname()
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	97 let l:result = fnamemodify(l:path, ':h') . '/' . a:name . fnamemodify(l:path, ':t')
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	98 if a:0 > 0
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	99 let l:result = l:result . a:1
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	100 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	101 return l:result
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	102 endfunction
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	103
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	104 " Delete a temporary file if it exists.
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	105 function! s:clean_tempfile(path)
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	106 if filewritable(a:path)
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	107 call s:trace("Cleaning up temporary file: " . a:path)
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	108 call delete(a:path)
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	109 endif
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	110 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	111
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	112 " Prints a message if debug tracing is enabled.
6 1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	113 function! s:trace(message, ...)
1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	114 if g:lawrencium_trace \|\| (a:0 && a:1)
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	115 let l:message = "lawrencium: " . a:message
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	116 echom l:message
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	117 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	118 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	119
18 4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	120 " Prints an error message with 'lawrencium error' prefixed to it.
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	121 function! s:error(message)
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	122 echom "lawrencium error: " . a:message
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	123 endfunction
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	124
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	125 " Throw a Lawrencium exception message.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	126 function! s:throw(message)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	127 let v:errmsg = "lawrencium: " . a:message
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	128 throw v:errmsg
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	129 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	130
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	131 " Finds the repository root given a path inside that repository.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	132 " Throw an error if not repository is found.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	133 function! s:find_repo_root(path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	134 let l:path = s:stripslash(a:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	135 let l:previous_path = ""
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	136 while l:path != l:previous_path
121 5168645017dd Check for `.hg` directory instead of `.hg/store`. Ludovic Chabant <ludovic@chabant.com> parents: 119 diff changeset	137 if isdirectory(l:path . '/.hg')
104 518a6b2eff56 Simpler looking repo paths. Ludovic Chabant <ludovic@chabant.com> parents: 103 diff changeset	138 return s:normalizepath(simplify(fnamemodify(l:path, ':p')))
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	139 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	140 let l:previous_path = l:path
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	141 let l:path = fnamemodify(l:path, ':h')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	142 endwhile
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	143 call s:throw("No Mercurial repository found above: " . a:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	144 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	145
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	146 " Given a Lawrencium path (e.g: 'lawrencium:///repo/root_dir//foo/bar/file.py//rev=34'), extract
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	147 " the repository root, relative file path and revision number/changeset ID.
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	148 "
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	149 " If a second argument exists, it must be:
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	150 " - `relative`: to make the file path relative to the repository root.
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	151 " - `absolute`: to make the file path absolute.
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	152 "
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	153 function! s:parse_lawrencium_path(lawrencium_path, ...)
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	154 let l:repo_path = s:shellslash(a:lawrencium_path)
81 a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	155 let l:repo_path = substitute(l:repo_path, '\\ ', ' ', 'g')
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	156 if l:repo_path =~? '\v^lawrencium://'
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	157 let l:repo_path = strpart(l:repo_path, strlen('lawrencium://'))
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	158 endif
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	159
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	160 let l:root_dir = ''
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	161 let l:at_idx = stridx(l:repo_path, '//')
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	162 if l:at_idx >= 0
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	163 let l:root_dir = strpart(l:repo_path, 0, l:at_idx)
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	164 let l:repo_path = strpart(l:repo_path, l:at_idx + 2)
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	165 endif
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	166
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	167 let l:value = ''
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	168 let l:action = ''
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	169 let l:actionidx = stridx(l:repo_path, '//')
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	170 if l:actionidx >= 0
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	171 let l:action = strpart(l:repo_path, l:actionidx + 2)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	172 let l:repo_path = strpart(l:repo_path, 0, l:actionidx)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	173
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	174 let l:equalidx = stridx(l:action, '=')
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	175 if l:equalidx >= 0
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	176 let l:value = strpart(l:action, l:equalidx + 1)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	177 let l:action = strpart(l:action, 0, l:equalidx)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	178 endif
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	179 endif
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	180
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	181 if a:0 > 0
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	182 execute 'cd! ' . fnameescape(l:root_dir)
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	183 if a:1 == 'relative'
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	184 let l:repo_path = fnamemodify(l:repo_path, ':.')
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	185 elseif a:1 == 'absolute'
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	186 let l:repo_path = fnamemodify(l:repo_path, ':p')
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	187 endif
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	188 execute 'cd! -'
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	189 endif
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	190
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	191 let l:result = { 'root': l:root_dir, 'path': l:repo_path, 'action': l:action, 'value': l:value }
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	192 return l:result
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	193 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	194
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	195 " Finds a window whose displayed buffer has a given variable
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	196 " set to the given value.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	197 function! s:find_buffer_window(varname, varvalue) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	198 for wnr in range(1, winnr('$'))
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	199 let l:bnr = winbufnr(wnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	200 if getbufvar(l:bnr, a:varname) == a:varvalue
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	201 return l:wnr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	202 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	203 endfor
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	204 return -1
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	205 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	206
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	207 " Opens a buffer in a way that makes it easy to delete it later:
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	208 " - if the about-to-be previous buffer doesn't have a given variable,
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	209 " just open the new buffer.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	210 " - if the about-to-be previous buffer has a given variable, open the
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	211 " new buffer with the `keepalt` option to make it so that the
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	212 " actual previous buffer (returned by things like `bufname('#')`)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	213 " is the original buffer that was there before the first deletable
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	214 " buffer was opened.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	215 function! s:edit_deletable_buffer(varname, varvalue, path) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	216 let l:edit_cmd = 'edit '
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	217 if getbufvar('%', a:varname) != ''
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	218 let l:edit_cmd = 'keepalt edit '
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	219 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	220 execute l:edit_cmd . fnameescape(a:path)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	221 call setbufvar('%', a:varname, a:varvalue)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	222 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	223
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	224 " Deletes all buffers that have a given variable set to a given value.
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	225 " For each buffer, if it is not shown in any window, it will be just deleted.
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	226 " If it is shown in a window, that window will be switched to the alternate
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	227 " buffer before the buffer is deleted, unless the `lawrencium_quit_on_delete`
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	228 " variable is set to `1`, in which case the window is closed too.
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	229 function! s:delete_dependency_buffers(varname, varvalue) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	230 let l:cur_winnr = winnr()
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	231 for bnr in range(1, bufnr('$'))
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	232 if getbufvar(bnr, a:varname) == a:varvalue
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	233 " Delete this buffer if it is not shown in any window.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	234 " Otherwise, display the alternate buffer before deleting
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	235 " it so the window is not closed.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	236 let l:bwnr = bufwinnr(bnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	237 if l:bwnr < 0 \|\| getbufvar(bnr, 'lawrencium_quit_on_delete') == 1
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	238 if bufloaded(l:bnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	239 call s:trace("Deleting dependency buffer " . bnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	240 execute "bdelete! " . bnr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	241 else
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	242 call s:trace("Dependency buffer " . bnr . " is already unladed.")
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	243 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	244 else
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	245 execute l:bwnr . "wincmd w"
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	246 " TODO: better handle case where there's no previous/alternate buffer?
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	247 let l:prev_bnr = bufnr('#')
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	248 if l:prev_bnr > 0 && bufloaded(l:prev_bnr)
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	249 execute "buffer " . l:prev_bnr
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	250 if bufloaded(l:bnr)
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	251 call s:trace("Deleting dependency buffer " . bnr . " after switching to " . l:prev_bnr . " in window " . l:bwnr)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	252 execute "bdelete! " . bnr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	253 else
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	254 call s:trace("Dependency buffer " . bnr . " is unladed after switching to " . l:prev_bnr)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	255 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	256 else
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	257 call s:trace("Deleting dependency buffer " . bnr . " and window.")
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	258 bdelete!
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	259 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	260 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	261 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	262 endfor
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	263 if l:cur_winnr != winnr()
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	264 call s:trace("Returning to window " . l:cur_winnr)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	265 execute l:cur_winnr . "wincmd w"
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	266 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	267 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	268
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	269 " Clean up all the 'HG:' lines from a commit message, and see if there's
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	270 " any message left (Mercurial does this automatically, usually, but
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	271 " apparently not when you feed it a log file...).
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	272 function! s:clean_commit_file(log_file) abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	273 let l:lines = readfile(a:log_file)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	274 call filter(l:lines, "v:val !~# '\\v^HG:'")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	275 if len(filter(copy(l:lines), "v:val !~# '\\v^\\s*$'")) == 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	276 return 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	277 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	278 call writefile(l:lines, a:log_file)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	279 return 1
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	280 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	281
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	282 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	283
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	284 " Mercurial Repository Object {{{
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	285
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	286 " Let's define a Mercurial repo 'class' using prototype-based object-oriented
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	287 " programming.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	288 "
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	289 " The prototype dictionary.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	290 let s:HgRepo = {}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	291
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	292 " Constructor.
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	293 function! s:HgRepo.New(path) abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	294 let l:newRepo = copy(self)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	295 let l:newRepo.root_dir = s:find_repo_root(a:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	296 call s:trace("Built new Mercurial repository object at : " . l:newRepo.root_dir)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	297 return l:newRepo
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	298 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	299
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	300 " Gets a full path given a repo-relative path.
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	301 function! s:HgRepo.GetFullPath(path) abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	302 let l:root_dir = self.root_dir
98 e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	303 if s:isabspath(a:path)
103 bc6003e7159e Fix stupid typo, make sure paths are normalized. Ludovic Chabant <ludovic@chabant.com> parents: 101 diff changeset	304 call s:throw("Expected relative path, got absolute path: " . a:path)
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	305 endif
103 bc6003e7159e Fix stupid typo, make sure paths are normalized. Ludovic Chabant <ludovic@chabant.com> parents: 101 diff changeset	306 return s:normalizepath(l:root_dir . a:path)
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	307 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	308
98 e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	309 " Gets a repo-relative path given any path.
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	310 function! s:HgRepo.GetRelativePath(path) abort
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	311 execute 'lcd! ' . fnameescape(self.root_dir)
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	312 let l:relative_path = fnamemodify(a:path, ':.')
98 e5ac6464a767 Handle absolute/relative paths properly. Ludovic Chabant <ludovic@chabant.com> parents: 96 diff changeset	313 execute 'lcd! -'
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	314 return l:relative_path
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	315 endfunction
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	316
105 fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	317 " Gets, and optionally creates, a temp folder for some operation in the `.hg`
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	318 " directory.
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	319 function! s:HgRepo.GetTempDir(path, ...) abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	320 let l:tmp_dir = self.GetFullPath('.hg/lawrencium/' . a:path)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	321 if !isdirectory(l:tmp_dir)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	322 if a:0 > 0 && !a:1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	323 return ''
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	324 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	325 call mkdir(l:tmp_dir, 'p')
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	326 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	327 return l:tmp_dir
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	328 endfunction
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	329
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	330 " Gets a list of files matching a root-relative pattern.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	331 " If a flag is passed and is TRUE, a slash will be appended to all
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	332 " directories.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	333 function! s:HgRepo.Glob(pattern, ...) abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	334 let l:root_dir = self.root_dir
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	335 if (a:pattern =~# '\v^[/\\]')
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	336 let l:root_dir = s:stripslash(l:root_dir)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	337 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	338 let l:matches = split(glob(l:root_dir . a:pattern), '\n')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	339 if a:0 && a:1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	340 for l:idx in range(len(l:matches))
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	341 if !filereadable(l:matches[l:idx])
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	342 let l:matches[l:idx] = l:matches[l:idx] . '/'
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	343 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	344 endfor
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	345 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	346 let l:strip_len = len(l:root_dir)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	347 call map(l:matches, 'v:val[l:strip_len : -1]')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	348 return l:matches
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	349 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	350
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	351 " Gets a full Mercurial command.
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	352 function! s:HgRepo.GetCommand(command, ...) abort
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	353 " If there's only one argument, and it's a list, then use that as the
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	354 " argument list.
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	355 let l:arg_list = a:000
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	356 if a:0 == 1 && type(a:1) == type([])
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	357 let l:arg_list = a:1
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	358 endif
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	359 let l:hg_command = g:lawrencium_hg_executable . ' --repository ' . shellescape(s:stripslash(self.root_dir))
81 a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	360 let l:hg_command = l:hg_command . ' ' . a:command
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	361 for l:arg in l:arg_list
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	362 if stridx(l:arg, ' ') >= 0
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	363 let l:hg_command = l:hg_command . ' "' . l:arg . '"'
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	364 else
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	365 let l:hg_command = l:hg_command . ' ' . l:arg
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	366 endif
a42b0e63a8ea Fixed some bug with filenames with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 79 diff changeset	367 endfor
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	368 return l:hg_command
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	369 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	370
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	371 " Runs a Mercurial command in the repo.
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	372 function! s:HgRepo.RunCommand(command, ...) abort
123 860e6502b239 Use HGPLAIN to ensure command outputs are clean. Ludovic Chabant <ludovic@chabant.com> parents: 122 diff changeset	373 let l:prev_hgplain = $HGPLAIN
860e6502b239 Use HGPLAIN to ensure command outputs are clean. Ludovic Chabant <ludovic@chabant.com> parents: 122 diff changeset	374 let $HGPLAIN = 'true'
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	375 let l:all_args = [a:command] + a:000
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	376 let l:hg_command = call(self['GetCommand'], l:all_args, self)
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	377 call s:trace("Running Mercurial command: " . l:hg_command)
123 860e6502b239 Use HGPLAIN to ensure command outputs are clean. Ludovic Chabant <ludovic@chabant.com> parents: 122 diff changeset	378 let l:cmd_out = system(l:hg_command)
860e6502b239 Use HGPLAIN to ensure command outputs are clean. Ludovic Chabant <ludovic@chabant.com> parents: 122 diff changeset	379 let $HGPLAIN = l:prev_hgplain
860e6502b239 Use HGPLAIN to ensure command outputs are clean. Ludovic Chabant <ludovic@chabant.com> parents: 122 diff changeset	380 return l:cmd_out
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	381 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	382
84 b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	383 " Runs a Mercurial command in the repo and reads its output into the current
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	384 " buffer.
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	385 function! s:HgRepo.ReadCommandOutput(command, ...) abort
84 b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	386 function! s:PutOutputIntoBuffer(command_line)
b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	387 let l:was_buffer_empty = (line('$') == 1 && getline(1) == '')
b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	388 execute '0read!' . escape(a:command_line, '%#\')
b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	389 if l:was_buffer_empty " (Always true?)
99 001b341ab8ad Fix for Lawrencium files having folded sections deleted incorrectly. Ludovic Chabant <ludovic@chabant.com> parents: 98 diff changeset	390 " '0read' inserts before the cursor, leaving a blank line which
001b341ab8ad Fix for Lawrencium files having folded sections deleted incorrectly. Ludovic Chabant <ludovic@chabant.com> parents: 98 diff changeset	391 " needs to be deleted... but if there are folds in this thing, we
001b341ab8ad Fix for Lawrencium files having folded sections deleted incorrectly. Ludovic Chabant <ludovic@chabant.com> parents: 98 diff changeset	392 " must open them all first otherwise we could delete the whole
001b341ab8ad Fix for Lawrencium files having folded sections deleted incorrectly. Ludovic Chabant <ludovic@chabant.com> parents: 98 diff changeset	393 " contents of the last fold (since Vim may close them all by
001b341ab8ad Fix for Lawrencium files having folded sections deleted incorrectly. Ludovic Chabant <ludovic@chabant.com> parents: 98 diff changeset	394 " default).
111 01edb7c58e0c Don't touch vim registers holding deletions. Shane Harper <shane@shaneharper.net> parents: 110 diff changeset	395 normal! zRG"_dd
84 b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	396 endif
b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	397 endfunction
b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	398
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	399 let l:all_args = [a:command] + a:000
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	400 let l:hg_command = call(self['GetCommand'], l:all_args, self)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	401 call s:trace("Running Mercurial command: " . l:hg_command)
84 b82babe7fdf8 Fix: blank line added by HgRepo.ReadCommandOutput(). Shane Harper <shane@shaneharper.net> parents: 83 diff changeset	402 call s:PutOutputIntoBuffer(l:hg_command)
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	403 endfunction
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	404
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	405 " Build a Lawrencium path for the given file and action.
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	406 " By default, the given path will be made relative to the repository root,
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	407 " unless '0' is passed as the 4th argument.
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	408 function! s:HgRepo.GetLawrenciumPath(path, action, value, ...) abort
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	409 let l:path = a:path
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	410 if a:0 == 0 \|\| !a:1
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	411 let l:path = self.GetRelativePath(a:path)
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	412 endif
88 08e0ab5985d2 Correctly escape paths on Windows. Ludovic Chabant <ludovic@chabant.com> parents: 87 diff changeset	413 let l:path = fnameescape(l:path)
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	414 let l:result = 'lawrencium://' . s:stripslash(self.root_dir) . '//' . l:path
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	415 if a:action !=? ''
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	416 let l:result = l:result . '//' . a:action
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	417 if a:value !=? ''
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	418 let l:result = l:result . '=' . a:value
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	419 endif
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	420 endif
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	421 return l:result
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	422 endfunction
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	423
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	424 " Repo cache map.
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	425 let s:buffer_repos = {}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	426
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	427 " Get a cached repo.
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	428 function! s:hg_repo(...) abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	429 " Use the given path, or the mercurial directory of the current buffer.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	430 if a:0 == 0
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	431 if exists('b:mercurial_dir')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	432 let l:path = b:mercurial_dir
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	433 else
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	434 let l:path = s:find_repo_root(expand('%:p'))
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	435 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	436 else
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	437 let l:path = a:1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	438 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	439 " Find a cache repo instance, or make a new one.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	440 if has_key(s:buffer_repos, l:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	441 return get(s:buffer_repos, l:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	442 else
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	443 let l:repo = s:HgRepo.New(l:path)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	444 let s:buffer_repos[l:path] = l:repo
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	445 return l:repo
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	446 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	447 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	448
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	449 " Sets up the current buffer with Lawrencium commands if it contains a file from a Mercurial repo.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	450 " If the file is not in a Mercurial repo, just exit silently.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	451 function! s:setup_buffer_commands() abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	452 call s:trace("Scanning buffer '" . bufname('%') . "' for Lawrencium setup...")
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	453 let l:do_setup = 1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	454 if exists('b:mercurial_dir')
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	455 if b:mercurial_dir =~# '\v^\s*$'
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	456 unlet b:mercurial_dir
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	457 else
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	458 let l:do_setup = 0
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	459 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	460 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	461 try
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	462 let l:repo = s:hg_repo()
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	463 catch /^lawrencium\:/
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	464 return
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	465 endtry
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	466 let b:mercurial_dir = l:repo.root_dir
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	467 if exists('b:mercurial_dir') && l:do_setup
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	468 call s:trace("Setting Mercurial commands for buffer '" . bufname('%'))
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	469 call s:trace(" with repo : " . expand(b:mercurial_dir))
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	470 silent doautocmd User Lawrencium
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	471 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	472 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	473
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	474 augroup lawrencium_detect
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	475 autocmd!
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	476 autocmd BufNewFile,BufReadPost * call s:setup_buffer_commands()
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	477 autocmd VimEnter * if expand('<amatch>')==''\|call s:setup_buffer_commands()\|endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	478 augroup end
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	479
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	480 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	481
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	482 " Buffer Object {{{
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	483
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	484 " The prototype dictionary.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	485 let s:Buffer = {}
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	486
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	487 " Constructor.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	488 function! s:Buffer.New(number) dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	489 let l:newBuffer = copy(self)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	490 let l:newBuffer.nr = a:number
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	491 let l:newBuffer.var_backup = {}
105 fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	492 let l:newBuffer.cmd_names = {}
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	493 let l:newBuffer.on_delete = []
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	494 let l:newBuffer.on_winleave = []
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	495 let l:newBuffer.on_unload = []
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	496 execute 'augroup lawrencium_buffer_' . a:number
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	497 execute ' autocmd!'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	498 execute ' autocmd BufDelete <buffer=' . a:number . '> call s:buffer_on_delete(' . a:number . ')'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	499 execute 'augroup end'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	500 call s:trace("Built new buffer object for buffer: " . a:number)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	501 return l:newBuffer
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	502 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	503
105 fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	504 function! s:Buffer.GetName(...) dict abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	505 let l:name = bufname(self.nr)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	506 if a:0 > 0
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	507 let l:name = fnamemodify(l:name, a:1)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	508 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	509 return l:name
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	510 endfunction
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	511
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	512 function! s:Buffer.GetVar(var) dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	513 return getbufvar(self.nr, a:var)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	514 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	515
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	516 function! s:Buffer.SetVar(var, value) dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	517 if !has_key(self.var_backup, a:var)
105 fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	518 let self.var_backup[a:var] = getbufvar(self.nr, a:var)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	519 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	520 return setbufvar(self.nr, a:var, a:value)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	521 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	522
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	523 function! s:Buffer.RestoreVars() dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	524 for key in keys(self.var_backup)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	525 setbufvar(self.nr, key, self.var_backup[key])
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	526 endfor
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	527 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	528
105 fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	529 function! s:Buffer.DefineCommand(name, ...) dict abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	530 if a:0 == 0
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	531 call s:throw("Not enough parameters for s:Buffer.DefineCommands()")
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	532 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	533 if a:0 == 1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	534 let l:flags = ''
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	535 let l:cmd = a:1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	536 else
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	537 let l:flags = a:1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	538 let l:cmd = a:2
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	539 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	540 if has_key(self.cmd_names, a:name)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	541 call s:throw("Command '".a:name."' is already defined in buffer ".self.nr)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	542 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	543 if bufnr('%') != self.nr
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	544 call s:throw("You must move to buffer ".self.nr."first before defining local commands")
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	545 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	546 let self.cmd_names[a:name] = 1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	547 let l:real_flags = ''
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	548 if type(l:flags) == type('')
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	549 let l:real_flags = l:flags
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	550 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	551 execute 'command -buffer '.l:real_flags.' '.a:name.' '.l:cmd
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	552 endfunction
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	553
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	554 function! s:Buffer.DeleteCommand(name) dict abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	555 if !has_key(self.cmd_names, a:name)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	556 call s:throw("Command '".a:name."' has not been defined in buffer ".self.nr)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	557 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	558 if bufnr('%') != self.nr
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	559 call s:throw("You must move to buffer ".self.nr."first before deleting local commands")
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	560 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	561 execute 'delcommand '.a:name
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	562 call remove(self.cmd_names, a:name)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	563 endfunction
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	564
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	565 function! s:Buffer.DeleteCommands() dict abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	566 if bufnr('%') != self.nr
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	567 call s:throw("You must move to buffer ".self.nr."first before deleting local commands")
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	568 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	569 for name in keys(self.cmd_names)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	570 execute 'delcommand '.name
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	571 endfor
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	572 let self.cmd_names = {}
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	573 endfunction
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	574
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	575 function! s:Buffer.MoveToFirstWindow() dict abort
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	576 let l:win_nr = bufwinnr(self.nr)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	577 if l:win_nr < 0
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	578 if a:0 > 0 && a:1 == 0
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	579 return 0
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	580 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	581 call s:throw("No windows currently showing buffer ".self.nr)
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	582 endif
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	583 execute l:win_nr.'wincmd w'
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	584 return 1
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	585 endfunction
fc5ffa4614b4 Infrastructure improvements Ludovic Chabant <ludovic@chabant.com> parents: 104 diff changeset	586
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	587 function! s:Buffer.OnDelete(cmd) dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	588 call s:trace("Adding BufDelete callback for buffer " . self.nr . ": " . a:cmd)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	589 call add(self.on_delete, a:cmd)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	590 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	591
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	592 function! s:Buffer.OnWinLeave(cmd) dict abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	593 if len(self.on_winleave) == 0
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	594 call s:trace("Adding BufWinLeave auto-command on buffer " . self.nr)
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	595 execute 'augroup lawrencium_buffer_' . self.nr . '_winleave'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	596 execute ' autocmd!'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	597 execute ' autocmd BufWinLeave <buffer=' . self.nr . '> call s:buffer_on_winleave(' . self.nr .')'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	598 execute 'augroup end'
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	599 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	600 call s:trace("Adding BufWinLeave callback for buffer " . self.nr . ": " . a:cmd)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	601 call add(self.on_winleave, a:cmd)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	602 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	603
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	604 function! s:Buffer.OnUnload(cmd) dict abort
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	605 if len(self.on_unload) == 0
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	606 call s:trace("Adding BufUnload auto-command on buffer " . self.nr)
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	607 execute 'augroup lawrencium_buffer_' . self.nr . '_unload'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	608 execute ' autocmd!'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	609 execute ' autocmd BufUnload <buffer=' . self.nr . '> call s:buffer_on_unload(' . self.nr . ')'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	610 execute 'augroup end'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	611 endif
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	612 call s:trace("Adding BufUnload callback for buffer " . self.nr . ": " . a:cmd)
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	613 call add(self.on_unload, a:cmd)
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	614 endfunction
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	615
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	616 let s:buffer_objects = {}
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	617
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	618 " Get a buffer instance for the specified buffer number, or the
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	619 " current buffer if nothing is specified.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	620 function! s:buffer_obj(...) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	621 let l:bufnr = a:0 ? a:1 : bufnr('%')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	622 if !has_key(s:buffer_objects, l:bufnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	623 let s:buffer_objects[l:bufnr] = s:Buffer.New(l:bufnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	624 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	625 return s:buffer_objects[l:bufnr]
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	626 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	627
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	628 " Execute all the "on delete" callbacks.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	629 function! s:buffer_on_delete(number) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	630 let l:bufobj = s:buffer_objects[a:number]
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	631 call s:trace("Calling BufDelete callbacks on buffer " . l:bufobj.nr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	632 for cmd in l:bufobj.on_delete
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	633 call s:trace(" [" . cmd . "]")
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	634 execute cmd
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	635 endfor
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	636 call s:trace("Deleted buffer object " . l:bufobj.nr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	637 call remove(s:buffer_objects, l:bufobj.nr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	638 execute 'augroup lawrencium_buffer_' . l:bufobj.nr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	639 execute ' autocmd!'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	640 execute 'augroup end'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	641 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	642
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	643 " Execute all the "on winleave" callbacks.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	644 function! s:buffer_on_winleave(number) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	645 let l:bufobj = s:buffer_objects[a:number]
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	646 call s:trace("Calling BufWinLeave callbacks on buffer " . l:bufobj.nr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	647 for cmd in l:bufobj.on_winleave
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	648 call s:trace(" [" . cmd . "]")
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	649 execute cmd
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	650 endfor
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	651 execute 'augroup lawrencium_buffer_' . l:bufobj.nr . '_winleave'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	652 execute ' autocmd!'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	653 execute 'augroup end'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	654 endfunction
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	655
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	656 " Execute all the "on unload" callbacks.
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	657 function! s:buffer_on_unload(number) abort
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	658 let l:bufobj = s:buffer_objects[a:number]
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	659 call s:trace("Calling BufUnload callbacks on buffer " . l:bufobj.nr)
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	660 for cmd in l:bufobj.on_unload
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	661 call s:trace(" [" . cmd . "]")
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	662 execute cmd
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	663 endfor
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	664 execute 'augroup lawrencium_buffer_' . l:bufobj.nr . '_unload'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	665 execute ' autocmd!'
e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	666 execute 'augroup end'
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	667 endfunction
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	668
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	669 " }}}
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	670
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	671 " Lawrencium Files {{{
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	672
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	673 " Read revision (`hg cat`)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	674 function! s:read_lawrencium_rev(repo, path_parts, full_path) abort
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	675 let l:rev = a:path_parts['value']
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	676 if l:rev == ''
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	677 call a:repo.ReadCommandOutput('cat', a:full_path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	678 else
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	679 call a:repo.ReadCommandOutput('cat', '-r', s:addquotes(l:rev), a:full_path)
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	680 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	681 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	682
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	683 " Status (`hg status`)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	684 function! s:read_lawrencium_status(repo, path_parts, full_path) abort
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	685 if a:path_parts['path'] == ''
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	686 call a:repo.ReadCommandOutput('status')
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	687 else
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	688 call a:repo.ReadCommandOutput('status', a:full_path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	689 endif
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	690 setlocal nomodified
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	691 setlocal filetype=hgstatus
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	692 setlocal bufhidden=delete
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	693 setlocal buftype=nofile
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	694 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	695
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	696 " Log (`hg log`)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	697 let s:log_style_file = expand("<sfile>:h:h") . "/resources/hg_log.style"
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	698
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	699 function! s:read_lawrencium_log(repo, path_parts, full_path) abort
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	700 let l:log_opts = join(split(a:path_parts['value'], ','))
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	701 let l:log_cmd = "log " . l:log_opts
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	702
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	703 if a:path_parts['path'] == ''
112 b051b81cc365 Fix double escaping when Lawrencium is stored in a folder with spaces. Ludovic Chabant <ludovic@chabant.com> parents: 111 diff changeset	704 call a:repo.ReadCommandOutput(l:log_cmd, '--style', s:log_style_file)
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	705 else
112 b051b81cc365 Fix double escaping when Lawrencium is stored in a folder with spaces. Ludovic Chabant <ludovic@chabant.com> parents: 111 diff changeset	706 call a:repo.ReadCommandOutput(l:log_cmd, '--style', s:log_style_file, a:full_path)
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	707 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	708 setlocal filetype=hglog
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	709 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	710
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	711 " Diff revisions (`hg diff`)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	712 function! s:read_lawrencium_diff(repo, path_parts, full_path) abort
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	713 let l:diffargs = []
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	714 let l:commaidx = stridx(a:path_parts['value'], ',')
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	715 if l:commaidx > 0
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	716 let l:rev1 = strpart(a:path_parts['value'], 0, l:commaidx)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	717 let l:rev2 = strpart(a:path_parts['value'], l:commaidx + 1)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	718 if l:rev1 == '-'
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	719 let l:diffargs = [ '-r', s:addquotes(l:rev2) ]
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	720 elseif l:rev2 == '-'
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	721 let l:diffargs = [ '-r', s:addquotes(l:rev1) ]
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	722 else
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	723 let l:diffargs = [ '-r', s:addquotes(l:rev1), '-r', s:addquotes(l:rev2) ]
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	724 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	725 elseif a:path_parts['value'] != ''
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	726 let l:diffargs = [ '-c', a:path_parts['value'] ]
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	727 else
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	728 let l:diffargs = []
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	729 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	730 if a:path_parts['path'] != '' && a:path_parts['path'] != '.'
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	731 call add(l:diffargs, a:full_path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	732 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	733 call a:repo.ReadCommandOutput('diff', l:diffargs)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	734 setlocal filetype=diff
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	735 setlocal nofoldenable
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	736 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	737
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	738 " Annotate file
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	739 function! s:read_lawrencium_annotate(repo, path_parts, full_path) abort
96 1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	740 let l:cmd_args = ['-c', '-n', '-u', '-d', '-q']
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	741 if a:path_parts['value'] == 'v=1'
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	742 call insert(l:cmd_args, '-v', 0)
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	743 endif
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	744 call add(l:cmd_args, a:full_path)
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	745 call a:repo.ReadCommandOutput('annotate', l:cmd_args)
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	746 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	747
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	748 " MQ series
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	749 function! s:read_lawrencium_qseries(repo, path_parts, full_path) abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	750 let l:names = split(a:repo.RunCommand('qseries'), '\n')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	751 let l:head = split(a:repo.RunCommand('qapplied', '-s'), '\n')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	752 let l:tail = split(a:repo.RunCommand('qunapplied', '-s'), '\n')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	753
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	754 let l:idx = 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	755 let l:curbuffer = bufname('%')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	756 for line in l:head
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	757 call setbufvar(l:curbuffer, 'lawrencium_patchname_' . (l:idx + 1), l:names[l:idx])
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	758 call append(l:idx, "*" . line)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	759 let l:idx = l:idx + 1
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	760 endfor
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	761 for line in l:tail
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	762 call setbufvar(l:curbuffer, 'lawrencium_patchname_' . (l:idx + 1), l:names[l:idx])
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	763 call append(l:idx, line)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	764 let l:idx = l:idx + 1
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	765 endfor
78 e42f813b4a39 Fixed some bugs with the `Hgqseries` window. Ludovic Chabant <ludovic@chabant.com> parents: 76 diff changeset	766 call setbufvar(l:curbuffer, 'lawrencium_patchname_top', l:names[len(l:head) - 1])
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	767 set filetype=hgqseries
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	768 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	769
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	770 " Generic read
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	771 let s:lawrencium_file_readers = {
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	772 \'rev': function('s:read_lawrencium_rev'),
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	773 \'log': function('s:read_lawrencium_log'),
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	774 \'diff': function('s:read_lawrencium_diff'),
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	775 \'status': function('s:read_lawrencium_status'),
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	776 \'annotate': function('s:read_lawrencium_annotate'),
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	777 \'qseries': function('s:read_lawrencium_qseries')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	778 \}
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	779 let s:lawrencium_file_customoptions = {
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	780 \'status': 1
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	781 \}
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	782
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	783 function! s:ReadLawrenciumFile(path) abort
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	784 call s:trace("Reading Lawrencium file: " . a:path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	785 let l:path_parts = s:parse_lawrencium_path(a:path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	786 if l:path_parts['root'] == ''
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	787 call s:throw("Can't get repository root from: " . a:path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	788 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	789 if !has_key(s:lawrencium_file_readers, l:path_parts['action'])
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	790 call s:throw("No registered reader for action: " . l:path_parts['action'])
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	791 endif
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	792
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	793 " Call the registered reader.
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	794 let l:repo = s:hg_repo(l:path_parts['root'])
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	795 let l:full_path = l:repo.root_dir . l:path_parts['path']
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	796 let LawrenciumFileReader = s:lawrencium_file_readers[l:path_parts['action']]
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	797 call LawrenciumFileReader(l:repo, l:path_parts, l:full_path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	798
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	799 " Setup the new buffer.
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	800 if !has_key(s:lawrencium_file_customoptions, l:path_parts['action'])
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	801 setlocal readonly
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	802 setlocal nomodified
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	803 setlocal bufhidden=delete
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	804 setlocal buftype=nofile
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	805 endif
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	806 goto
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	807
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	808 " Remember the real Lawrencium path, because Vim can fuck up the slashes
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	809 " on Windows.
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	810 let b:lawrencium_path = a:path
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	811
67 1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	812 " Remember the repo it belongs to and make
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	813 " the Lawrencium commands available.
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	814 let b:mercurial_dir = l:repo.root_dir
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	815 call s:DefineMainCommands()
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	816
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	817 return ''
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	818 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	819
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	820 function! s:WriteLawrenciumFile(path) abort
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	821 call s:trace("Writing Lawrencium file: " . a:path)
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	822 endfunction
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	823
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	824 augroup lawrencium_files
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	825 autocmd!
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	826 autocmd BufReadCmd lawrencium://////* exe s:ReadLawrenciumFile(expand('<amatch>'))
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	827 autocmd BufWriteCmd lawrencium://////* exe s:WriteLawrenciumFile(expand('<amatch>'))
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	828 augroup END
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	829
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	830 " }}}
1cf08e4a7947 Made Lawrencium file easier to extend. Ludovic Chabant <ludovic@chabant.com> parents: 66 diff changeset	831
14 eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	832 " Buffer Commands Management {{{
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	833
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	834 " Store the commands for Lawrencium-enabled buffers so that we can add them in
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	835 " batch when we need to.
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	836 let s:main_commands = []
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	837
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	838 function! s:AddMainCommand(command) abort
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	839 let s:main_commands += [a:command]
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	840 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	841
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	842 function! s:DefineMainCommands()
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	843 for l:command in s:main_commands
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	844 execute 'command! -buffer ' . l:command
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	845 endfor
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	846 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	847
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	848 augroup lawrencium_main
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	849 autocmd!
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	850 autocmd User Lawrencium call s:DefineMainCommands()
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	851 augroup end
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	852
14 eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	853 " }}}
eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	854
eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	855 " Commands Auto-Complete {{{
eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	856
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	857 " Auto-complete function for commands that take repo-relative file paths.
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	858 function! s:ListRepoFiles(ArgLead, CmdLine, CursorPos) abort
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	859 let l:matches = s:hg_repo().Glob(a:ArgLead . '*', 1)
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	860 call map(l:matches, 's:normalizepath(v:val)')
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	861 return l:matches
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	862 endfunction
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	863
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	864 " Auto-complete function for commands that take repo-relative directory paths.
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	865 function! s:ListRepoDirs(ArgLead, CmdLine, CursorPos) abort
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	866 let l:matches = s:hg_repo().Glob(a:ArgLead . '*/')
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	867 call map(l:matches, 's:normalizepath(v:val)')
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	868 return l:matches
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	869 endfunction
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	870
14 eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	871 " }}}
eab2680e6818 Better fold sections. Ludovic Chabant <ludovic@chabant.com> parents: 12 diff changeset	872
4 b6e4446ed292 HgStatus now outputs to the location window. Ludovic Chabant <ludovic@chabant.com> parents: 0 diff changeset	873 " Hg {{{
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	874
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	875 function! s:Hg(bang, ...) abort
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	876 let l:repo = s:hg_repo()
44 95f8e7cb5ca2 Stop fucking with my brain, Python. Ludovic Chabant <ludovic@chabant.com> parents: 43 diff changeset	877 if g:lawrencium_auto_cd
43 fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	878 " Temporary set the current directory to the root of the repo
fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	879 " to make auto-completed paths work magically.
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	880 execute 'cd! ' . fnameescape(l:repo.root_dir)
43 fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	881 endif
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	882 let l:output = call(l:repo.RunCommand, a:000, l:repo)
44 95f8e7cb5ca2 Stop fucking with my brain, Python. Ludovic Chabant <ludovic@chabant.com> parents: 43 diff changeset	883 if g:lawrencium_auto_cd
43 fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	884 execute 'cd! -'
fc20a265551d Added auto cd'ing into the repo root for `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 41 diff changeset	885 endif
110 e66df94ebceb adding HgCmdPost custom autocmd Ghennadi Pilipenco <pilipenco@molecularhealth.com> parents: 108 diff changeset	886 silent doautocmd User HgCmdPost
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	887 if a:bang
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	888 " Open the output of the command in a temp file.
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	889 let l:temp_file = s:tempname('hg-output-', '.txt')
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	890 split
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	891 execute 'edit ' . fnameescape(l:temp_file)
21 d0acefc1ec9a Fixed multi-line output of `:Hg`. Ludovic Chabant <ludovic@chabant.com> parents: 18 diff changeset	892 call append(0, split(l:output, '\n'))
46 6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	893 call cursor(1, 1)
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	894
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	895 " Make it a temp buffer
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	896 setlocal bufhidden=delete
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	897 setlocal buftype=nofile
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	898
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	899 " Try to find a nice syntax to set given the current command.
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	900 let l:command_name = s:GetHgCommandName(a:000)
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	901 if l:command_name != '' && exists('g:lawrencium_hg_commands_file_types')
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	902 let l:file_type = get(g:lawrencium_hg_commands_file_types, l:command_name, '')
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	903 if l:file_type != ''
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	904 execute 'setlocal ft=' . l:file_type
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	905 endif
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	906 endif
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	907 else
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	908 " Just print out the output of the command.
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	909 echo l:output
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	910 endif
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	911 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	912
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	913 " Include the generated HG usage file.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	914 let s:usage_file = expand("<sfile>:h:h") . "/resources/hg_usage.vim"
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	915 if filereadable(s:usage_file)
89 7fcb71064e85 More path escaping! Ludovic Chabant <ludovic@chabant.com> parents: 88 diff changeset	916 execute "source " . fnameescape(s:usage_file)
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	917 else
18 4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	918 call s:error("Can't find the Mercurial usage file. Auto-completion will be disabled in Lawrencium.")
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	919 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	920
46 6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	921 " Include the command file type mappings.
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	922 let s:file_type_mappings = expand("<sfile>:h:h") . '/resources/hg_command_file_types.vim'
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	923 if filereadable(s:file_type_mappings)
89 7fcb71064e85 More path escaping! Ludovic Chabant <ludovic@chabant.com> parents: 88 diff changeset	924 execute "source " . fnameescape(s:file_type_mappings)
46 6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	925 endif
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	926
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	927 function! s:CompleteHg(ArgLead, CmdLine, CursorPos)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	928 " Don't do anything if the usage file was not sourced.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	929 if !exists('g:lawrencium_hg_commands') \|\| !exists('g:lawrencium_hg_options')
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	930 return []
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	931 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	932
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	933 " a:ArgLead seems to be the number 0 when completing a minus '-'.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	934 " Gotta find out why...
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	935 let l:arglead = a:ArgLead
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	936 if type(a:ArgLead) == type(0)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	937 let l:arglead = '-'
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	938 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	939
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	940 " Try completing a global option, before any command name.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	941 if a:CmdLine =~# '\v^Hg(\s+\-[a-zA-Z0-9\-_]*)+$'
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	942 return filter(copy(g:lawrencium_hg_options), "v:val[0:strlen(l:arglead)-1] ==# l:arglead")
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	943 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	944
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	945 " Try completing a command (note that there could be global options before
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	946 " the command name).
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	947 if a:CmdLine =~# '\v^Hg\s+(\-[a-zA-Z0-9\-_]+\s+)*[a-zA-Z]+$'
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	948 return filter(keys(g:lawrencium_hg_commands), "v:val[0:strlen(l:arglead)-1] ==# l:arglead")
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	949 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	950
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	951 " Try completing a command's options.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	952 let l:cmd = matchstr(a:CmdLine, '\v(^Hg\s+(\-[a-zA-Z0-9\-_]+\s+)*)@<=[a-zA-Z]+')
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	953 if strlen(l:cmd) > 0 && l:arglead[0] ==# '-'
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	954 if has_key(g:lawrencium_hg_commands, l:cmd)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	955 " Return both command options and global options together.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	956 let l:copts = filter(copy(g:lawrencium_hg_commands[l:cmd]), "v:val[0:strlen(l:arglead)-1] ==# l:arglead")
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	957 let l:gopts = filter(copy(g:lawrencium_hg_options), "v:val[0:strlen(l:arglead)-1] ==# l:arglead")
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	958 return l:copts + l:gopts
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	959 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	960 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	961
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	962 " Just auto-complete with filenames unless it's an option.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	963 if l:arglead[0] ==# '-'
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	964 return []
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	965 else
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	966 return s:ListRepoFiles(a:ArgLead, a:CmdLine, a:CursorPos)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	967 endfunction
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	968
46 6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	969 function! s:GetHgCommandName(args) abort
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	970 for l:a in a:args
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	971 if stridx(l:a, '-') != 0
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	972 return l:a
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	973 endif
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	974 endfor
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	975 return ''
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	976 endfunction
6a4f5200d8da `:Hg!` command changes: Ludovic Chabant <ludovic@chabant.com> parents: 45 diff changeset	977
26 de588a4bca10 Fixed completely wrong code that somehow almost ran completely fine. Ludovic Chabant <ludovic@chabant.com> parents: 25 diff changeset	978 call s:AddMainCommand("-bang -complete=customlist,s:CompleteHg -nargs=* Hg :call s:Hg(<bang>0, <f-args>)")
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	979
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	980 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	981
4 b6e4446ed292 HgStatus now outputs to the location window. Ludovic Chabant <ludovic@chabant.com> parents: 0 diff changeset	982 " Hgstatus {{{
b6e4446ed292 HgStatus now outputs to the location window. Ludovic Chabant <ludovic@chabant.com> parents: 0 diff changeset	983
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	984 function! s:HgStatus() abort
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	985 " Get the repo and the Lawrencium path for `hg status`.
4 b6e4446ed292 HgStatus now outputs to the location window. Ludovic Chabant <ludovic@chabant.com> parents: 0 diff changeset	986 let l:repo = s:hg_repo()
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	987 let l:status_path = l:repo.GetLawrenciumPath('', 'status', '')
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	988
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	989 " Open the Lawrencium buffer in a new split window of the right size.
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	990 if g:lawrencium_status_win_split_above
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	991 execute "keepalt leftabove split " . fnameescape(l:status_path)
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	992 else
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	993 execute "keepalt rightbelow split " . fnameescape(l:status_path)
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	994 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	995
86 685dfc4b5862 Fix `Hgstatus` incorrectly saying nothing has changed. Ludovic Chabant <ludovic@chabant.com> parents: 84 diff changeset	996 if (line('$') == 1 && getline(1) == '')
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	997 " Buffer is empty, which means there are not changes...
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	998 " Quit and display a message.
64 e75ecde434d7 Display simple message when `Hgstatus` is empty. Ludovic Chabant <ludovic@chabant.com> parents: 63 diff changeset	999 " TODO: figure out why the first `echom` doesn't show when alone.
e75ecde434d7 Display simple message when `Hgstatus` is empty. Ludovic Chabant <ludovic@chabant.com> parents: 63 diff changeset	1000 bdelete
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	1001 echom "Nothing was modified."
64 e75ecde434d7 Display simple message when `Hgstatus` is empty. Ludovic Chabant <ludovic@chabant.com> parents: 63 diff changeset	1002 echom ""
e75ecde434d7 Display simple message when `Hgstatus` is empty. Ludovic Chabant <ludovic@chabant.com> parents: 63 diff changeset	1003 return
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	1004 endif
6 1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	1005
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1006 execute "setlocal winfixheight"
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1007 if !g:lawrencium_status_win_split_even
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1008 execute "setlocal winheight=" . (line('$') + 1)
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1009 execute "resize " . (line('$') + 1)
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1010 endif
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1011
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1012 " Add some nice commands.
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1013 command! -buffer Hgstatusedit :call s:HgStatus_FileEdit(0)
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	1014 command! -buffer Hgstatusdiff :call s:HgStatus_Diff(0)
02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	1015 command! -buffer Hgstatusvdiff :call s:HgStatus_Diff(1)
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1016 command! -buffer Hgstatustabdiff :call s:HgStatus_Diff(2)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1017 command! -buffer Hgstatusdiffsum :call s:HgStatus_DiffSummary(1)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1018 command! -buffer Hgstatusvdiffsum :call s:HgStatus_DiffSummary(2)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1019 command! -buffer Hgstatustabdiffsum :call s:HgStatus_DiffSummary(3)
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	1020 command! -buffer Hgstatusrefresh :call s:HgStatus_Refresh()
116 7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1021 command! -buffer -range -bang Hgstatusrevert :call s:HgStatus_Revert(<line1>, <line2>, <bang>0)
63 02a1be804fe8 Using Lawrencium buffers for `Hgstatus`. Ludovic Chabant <ludovic@chabant.com> parents: 62 diff changeset	1022 command! -buffer -range Hgstatusaddremove :call s:HgStatus_AddRemove(<line1>, <line2>)
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1023 command! -buffer -range=% -bang Hgstatuscommit :call s:HgStatus_Commit(<line1>, <line2>, <bang>0, 0)
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1024 command! -buffer -range=% -bang Hgstatusvcommit :call s:HgStatus_Commit(<line1>, <line2>, <bang>0, 1)
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1025 command! -buffer -range=% -nargs=+ Hgstatusqnew :call s:HgStatus_QNew(<line1>, <line2>, <f-args>)
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1026 command! -buffer -range=% Hgstatusqrefresh :call s:HgStatus_QRefresh(<line1>, <line2>)
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1027
6 1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	1028 " Add some handy mappings.
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1029 if g:lawrencium_define_mappings
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1030 nnoremap <buffer> <silent> <cr> :Hgstatusedit<cr>
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1031 nnoremap <buffer> <silent> <C-N> :call search('^[MARC\!\?I ]\s.', 'We')<cr>
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1032 nnoremap <buffer> <silent> <C-P> :call search('^[MARC\!\?I ]\s.', 'Wbe')<cr>
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1033 nnoremap <buffer> <silent> <C-D> :Hgstatustabdiff<cr>
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1034 nnoremap <buffer> <silent> <C-V> :Hgstatusvdiff<cr>
58 621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1035 nnoremap <buffer> <silent> <C-U> :Hgstatusdiffsum<cr>
621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1036 nnoremap <buffer> <silent> <C-H> :Hgstatusvdiffsum<cr>
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1037 nnoremap <buffer> <silent> <C-A> :Hgstatusaddremove<cr>
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1038 nnoremap <buffer> <silent> <C-S> :Hgstatuscommit<cr>
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1039 nnoremap <buffer> <silent> <C-R> :Hgstatusrefresh<cr>
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1040 nnoremap <buffer> <silent> q :bdelete!<cr>
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1041
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1042 vnoremap <buffer> <silent> <C-A> :Hgstatusaddremove<cr>
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1043 vnoremap <buffer> <silent> <C-S> :Hgstatuscommit<cr>
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1044 endif
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1045 endfunction
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1046
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1047 function! s:HgStatus_Refresh(...) abort
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1048 if a:0 > 0
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1049 let l:win_nr = bufwinnr(a:1)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1050 call s:trace("Switching back to status window ".l:win_nr)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1051 if l:win_nr < 0
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1052 call s:throw("Can't find the status window anymore!")
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1053 endif
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1054 execute l:win_nr . 'wincmd w'
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1055 " Delete everything in the buffer, and re-read the status into it.
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1056 " TODO: In theory I would only have to do `edit` like below when we're
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1057 " already in the window, but for some reason Vim just goes bonkers and
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1058 " weird shit happens. I have no idea why, hence the work-around here
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1059 " to bypass the whole `BufReadCmd` auto-command altogether, and just
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1060 " edit the buffer in place.
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1061 normal! ggVGd
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1062 call s:ReadLawrenciumFile(b:lawrencium_path)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1063 return
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1064 endif
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1065
75 066c8654e754 Reverted some automatic `Hgstatus` window refresh. Ludovic Chabant <ludovic@chabant.com> parents: 74 diff changeset	1066 " Just re-edit the buffer, it will reload the contents by calling
066c8654e754 Reverted some automatic `Hgstatus` window refresh. Ludovic Chabant <ludovic@chabant.com> parents: 74 diff changeset	1067 " the matching Mercurial command.
066c8654e754 Reverted some automatic `Hgstatus` window refresh. Ludovic Chabant <ludovic@chabant.com> parents: 74 diff changeset	1068 edit
6 1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	1069 endfunction
1da613c13d81 Better hg-status window. Ludovic Chabant <ludovic@chabant.com> parents: 5 diff changeset	1070
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1071 function! s:HgStatus_FileEdit(newtab) abort
9 82a49134a85c Added keyboard shortcuts to Hgstatus window. Ludovic Chabant <ludovic@chabant.com> parents: 8 diff changeset	1072 " Get the path of the file the cursor is on.
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1073 let l:filename = s:HgStatus_GetSelectedFile()
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1074
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1075 let l:cleanupbufnr = -1
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1076 if a:newtab == 0
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1077 " If the file is already open in a window, jump to that window.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1078 " Otherwise, jump to the previous window and open it there.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1079 for nr in range(1, winnr('$'))
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1080 let l:br = winbufnr(nr)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1081 let l:bpath = fnamemodify(bufname(l:br), ':p')
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1082 if l:bpath ==# l:filename
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1083 execute nr . 'wincmd w'
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1084 return
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1085 endif
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1086 endfor
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1087 wincmd p
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1088 else
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1089 " Just open a new tab so we can edit the file there.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1090 " We don't use `tabedit` because it messes up the current window
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1091 " if it happens to be the same file.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1092 " We'll just have to clean up the default empty buffer created.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1093 tabnew
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1094 let l:cleanupbufnr = bufnr('%')
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1095 endif
117 2e38e754c896 Correctly escape filename when opening a buffer from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 116 diff changeset	1096 execute 'edit ' . fnameescape(l:filename)
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1097 if l:cleanupbufnr >= 0
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1098 execute 'bdelete ' . l:cleanupbufnr
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1099 endif
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1100 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1101
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1102 function! s:HgStatus_AddRemove(linestart, lineend) abort
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1103 " Get the selected filenames.
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1104 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['!', '?'])
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1105 if len(l:filenames) == 0
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1106 call s:error("No files to add or remove in selection or current line.")
69 8c9aca0e4322 Added return statement after calling s:error lmytinsk parents: 68 diff changeset	1107 return
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1108 endif
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1109
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1110 " Run `addremove` on those paths.
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1111 let l:repo = s:hg_repo()
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1112 call l:repo.RunCommand('addremove', l:filenames)
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1113
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1114 " Refresh the status window.
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1115 call s:HgStatus_Refresh()
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1116 endfunction
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1117
116 7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1118 function! s:HgStatus_Revert(linestart, lineend, bang) abort
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1119 " Get the selected filenames.
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1120 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1121 if len(l:filenames) == 0
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1122 call s:error("No files to revert in selection or current line.")
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1123 return
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1124 endif
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1125
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1126 " Run `revert` on those paths.
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1127 " If the bang modifier is specified, revert with no backup.
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1128 let l:repo = s:hg_repo()
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1129 if a:bang
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1130 call insert(l:filenames, '-C', 0)
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1131 endif
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1132 call l:repo.RunCommand('revert', l:filenames)
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1133
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1134 " Refresh the status window.
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1135 call s:HgStatus_Refresh()
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1136 endfunction
7da11e029773 Revert files from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 114 diff changeset	1137
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1138 function! s:HgStatus_Commit(linestart, lineend, bang, vertical) abort
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1139 " Get the selected filenames.
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1140 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1141 if len(l:filenames) == 0
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1142 call s:error("No files to commit in selection or file.")
69 8c9aca0e4322 Added return statement after calling s:error lmytinsk parents: 68 diff changeset	1143 return
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1144 endif
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1145
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1146 " Run `Hgcommit` on those paths.
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1147 let l:buf_nr = bufnr('%')
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1148 let l:callback = 'call s:HgStatus_Refresh('.l:buf_nr.')'
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1149 call s:HgCommit(a:bang, a:vertical, l:callback, l:filenames)
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1150 endfunction
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1151
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1152 function! s:HgStatus_Diff(split) abort
25 0e952b7c79d7 Fixed a bug with opening a diff from `Hgstatus` Ludovic Chabant <ludovic@chabant.com> parents: 24 diff changeset	1153 " Open the file and run `Hgdiff` on it.
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1154 " We also need to translate the split mode for it... if we already
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1155 " opened the file in a new tab, `HgDiff` only needs to do a vertical
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1156 " split (i.e. split=1).
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1157 let l:newtab = 0
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1158 let l:hgdiffsplit = a:split
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1159 if a:split == 2
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1160 let l:newtab = 1
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1161 let l:hgdiffsplit = 1
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1162 endif
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1163 call s:HgStatus_FileEdit(l:newtab)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1164 call s:HgDiff('%:p', l:hgdiffsplit)
9 82a49134a85c Added keyboard shortcuts to Hgstatus window. Ludovic Chabant <ludovic@chabant.com> parents: 8 diff changeset	1165 endfunction
82a49134a85c Added keyboard shortcuts to Hgstatus window. Ludovic Chabant <ludovic@chabant.com> parents: 8 diff changeset	1166
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1167 function! s:HgStatus_DiffSummary(split) abort
58 621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1168 " Get the path of the file the cursor is on.
621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1169 let l:path = s:HgStatus_GetSelectedFile()
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1170 " Reuse the same diff summary window
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1171 let l:reuse_id = 'lawrencium_diffsum_for_' . bufnr('%')
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1172 let l:split_prev_win = (a:split < 3)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1173 let l:args = {'reuse_id': l:reuse_id, 'use_prev_win': l:split_prev_win,
113 8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1174 \'avoid_win': winnr(), 'split_mode': a:split}
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1175 call s:HgDiffSummary(l:path, l:args)
58 621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1176 endfunction
621185a5fa48 Added ability to show diff summaries from the status window. Ludovic Chabant <ludovic@chabant.com> parents: 57 diff changeset	1177
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1178 function! s:HgStatus_QNew(linestart, lineend, patchname, ...) abort
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1179 " Get the selected filenames.
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1180 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1181 if len(l:filenames) == 0
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1182 call s:error("No files in selection or file to create patch.")
69 8c9aca0e4322 Added return statement after calling s:error lmytinsk parents: 68 diff changeset	1183 return
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1184 endif
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1185
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1186 " Run `Hg qnew` on those paths.
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1187 let l:repo = s:hg_repo()
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1188 call insert(l:filenames, a:patchname, 0)
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1189 if a:0 > 0
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1190 call insert(l:filenames, '-m', 0)
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1191 let l:message = '"' . join(a:000, ' ') . '"'
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1192 call insert(l:filenames, l:message, 1)
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1193 endif
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1194 call l:repo.RunCommand('qnew', l:filenames)
72 a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1195
a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1196 " Refresh the status window.
a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1197 call s:HgStatus_Refresh()
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1198 endfunction
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1199
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1200 function! s:HgStatus_QRefresh(linestart, lineend) abort
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1201 " Get the selected filenames.
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1202 let l:filenames = s:HgStatus_GetSelectedFiles(a:linestart, a:lineend, ['M', 'A', 'R'])
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1203 if len(l:filenames) == 0
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1204 call s:error("No files in selection or file to refresh the patch.")
69 8c9aca0e4322 Added return statement after calling s:error lmytinsk parents: 68 diff changeset	1205 return
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1206 endif
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1207
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1208 " Run `Hg qrefresh` on those paths.
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1209 let l:repo = s:hg_repo()
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1210 call insert(l:filenames, '-s', 0)
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1211 call l:repo.RunCommand('qrefresh', l:filenames)
72 a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1212
a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1213 " Refresh the status window.
a987094d5ae6 Made the `Hgstatus` window refresh itself when needed. Ludovic Chabant <ludovic@chabant.com> parents: 71 diff changeset	1214 call s:HgStatus_Refresh()
40 a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1215 endfunction
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1216
a63ec818ab21 Added `qnew` and `qrefresh` commands to the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 37 diff changeset	1217
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1218 function! s:HgStatus_GetSelectedFile() abort
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1219 let l:filenames = s:HgStatus_GetSelectedFiles()
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1220 return l:filenames[0]
9 82a49134a85c Added keyboard shortcuts to Hgstatus window. Ludovic Chabant <ludovic@chabant.com> parents: 8 diff changeset	1221 endfunction
82a49134a85c Added keyboard shortcuts to Hgstatus window. Ludovic Chabant <ludovic@chabant.com> parents: 8 diff changeset	1222
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1223 function! s:HgStatus_GetSelectedFiles(...) abort
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1224 if a:0 >= 2
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1225 let l:lines = getline(a:1, a:2)
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1226 else
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1227 let l:lines = []
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1228 call add(l:lines, getline('.'))
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1229 endif
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1230 let l:filenames = []
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1231 let l:repo = s:hg_repo()
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1232 for line in l:lines
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1233 if a:0 >= 3
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1234 let l:status = s:HgStatus_GetFileStatus(line)
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1235 if index(a:3, l:status) < 0
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1236 continue
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1237 endif
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1238 endif
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1239 " Yay, awesome, Vim's regex syntax is fucked up like shit, especially for
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1240 " look-aheads and look-behinds. See for yourself:
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1241 let l:filename = matchstr(l:line, '\v(^[MARC\!\?I ]\s)@<=.*')
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1242 let l:filename = l:repo.GetFullPath(l:filename)
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1243 call add(l:filenames, l:filename)
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1244 endfor
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1245 return l:filenames
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1246 endfunction
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1247
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1248 function! s:HgStatus_GetFileStatus(...) abort
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1249 let l:line = a:0 ? a:1 : getline('.')
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1250 return matchstr(l:line, '\v^[MARC\!\?I ]')
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1251 endfunction
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1252
26 de588a4bca10 Fixed completely wrong code that somehow almost ran completely fine. Ludovic Chabant <ludovic@chabant.com> parents: 25 diff changeset	1253 call s:AddMainCommand("Hgstatus :call s:HgStatus()")
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1254
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1255 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1256
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1257 " Hgcd, Hglcd {{{
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1258
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1259 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoDirs Hgcd :cd<bang> `=s:hg_repo().GetFullPath(<q-args>)`")
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1260 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoDirs Hglcd :lcd<bang> `=s:hg_repo().GetFullPath(<q-args>)`")
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1261
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1262 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1263
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1264 " Hgedit {{{
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1265
27 09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1266 function! s:HgEdit(bang, filename) abort
09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1267 let l:full_path = s:hg_repo().GetFullPath(a:filename)
09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1268 if a:bang
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1269 execute "edit! " . fnameescape(l:full_path)
27 09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1270 else
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1271 execute "edit " . fnameescape(l:full_path)
27 09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1272 endif
09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1273 endfunction
09115be355e2 Fixed a bug with running `Hgedit` on a directory with a trailing backslash. Ludovic Chabant <ludovic@chabant.com> parents: 26 diff changeset	1274
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1275 call s:AddMainCommand("-bang -nargs=1 -complete=customlist,s:ListRepoFiles Hgedit :call s:HgEdit(<bang>0, <f-args>)")
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1276
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1277 " }}}
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1278
70 16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1279 " Hgvimgrep {{{
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1280
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1281 function! s:HgVimGrep(bang, pattern, ...) abort
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1282 let l:repo = s:hg_repo()
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1283 let l:file_paths = []
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1284 if a:0 > 0
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1285 for ff in a:000
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1286 let l:full_ff = l:repo.GetFullPath(ff)
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1287 call add(l:file_paths, l:full_ff)
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1288 endfor
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1289 else
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1290 call add(l:file_paths, l:repo.root_dir . "**")
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1291 endif
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1292 if a:bang
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1293 execute "vimgrep! " . a:pattern . " " . join(l:file_paths, " ")
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1294 else
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1295 execute "vimgrep " . a:pattern . " " . join(l:file_paths, " ")
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1296 endif
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1297 endfunction
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1298
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1299 call s:AddMainCommand("-bang -nargs=+ -complete=customlist,s:ListRepoFiles Hgvimgrep :call s:HgVimGrep(<bang>0, <f-args>)")
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1300
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1301 " }}}
16e873b2a4a8 Added `Hgvimgrep` command. Ludovic Chabant <ludovic@chabant.com> parents: 69 diff changeset	1302
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1303 " Hgdiff, Hgvdiff, Hgtabdiff {{{
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1304
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1305 function! s:HgDiff(filename, split, ...) abort
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1306 " Default revisions to diff: the working directory (null string)
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1307 " and the parent of the working directory (using Mercurial's revsets syntax).
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1308 " Otherwise, use the 1 or 2 revisions specified as extra parameters.
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1309 let l:rev1 = 'p1()'
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1310 let l:rev2 = ''
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1311 if a:0 == 1
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1312 if type(a:1) == type([])
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1313 if len(a:1) >= 2
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1314 let l:rev1 = a:1[0]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1315 let l:rev2 = a:1[1]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1316 elseif len(a:1) == 1
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1317 let l:rev1 = a:1[0]
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1318 endif
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1319 else
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1320 let l:rev1 = a:1
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1321 endif
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1322 elseif a:0 == 2
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1323 let l:rev1 = a:1
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1324 let l:rev2 = a:2
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1325 endif
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1326
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1327 " Get the current repo, and expand the given filename in case it contains
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1328 " fancy filename modifiers.
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1329 let l:repo = s:hg_repo()
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1330 let l:path = expand(a:filename)
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1331 let l:diff_id = localtime()
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1332 call s:trace("Diff'ing '".l:rev1."' and '".l:rev2."' on file: ".l:path)
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1333
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1334 " Get the first file and open it.
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1335 let l:cleanupbufnr = -1
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1336 if l:rev1 == ''
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1337 if a:split == 2
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1338 " Don't use `tabedit` here because if `l:path` is the same as
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1339 " the current path, it will also reload the buffer in the current
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1340 " tab/window for some reason, which causes all state to be lost
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1341 " (all folds get collapsed again, cursor is moved to start, etc.)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1342 tabnew
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1343 let l:cleanupbufnr = bufnr('%')
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1344 execute 'edit ' . fnameescape(l:path)
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1345 else
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1346 if bufexists(l:path)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1347 execute 'buffer ' . fnameescape(l:path)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1348 else
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1349 execute 'edit ' . fnameescape(l:path)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1350 endif
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1351 endif
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	1352 " Make it part of the diff group.
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1353 call s:HgDiff_DiffThis(l:diff_id)
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1354 else
52 cd0b1cea326c Use Lawrencium files for displaying revisions in an `Hgdiff`. Ludovic Chabant <ludovic@chabant.com> parents: 51 diff changeset	1355 let l:rev_path = l:repo.GetLawrenciumPath(l:path, 'rev', l:rev1)
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1356 if a:split == 2
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1357 " See comments above about avoiding `tabedit`.
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1358 tabnew
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1359 let l:cleanupbufnr = bufnr('%')
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1360 endif
52 cd0b1cea326c Use Lawrencium files for displaying revisions in an `Hgdiff`. Ludovic Chabant <ludovic@chabant.com> parents: 51 diff changeset	1361 execute 'edit ' . fnameescape(l:rev_path)
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	1362 " Make it part of the diff group.
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1363 call s:HgDiff_DiffThis(l:diff_id)
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1364 endif
93 bc5a8dff3fa0 Another attempt to fix weird issues with cleaning up diff buffers. Ludovic Chabant <ludovic@chabant.com> parents: 92 diff changeset	1365 if l:cleanupbufnr >= 0 && bufloaded(l:cleanupbufnr)
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1366 execute 'bdelete ' . l:cleanupbufnr
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1367 endif
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1368
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1369 " Get the second file and open it too.
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1370 " Don't use `diffsplit` because it will set `&diff` before we get a chance
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1371 " to save a bunch of local settings that we will want to restore later.
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1372 let l:diffsplit = 'split'
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1373 if a:split >= 1
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1374 let l:diffsplit = 'vsplit'
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1375 endif
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1376 if l:rev2 == ''
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1377 execute l:diffsplit . ' ' . fnameescape(l:path)
1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1378 else
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1379 let l:rev_path = l:repo.GetLawrenciumPath(l:path, 'rev', l:rev2)
52 cd0b1cea326c Use Lawrencium files for displaying revisions in an `Hgdiff`. Ludovic Chabant <ludovic@chabant.com> parents: 51 diff changeset	1380 execute l:diffsplit . ' ' . fnameescape(l:rev_path)
8 1e155bfa94ad Added 'Hg!' and 'Hgdiff/Hgvdiff'. Ludovic Chabant <ludovic@chabant.com> parents: 7 diff changeset	1381 endif
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1382 call s:HgDiff_DiffThis(l:diff_id)
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1383 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1384
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1385 function! s:HgDiff_DiffThis(diff_id) abort
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1386 " Store some commands to run when we exit diff mode.
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1387 " It's needed because `diffoff` reverts those settings to their default
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1388 " values, instead of their previous ones.
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1389 if &diff
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1390 call s:throw("Calling diffthis too late on a buffer!")
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1391 return
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1392 endif
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1393 call s:trace('Enabling diff mode on ' . bufname('%'))
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1394 let w:lawrencium_diffoff = {}
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1395 let w:lawrencium_diffoff['&diff'] = 0
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1396 let w:lawrencium_diffoff['&wrap'] = &l:wrap
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1397 let w:lawrencium_diffoff['&scrollopt'] = &l:scrollopt
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1398 let w:lawrencium_diffoff['&scrollbind'] = &l:scrollbind
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1399 let w:lawrencium_diffoff['&cursorbind'] = &l:cursorbind
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1400 let w:lawrencium_diffoff['&foldmethod'] = &l:foldmethod
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1401 let w:lawrencium_diffoff['&foldcolumn'] = &l:foldcolumn
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1402 let w:lawrencium_diff_id = a:diff_id
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1403 diffthis
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1404 autocmd BufWinLeave <buffer> call s:HgDiff_CleanUp()
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1405 endfunction
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1406
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1407 function! s:HgDiff_DiffOff(...) abort
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1408 " Get the window name (given as a paramter, or current window).
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1409 let l:nr = a:0 ? a:1 : winnr()
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1410
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1411 " Run the commands we saved in `HgDiff_DiffThis`, or just run `diffoff`.
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1412 let l:backup = getwinvar(l:nr, 'lawrencium_diffoff')
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1413 if type(l:backup) == type({}) && len(l:backup) > 0
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1414 call s:trace('Disabling diff mode on ' . l:nr)
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1415 for key in keys(l:backup)
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1416 call setwinvar(l:nr, key, l:backup[key])
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1417 endfor
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1418 call setwinvar(l:nr, 'lawrencium_diffoff', {})
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1419 else
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1420 call s:trace('Disabling diff mode on ' . l:nr . ' (but no true restore)')
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1421 diffoff
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1422 endif
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1423 endfunction
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1424
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1425 function! s:HgDiff_GetDiffWindows(diff_id) abort
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1426 let l:result = []
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1427 for nr in range(1, winnr('$'))
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1428 if getwinvar(nr, '&diff') && getwinvar(nr, 'lawrencium_diff_id') == a:diff_id
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1429 call add(l:result, nr)
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1430 endif
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1431 endfor
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1432 return l:result
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1433 endfunction
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1434
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1435 function! s:HgDiff_CleanUp() abort
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1436 " If we're not leaving one of our diff window, do nothing.
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1437 if !&diff \|\| !exists('w:lawrencium_diff_id')
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1438 return
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1439 endif
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1440
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1441 " If there will be only one diff window left (plus the one we're leaving),
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1442 " turn off diff in it and restore its local settings.
6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1443 let l:nrs = s:HgDiff_GetDiffWindows(w:lawrencium_diff_id)
23 84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1444 if len(l:nrs) <= 2
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1445 call s:trace('Disabling diff mode in ' . len(l:nrs) . ' windows.')
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1446 for nr in l:nrs
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1447 if getwinvar(nr, '&diff')
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1448 call s:HgDiff_DiffOff(nr)
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1449 endif
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1450 endfor
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1451 else
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1452 call s:trace('Still ' . len(l:nrs) . ' diff windows open.')
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1453 endif
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1454 endfunction
84bceffbb19c Restore window settings when a diff window is closed. Ludovic Chabant <ludovic@chabant.com> parents: 21 diff changeset	1455
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1456 call s:AddMainCommand("-nargs=* Hgdiff :call s:HgDiff('%:p', 0, <f-args>)")
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1457 call s:AddMainCommand("-nargs=* Hgvdiff :call s:HgDiff('%:p', 1, <f-args>)")
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1458 call s:AddMainCommand("-nargs=* Hgtabdiff :call s:HgDiff('%:p', 2, <f-args>)")
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1459
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1460 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1461
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1462 " Hgdiffsum, Hgdiffsumsplit, Hgvdiffsumsplit, Hgtabdiffsum {{{
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1463
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1464 function! s:HgDiffSummary(filename, present_args, ...) abort
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1465 " Default revisions to diff: the working directory (null string)
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1466 " and the parent of the working directory (using Mercurial's revsets syntax).
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1467 " Otherwise, use the 1 or 2 revisions specified as extra parameters.
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1468 let l:revs = ''
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1469 if a:0 == 1
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1470 if type(a:1) == type([])
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1471 if len(a:1) >= 2
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1472 let l:revs = a:1[0] . ',' . a:1[1]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1473 elseif len(a:1) == 1
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1474 let l:revs = a:1[0]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1475 endif
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1476 else
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1477 let l:revs = a:1
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1478 endif
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1479 elseif a:0 >= 2
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1480 let l:revs = a:1 . ',' . a:2
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1481 endif
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1482
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1483 " Get the current repo, and expand the given filename in case it contains
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1484 " fancy filename modifiers.
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1485 let l:repo = s:hg_repo()
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1486 let l:path = expand(a:filename)
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1487 call s:trace("Diff'ing revisions: '".l:revs."' on file: ".l:path)
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1488 let l:special = l:repo.GetLawrenciumPath(l:path, 'diff', l:revs)
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1489
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1490 " Build the correct edit command, and switch to the correct window, based
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1491 " on the presentation arguments we got.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1492 if type(a:present_args) == type(0)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1493 " Just got a split mode.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1494 let l:valid_args = {'split_mode': a:present_args}
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1495 else
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1496 " Got complex args.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1497 let l:valid_args = a:present_args
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1498 endif
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1499
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1500 " First, see if we should reuse an existing window based on some buffer
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1501 " variable.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1502 let l:target_winnr = -1
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1503 let l:split = get(l:valid_args, 'split_mode', 0)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1504 let l:reuse_id = get(l:valid_args, 'reuse_id', '')
113 8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1505 let l:avoid_id = get(l:valid_args, 'avoid_win', -1)
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1506 if l:reuse_id != ''
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1507 let l:target_winnr = s:find_buffer_window(l:reuse_id, 1)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1508 if l:target_winnr > 0 && l:split != 3
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1509 " Unless we'll be opening in a new tab, don't split anymore, since
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1510 " we found the exact window we wanted.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1511 let l:split = 0
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1512 endif
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1513 call s:trace("Looking for window with '".l:reuse_id."', found: ".l:target_winnr)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1514 endif
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1515 " If we didn't find anything, see if we should use the current or previous
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1516 " window.
113 8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1517 if l:target_winnr <= 0
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1518 let l:use_prev_win = get(l:valid_args, 'use_prev_win', 0)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1519 if l:use_prev_win
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1520 let l:target_winnr = winnr('#')
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1521 call s:trace("Will use previous window: ".l:target_winnr)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1522 endif
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1523 endif
113 8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1524 " And let's see if we have a window we should actually avoid.
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1525 if l:avoid_id >= 0 &&
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1526 \(l:target_winnr == l:avoid_id \|\|
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1527 \(l:target_winnr <= 0 && winnr() == l:avoid_id))
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1528 for wnr in range(1, winnr('$'))
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1529 if wnr != l:avoid_id
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1530 call s:trace("Avoiding using window ".l:avoid_id.
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1531 \", now using: ".wnr)
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1532 let l:target_winnr = wnr
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1533 break
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1534 endif
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1535 endfor
8718e6dbea1e Fix a bug with `:Hgstatus` showing diff summaries in its own window. Ludovic Chabant <ludovic@chabant.com> parents: 112 diff changeset	1536 endif
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1537 " Now let's see what kind of split we want to use, if any.
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1538 let l:cmd = 'edit '
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1539 if l:split == 1
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1540 let l:cmd = 'rightbelow split '
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1541 elseif l:split == 2
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1542 let l:cmd = 'rightbelow vsplit '
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1543 elseif l:split == 3
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1544 let l:cmd = 'tabedit '
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1545 endif
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1546
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1547 " All good now, proceed.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1548 if l:target_winnr > 0
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1549 execute l:target_winnr . "wincmd w"
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1550 endif
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1551 execute 'keepalt ' . l:cmd . fnameescape(l:special)
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1552
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1553 " Set the reuse ID if we had one.
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1554 if l:reuse_id != ''
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1555 call s:trace("Setting reuse ID '".l:reuse_id."' on buffer: ".bufnr('%'))
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1556 call setbufvar('%', l:reuse_id, 1)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1557 endif
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1558 endfunction
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1559
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1560 call s:AddMainCommand("-nargs=* Hgdiffsum :call s:HgDiffSummary('%:p', 0, <f-args>)")
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1561 call s:AddMainCommand("-nargs=* Hgdiffsumsplit :call s:HgDiffSummary('%:p', 1, <f-args>)")
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1562 call s:AddMainCommand("-nargs=* Hgvdiffsumsplit :call s:HgDiffSummary('%:p', 2, <f-args>)")
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1563 call s:AddMainCommand("-nargs=* Hgtabdiffsum :call s:HgDiffSummary('%:p', 3, <f-args>)")
51 671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1564
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1565 " }}}
671f5e18b515 Added "diff summary" commands to use `hg diff` instead of Vim's diff. Ludovic Chabant <ludovic@chabant.com> parents: 49 diff changeset	1566
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1567 " Hgcommit {{{
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1568
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1569 function! s:HgCommit(bang, vertical, callback, ...) abort
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1570 " Get the repo we'll be committing into.
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1571 let l:repo = s:hg_repo()
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1572
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1573 " Get the list of files to commit.
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1574 " It can either be several files passed as extra parameters, or an
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1575 " actual list passed as the first extra parameter.
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1576 let l:filenames = []
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1577 if a:0
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1578 let l:filenames = a:000
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1579 if a:0 == 1 && type(a:1) == type([])
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1580 let l:filenames = a:1
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1581 endif
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1582 endif
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1583
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1584 " Open a commit message file.
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1585 let l:commit_path = s:tempname('hg-editor-', '.txt')
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1586 let l:split = a:vertical ? 'vsplit' : 'split'
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1587 execute l:split . ' ' . l:commit_path
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1588 call append(0, ['', ''])
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1589 call append(2, split(s:HgCommit_GenerateMessage(l:repo, l:filenames), '\n'))
28 0cdfdab43907 `Hgcommit` now puts the cursor at the beginning of the commit message. Ludovic Chabant <ludovic@chabant.com> parents: 27 diff changeset	1590 call cursor(1, 1)
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1591
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1592 " Setup the auto-command that will actually commit on write/exit,
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1593 " and make the buffer delete itself on exit.
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1594 let b:mercurial_dir = l:repo.root_dir
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1595 let b:lawrencium_commit_files = l:filenames
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1596 if type(a:callback) == type([])
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1597 let b:lawrencium_commit_pre_callback = a:callback[0]
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1598 let b:lawrencium_commit_post_callback = a:callback[1]
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1599 let b:lawrencium_commit_abort_callback = a:callback[2]
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1600 else
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1601 let b:lawrencium_commit_pre_callback = 0
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1602 let b:lawrencium_commit_post_callback = a:callback
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1603 let b:lawrencium_commit_abort_callback = 0
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1604 endif
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1605 setlocal bufhidden=delete
53 b7caa6693c39 `Hglog` window improvements: Ludovic Chabant <ludovic@chabant.com> parents: 52 diff changeset	1606 setlocal filetype=hgcommit
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1607 if a:bang
15 f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1608 autocmd BufDelete <buffer> call s:HgCommit_Execute(expand('<afile>:p'), 0)
f02e37f395ae Added ability to add files from the `hg status` window. Ludovic Chabant <ludovic@chabant.com> parents: 14 diff changeset	1609 else
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1610 autocmd BufDelete <buffer> call s:HgCommit_Execute(expand('<afile>:p'), 1)
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1611 endif
31 3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1612 " Make commands available.
3a0f7bb6ea64 Hgstatus window improvements and bug fixes: Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	1613 call s:DefineMainCommands()
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1614 endfunction
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1615
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1616 let s:hg_status_messages = {
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1617 \'M': 'modified',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1618 \'A': 'added',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1619 \'R': 'removed',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1620 \'C': 'clean',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1621 \'!': 'missing',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1622 \'?': 'not tracked',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1623 \'I': 'ignored',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1624 \' ': '',
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1625 \}
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1626
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1627 function! s:HgCommit_GenerateMessage(repo, filenames) abort
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1628 let l:msg = "HG: Enter commit message. Lines beginning with 'HG:' are removed.\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1629 let l:msg .= "HG: Leave message empty to abort commit.\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1630 let l:msg .= "HG: Write and quit buffer to proceed.\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1631 let l:msg .= "HG: --\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1632 let l:msg .= "HG: user: " . split(a:repo.RunCommand('showconfig ui.username'), '\n')[0] . "\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1633 let l:msg .= "HG: branch '" . split(a:repo.RunCommand('branch'), '\n')[0] . "'\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1634
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1635 execute 'lcd ' . fnameescape(a:repo.root_dir)
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1636 if len(a:filenames)
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1637 let l:status_lines = split(a:repo.RunCommand('status', a:filenames), "\n")
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1638 else
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1639 let l:status_lines = split(a:repo.RunCommand('status'), "\n")
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1640 endif
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1641 for l:line in l:status_lines
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1642 if l:line ==# ''
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1643 continue
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1644 endif
11 b4baab0a4a92 Made most regex use the 'very-magic' syntax. Ludovic Chabant <ludovic@chabant.com> parents: 10 diff changeset	1645 let l:type = matchstr(l:line, '\v^[MARC\!\?I ]')
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1646 let l:path = l:line[2:]
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1647 let l:msg .= "HG: " . s:hg_status_messages[l:type] . ' ' . l:path . "\n"
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1648 endfor
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1649
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1650 return l:msg
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1651 endfunction
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1652
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1653 function! s:HgCommit_Execute(log_file, show_output) abort
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1654 " Check if the user actually saved a commit message.
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1655 if !filereadable(a:log_file)
18 4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	1656 call s:error("abort: Commit message not saved")
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1657 if exists('b:lawrencium_commit_abort_callback') &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1658 \type(b:lawrencium_commit_abort_callback) == type("") &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1659 \b:lawrencium_commit_abort_callback != ''
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1660 call s:trace("Executing abort callback: ".b:lawrencium_commit_abort_callback)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1661 execute b:lawrencium_commit_abort_callback
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1662 endif
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1663 return
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1664 endif
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1665
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1666 " Execute a pre-callback if there is one.
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1667 if exists('b:lawrencium_commit_pre_callback') &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1668 \type(b:lawrencium_commit_pre_callback) == type("") &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1669 \b:lawrencium_commit_pre_callback != ''
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1670 call s:trace("Executing pre callback: ".b:lawrencium_commit_pre_callback)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1671 execute b:lawrencium_commit_pre_callback
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1672 endif
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1673
12 a7bf37a97a1b Clean the 'HG:' lines from the commit message (apparently 'hg commit' doesn't do it with -o). Ludovic Chabant <ludovic@chabant.com> parents: 11 diff changeset	1674 call s:trace("Committing with log file: " . a:log_file)
a7bf37a97a1b Clean the 'HG:' lines from the commit message (apparently 'hg commit' doesn't do it with -o). Ludovic Chabant <ludovic@chabant.com> parents: 11 diff changeset	1675
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	1676 " Clean all the 'HG: ' lines.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	1677 let l:is_valid = s:clean_commit_file(a:log_file)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	1678 if !l:is_valid
18 4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	1679 call s:error("abort: Empty commit message")
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	1680 return
4f04d5e052eb Abort commit if the commit message is empty. Ludovic Chabant <ludovic@chabant.com> parents: 17 diff changeset	1681 endif
12 a7bf37a97a1b Clean the 'HG:' lines from the commit message (apparently 'hg commit' doesn't do it with -o). Ludovic Chabant <ludovic@chabant.com> parents: 11 diff changeset	1682
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1683 " Get the repo and commit with the given message.
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1684 let l:repo = s:hg_repo()
33 a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1685 let l:hg_args = ['-l', a:log_file]
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1686 call extend(l:hg_args, b:lawrencium_commit_files)
a5b2f8e4fb6c Changes to the `Hgstatus` window: Ludovic Chabant <ludovic@chabant.com> parents: 32 diff changeset	1687 let l:output = l:repo.RunCommand('commit', l:hg_args)
16 724f6db3baa2 Don't show `hg commit` output if there's nothing to show. Ludovic Chabant <ludovic@chabant.com> parents: 15 diff changeset	1688 if a:show_output && l:output !~# '\v%^\s*%$'
724f6db3baa2 Don't show `hg commit` output if there's nothing to show. Ludovic Chabant <ludovic@chabant.com> parents: 15 diff changeset	1689 call s:trace("Output from hg commit:", 1)
17 5c6c605d0660 Better output for `hg commit`. Ludovic Chabant <ludovic@chabant.com> parents: 16 diff changeset	1690 for l:output_line in split(l:output, '\n')
5c6c605d0660 Better output for `hg commit`. Ludovic Chabant <ludovic@chabant.com> parents: 16 diff changeset	1691 echom l:output_line
5c6c605d0660 Better output for `hg commit`. Ludovic Chabant <ludovic@chabant.com> parents: 16 diff changeset	1692 endfor
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1693 endif
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1694
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1695 " Execute a post-callback if there is one.
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1696 if exists('b:lawrencium_commit_post_callback') &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1697 \type(b:lawrencium_commit_post_callback) == type("") &&
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1698 \b:lawrencium_commit_post_callback != ''
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1699 call s:trace("Executing post callback: ".b:lawrencium_commit_post_callback)
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1700 execute b:lawrencium_commit_post_callback
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1701 endif
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1702 endfunction
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1703
106 77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1704 call s:AddMainCommand("-bang -nargs=* -complete=customlist,s:ListRepoFiles Hgcommit :call s:HgCommit(<bang>0, 0, 0, <f-args>)")
77f77b2c2738 Callback system for `Hgcommit` so we can refresh the `Hgstatus` window. Ludovic Chabant <ludovic@chabant.com> parents: 105 diff changeset	1705 call s:AddMainCommand("-bang -nargs=* -complete=customlist,s:ListRepoFiles Hgvcommit :call s:HgCommit(<bang>0, 1, 0, <f-args>)")
10 7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1706
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1707 " }}}
7d16084d40a9 Added 'Hgcommit' command (and this very change is committed with it!). Ludovic Chabant <ludovic@chabant.com> parents: 9 diff changeset	1708
37 9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1709 " Hgrevert {{{
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1710
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1711 function! s:HgRevert(bang, ...) abort
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1712 " Get the files to revert.
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1713 let l:filenames = a:000
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1714 if a:0 == 0
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1715 let l:filenames = [ expand('%:p') ]
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1716 endif
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1717 if a:bang
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1718 call insert(l:filenames, '--no-backup', 0)
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1719 endif
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1720
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1721 " Get the repo and run the command.
37 9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1722 let l:repo = s:hg_repo()
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1723 call l:repo.RunCommand('revert', l:filenames)
82 31801dcca77d Re-edit a reverted file to see the change. Ludovic Chabant <ludovic@chabant.com> parents: 81 diff changeset	1724
31801dcca77d Re-edit a reverted file to see the change. Ludovic Chabant <ludovic@chabant.com> parents: 81 diff changeset	1725 " Re-edit the file to see the change.
31801dcca77d Re-edit a reverted file to see the change. Ludovic Chabant <ludovic@chabant.com> parents: 81 diff changeset	1726 edit
37 9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1727 endfunction
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1728
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1729 call s:AddMainCommand("-bang -nargs=* -complete=customlist,s:ListRepoFiles Hgrevert :call s:HgRevert(<bang>0, <f-args>)")
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1730
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1731 " }}}
9361f6b9e5a4 Added `Hgrevert` command. Ludovic Chabant <ludovic@chabant.com> parents: 33 diff changeset	1732
119 4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1733 " Hgremove {{{
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1734
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1735 function! s:HgRemove(bang, ...) abort
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1736 " Get the files to remove.
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1737 let l:filenames = a:000
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1738 if a:0 == 0
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1739 let l:filenames = [ expand('%:p') ]
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1740 endif
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1741 if a:bang
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1742 call insert(l:filenames, '--force', 0)
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1743 endif
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1744
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1745 " Get the repo and run the command.
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1746 let l:repo = s:hg_repo()
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1747 call l:repo.RunCommand('rm', l:filenames)
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1748
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1749 " Re-edit the file to see the change.
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1750 edit
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1751 endfunction
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1752
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1753 call s:AddMainCommand("-bang -nargs=* -complete=customlist,s:ListRepoFiles Hgremove :call s:HgRemove(<bang>0, <f-args>)")
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1754
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1755 " }}}
4ca40abecc2a Add `:Hgremove` command. Ludovic Chabant <ludovic@chabant.com> parents: 117 diff changeset	1756
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1757 " Hglog, Hglogthis {{{
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1758
68 7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1759 function! s:HgLog(vertical, ...) abort
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1760 " Get the file or directory to get the log from.
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1761 " (empty string is for the whole repository)
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1762 let l:repo = s:hg_repo()
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1763 if a:0 > 0 && matchstr(a:1, '\v-*') == ""
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1764 let l:path = l:repo.GetRelativePath(expand(a:1))
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1765 else
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	1766 let l:path = ''
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1767 endif
6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1768
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1769 " Get the Lawrencium path for this `hg log`,
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1770 " open it in a preview window and jump to it.
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1771 if a:0 > 0 && l:path != ""
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1772 let l:log_opts = join(a:000[1:-1], ',')
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1773 else
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1774 let l:log_opts = join(a:000, ',')
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1775 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1776
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1777 let l:log_path = l:repo.GetLawrenciumPath(l:path, 'log', l:log_opts)
68 7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1778 if a:vertical
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1779 execute 'vertical pedit ' . fnameescape(l:log_path)
68 7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1780 else
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1781 execute 'pedit ' . fnameescape(l:log_path)
68 7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1782 endif
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	1783 wincmd P
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1784
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1785 " Add some other nice commands and mappings.
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1786 let l:is_file = (l:path != '' && filereadable(l:repo.GetFullPath(l:path)))
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1787 command! -buffer -nargs=* Hglogdiffsum :call s:HgLog_DiffSummary(1, <f-args>)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1788 command! -buffer -nargs=* Hglogvdiffsum :call s:HgLog_DiffSummary(2, <f-args>)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1789 command! -buffer -nargs=* Hglogtabdiffsum :call s:HgLog_DiffSummary(3, <f-args>)
92 e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1790 command! -buffer -nargs=+ -complete=file Hglogexport :call s:HgLog_ExportPatch(<f-args>)
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1791 if l:is_file
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1792 command! -buffer Hglogrevedit :call s:HgLog_FileRevEdit()
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1793 command! -buffer -nargs=* Hglogdiff :call s:HgLog_Diff(0, <f-args>)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1794 command! -buffer -nargs=* Hglogvdiff :call s:HgLog_Diff(1, <f-args>)
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1795 command! -buffer -nargs=* Hglogtabdiff :call s:HgLog_Diff(2, <f-args>)
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1796 endif
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1797
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1798 if g:lawrencium_define_mappings
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1799 nnoremap <buffer> <silent> <C-U> :Hglogdiffsum<cr>
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1800 nnoremap <buffer> <silent> <C-H> :Hglogvdiffsum<cr>
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1801 nnoremap <buffer> <silent> <cr> :Hglogvdiffsum<cr>
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1802 nnoremap <buffer> <silent> q :bdelete!<cr>
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1803 if l:is_file
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1804 nnoremap <buffer> <silent> <C-E> :Hglogrevedit<cr>
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1805 nnoremap <buffer> <silent> <C-D> :Hglogtabdiff<cr>
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1806 nnoremap <buffer> <silent> <C-V> :Hglogvdiff<cr>
55 6a61724190ea Improvements to Lawrencium paths: Ludovic Chabant <ludovic@chabant.com> parents: 53 diff changeset	1807 endif
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1808 endif
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1809
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1810 " Clean up when the log buffer is deleted.
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1811 let l:bufobj = s:buffer_obj()
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	1812 call l:bufobj.OnDelete('call s:HgLog_Delete(' . l:bufobj.nr . ')')
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1813 endfunction
85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1814
65 e8f252a7ed9e Made the `Hglog` window use Lawrencium buffers: Ludovic Chabant <ludovic@chabant.com> parents: 64 diff changeset	1815 function! s:HgLog_Delete(bufnr)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1816 if g:lawrencium_auto_close_buffers
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1817 call s:delete_dependency_buffers('lawrencium_diff_for', a:bufnr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1818 call s:delete_dependency_buffers('lawrencium_rev_for', a:bufnr)
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1819 endif
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1820 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1821
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1822 function! s:HgLog_FileRevEdit()
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1823 let l:repo = s:hg_repo()
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1824 let l:bufobj = s:buffer_obj()
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1825 let l:rev = s:HgLog_GetSelectedRev()
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1826 let l:log_path = s:parse_lawrencium_path(l:bufobj.GetName())
75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1827 let l:path = l:repo.GetLawrenciumPath(l:log_path['path'], 'rev', l:rev)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1828
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1829 " Go to the window we were in before going in the log window,
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1830 " and open the revision there.
48 85e39bdd7089 Lots of changes that should have gone in other commits (ugh): Ludovic Chabant <ludovic@chabant.com> parents: 46 47 diff changeset	1831 wincmd p
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1832 call s:edit_deletable_buffer('lawrencium_rev_for', l:bufobj.nr, l:path)
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1833 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1834
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1835 function! s:HgLog_Diff(split, ...) abort
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1836 let l:revs = []
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1837 if a:0 >= 2
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1838 let l:revs = [a:1, a:2]
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1839 elseif a:0 == 1
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1840 let l:revs = ['p1('.a:1.')', a:1]
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1841 else
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1842 let l:sel = s:HgLog_GetSelectedRev()
107 6846e12f8ec8 Improvements for the `Hgdiff` family of commands Ludovic Chabant <ludovic@chabant.com> parents: 106 diff changeset	1843 let l:revs = ['p1('.l:sel.')', l:sel]
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1844 endif
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1845
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1846 let l:repo = s:hg_repo()
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1847 let l:bufobj = s:buffer_obj()
66 75e9d909758a `Hglog` changes: Ludovic Chabant <ludovic@chabant.com> parents: 65 diff changeset	1848 let l:log_path = s:parse_lawrencium_path(l:bufobj.GetName())
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1849 let l:path = l:repo.GetFullPath(l:log_path['path'])
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1850
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1851 " Go to the window we were in before going to the log window,
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1852 " and open the split diff there.
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1853 if a:split < 2
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1854 wincmd p
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1855 endif
e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1856 call s:HgDiff(l:path, a:split, l:revs)
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1857 endfunction
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1858
87 e688b658ce5b Add variants of existing commands that open things in a new tab page. Ludovic Chabant <ludovic@chabant.com> parents: 86 diff changeset	1859 function! s:HgLog_DiffSummary(split, ...) abort
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1860 let l:revs = []
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1861 if a:0 >= 2
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1862 let l:revs = [a:1, a:2]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1863 elseif a:0 == 1
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1864 let l:revs = [a:1]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1865 else
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1866 let l:revs = [s:HgLog_GetSelectedRev()]
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1867 endif
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1868
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1869 let l:repo = s:hg_repo()
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1870 let l:bufobj = s:buffer_obj()
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1871 let l:log_path = s:parse_lawrencium_path(l:bufobj.GetName())
785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1872 let l:path = l:repo.GetFullPath(l:log_path['path'])
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1873
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1874 " Go to the window we were in before going in the log window,
73 785d1a1faa6c Changes and fixes to the `Hglog` window: Ludovic Chabant <ludovic@chabant.com> parents: 72 diff changeset	1875 " and split for the diff summary from there.
101 2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1876 let l:reuse_id = 'lawrencium_diffsum_for_' . bufnr('%')
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1877 let l:split_prev_win = (a:split < 3)
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1878 let l:args = {'reuse_id': l:reuse_id, 'use_prev_win': l:split_prev_win,
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1879 \'split_mode': a:split}
2078a8b475c2 More advanced way to know what window to pick to show a diff summary. Ludovic Chabant <ludovic@chabant.com> parents: 100 diff changeset	1880 call s:HgDiffSummary(l:path, l:args, l:revs)
49 dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1881 endfunction
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1882
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1883 function! s:HgLog_GetSelectedRev(...) abort
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1884 if a:0 == 1
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1885 let l:line = getline(a:1)
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1886 else
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1887 let l:line = getline('.')
dffb41c2067c Lawrencium files changes: Ludovic Chabant <ludovic@chabant.com> parents: 48 diff changeset	1888 endif
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1889 " Behold, Vim's look-ahead regex syntax again! WTF.
53 b7caa6693c39 `Hglog` window improvements: Ludovic Chabant <ludovic@chabant.com> parents: 52 diff changeset	1890 let l:rev = matchstr(l:line, '\v^(\d+)(\:)@=')
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1891 if l:rev == ''
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1892 call s:throw("Can't parse revision number from line: " . l:line)
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1893 endif
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1894 return l:rev
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1895 endfunction
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1896
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1897 function! s:HgLog_ExportPatch(...) abort
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1898 let l:patch_name = a:1
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1899 if !empty($HG_EXPORT_PATCH_DIR)
92 e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1900 " Use the patch dir only if user has specified a relative path
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1901 if has('win32')
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1902 let l:is_patch_relative = (matchstr(l:patch_name, '\v^([a-zA-Z]:)?\\') == "")
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1903 else
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1904 let l:is_patch_relative = (matchstr(l:patch_name, '\v^/') == "")
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1905 endif
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1906 if l:is_patch_relative
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1907 let l:patch_name = s:normalizepath(
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1908 s:stripslash($HG_EXPORT_PATCH_DIR) . "/" . l:patch_name)
e856f8dc22a8 `Hglogexport` uses relative paths correctly on Windows, auto-completes to files. Ludovic Chabant <ludovic@chabant.com> parents: 91 diff changeset	1909 endif
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1910 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1911
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1912 if a:0 == 2
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1913 let l:rev = a:2
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1914 else
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1915 let l:rev = s:HgLog_GetSelectedRev()
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1916 endif
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1917
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1918 let l:repo = s:hg_repo()
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1919 let l:export_args = ['-o', l:patch_name, '-r', l:rev]
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1920
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1921 call l:repo.RunCommand('export', l:export_args)
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1922
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1923 echom "Created patch: " . l:patch_name
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1924 endfunction
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1925
68 7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1926 call s:AddMainCommand("Hglogthis :call s:HgLog(0, '%:p')")
7afcd4d37062 Added vertical `Hglog` commands. Ludovic Chabant <ludovic@chabant.com> parents: 67 diff changeset	1927 call s:AddMainCommand("Hgvlogthis :call s:HgLog(1, '%:p')")
91 e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1928 call s:AddMainCommand("-nargs=* -complete=customlist,s:ListRepoFiles Hglog :call s:HgLog(0, <f-args>)")
e21a1819ab27 New command to export a patch and allow existing log command to take options. Kannan Rajah <krajah@maprtech.com> parents: 90 diff changeset	1929 call s:AddMainCommand("-nargs=* -complete=customlist,s:ListRepoFiles Hgvlog :call s:HgLog(1, <f-args>)")
45 ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1930
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1931 " }}}
ea0ae8f6af81 Added `Hglog` command. Ludovic Chabant <ludovic@chabant.com> parents: 44 diff changeset	1932
96 1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	1933 " Hgannotate, Hgwannotate {{{
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1934
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1935 function! s:HgAnnotate(bang, verbose, ...) abort
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1936 " Open the file to annotate if needed.
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1937 if a:0 > 0
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1938 call s:HgEdit(a:bang, a:1)
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1939 endif
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1940
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1941 " Get the Lawrencium path for the annotated file.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1942 let l:path = expand('%:p')
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1943 let l:bufnr = bufnr('%')
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1944 let l:repo = s:hg_repo()
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1945 let l:value = a:verbose ? 'v=1' : ''
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	1946 let l:annotation_path = l:repo.GetLawrenciumPath(l:path, 'annotate', l:value)
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1947
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1948 " Check if we're trying to annotate something with local changes.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1949 let l:has_local_edits = 0
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1950 let l:path_status = l:repo.RunCommand('status', l:path)
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1951 if l:path_status != ''
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1952 call s:trace("Found local edits for '" . l:path . "'. Will annotate parent revision.")
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1953 let l:has_local_edits = 1
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1954 endif
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1955
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1956 if l:has_local_edits
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1957 " Just open the output of the command.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1958 echom "Local edits found, will show the annotations for the parent revision."
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1959 execute 'edit ' . fnameescape(l:annotation_path)
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1960 setlocal nowrap nofoldenable
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1961 setlocal filetype=hgannotate
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1962 else
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1963 " Store some info about the current buffer.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1964 let l:cur_topline = line('w0') + &scrolloff
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1965 let l:cur_line = line('.')
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1966 let l:cur_wrap = &wrap
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1967 let l:cur_foldenable = &foldenable
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1968
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1969 " Open the annotated file in a split buffer on the left, after
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1970 " having disabled wrapping and folds on the current file.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1971 " Make both windows scroll-bound.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1972 setlocal scrollbind nowrap nofoldenable
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	1973 execute 'keepalt leftabove vsplit ' . fnameescape(l:annotation_path)
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1974 setlocal nonumber
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1975 setlocal scrollbind nowrap nofoldenable foldcolumn=0
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1976 setlocal filetype=hgannotate
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1977
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1978 " When the annotated buffer is deleted, restore the settings we
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1979 " changed on the current buffer, and go back to that buffer.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1980 let l:annotate_buffer = s:buffer_obj()
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1981 call l:annotate_buffer.OnDelete('execute bufwinnr(' . l:bufnr . ') . "wincmd w"')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1982 call l:annotate_buffer.OnDelete('setlocal noscrollbind')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1983 if l:cur_wrap
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1984 call l:annotate_buffer.OnDelete('setlocal wrap')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1985 endif
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1986 if l:cur_foldenable
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1987 call l:annotate_buffer.OnDelete('setlocal foldenable')
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1988 endif
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1989
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1990 " Go to the line we were at in the source buffer when we
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	1991 " opened the annotation window.
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1992 execute l:cur_topline
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1993 normal! zt
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1994 execute l:cur_line
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1995 syncbind
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1996
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	1997 " Set the correct window width for the annotations.
96 1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	1998 if a:verbose
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	1999 let l:last_token = match(getline('.'), '\v\d{4}:\s')
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2000 let l:token_end = 5
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2001 else
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2002 let l:last_token = match(getline('.'), '\v\d{2}:\s')
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2003 let l:token_end = 3
1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2004 endif
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2005 if l:last_token < 0
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2006 echoerr "Can't find the end of the annotation columns."
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2007 else
96 1ea783dd06dd Fix typo bug, annotate window width. Ludovic Chabant <ludovic@chabant.com> parents: 95 diff changeset	2008 let l:column_count = l:last_token + l:token_end + g:lawrencium_annotate_width_offset
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2009 execute "vertical resize " . l:column_count
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2010 setlocal winfixwidth
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2011 endif
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2012 endif
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2013
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2014 " Make the annotate buffer a Lawrencium buffer.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2015 let b:mercurial_dir = l:repo.root_dir
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2016 let b:lawrencium_annotated_path = l:path
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2017 let b:lawrencium_annotated_bufnr = l:bufnr
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2018 call s:DefineMainCommands()
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2019
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2020 " Add some other nice commands and mappings.
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2021 command! -buffer Hgannotatediffsum :call s:HgAnnotate_DiffSummary()
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2022 if g:lawrencium_define_mappings
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2023 nnoremap <buffer> <silent> <cr> :Hgannotatediffsum<cr>
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2024 endif
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2025
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2026 " Clean up when the annotate buffer is deleted.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2027 let l:bufobj = s:buffer_obj()
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2028 call l:bufobj.OnDelete('call s:HgAnnotate_Delete(' . l:bufobj.nr . ')')
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2029 endfunction
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2030
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2031 function! s:HgAnnotate_Delete(bufnr) abort
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2032 if g:lawrencium_auto_close_buffers
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2033 call s:delete_dependency_buffers('lawrencium_diff_for', a:bufnr)
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2034 endif
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2035 endfunction
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2036
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2037 function! s:HgAnnotate_DiffSummary() abort
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2038 " Get the path for the diff of the revision specified under the cursor.
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2039 let l:line = getline('.')
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2040 let l:rev_hash = matchstr(l:line, '\v[a-f0-9]{12}')
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2041
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2042 " Get the Lawrencium path for the diff, and the buffer object for the
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2043 " annotation.
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2044 let l:repo = s:hg_repo()
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2045 let l:path = l:repo.GetLawrenciumPath(b:lawrencium_annotated_path, 'diff', l:rev_hash)
61 ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2046 let l:annotate_buffer = s:buffer_obj()
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2047
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2048 " Find a window already displaying diffs for this annotation.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2049 let l:diff_winnr = s:find_buffer_window('lawrencium_diff_for', l:annotate_buffer.nr)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2050 if l:diff_winnr == -1
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2051 " Not found... go back to the main source buffer and open a bottom
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2052 " split with the diff for the specified revision.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2053 execute bufwinnr(b:lawrencium_annotated_bufnr) . 'wincmd w'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2054 execute 'rightbelow split ' . fnameescape(l:path)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2055 let b:lawrencium_diff_for = l:annotate_buffer.nr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2056 let b:lawrencium_quit_on_delete = 1
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2057 else
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2058 " Found! Use that window to open the diff.
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2059 execute l:diff_winnr . 'wincmd w'
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2060 execute 'edit ' . fnameescape(l:path)
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2061 let b:lawrencium_diff_for = l:annotate_buffer.nr
ea794e48d4e2 Better way to handle buffer actions: Ludovic Chabant <ludovic@chabant.com> parents: 59 diff changeset	2062 endif
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2063 endfunction
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2064
95 d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2065 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoFiles Hgannotate :call s:HgAnnotate(<bang>0, 0, <f-args>)")
d38be34b403b `Hgannotate` improvements. Ludovic Chabant <ludovic@chabant.com> parents: 94 diff changeset	2066 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoFiles Hgwannotate :call s:HgAnnotate(<bang>0, 1, <f-args>)")
59 396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2067
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2068 " }}}
396da6e76952 Added `Hgannotate` command. Ludovic Chabant <ludovic@chabant.com> parents: 58 diff changeset	2069
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2070 " Hgqseries {{{
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2071
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2072 function! s:HgQSeries() abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2073 " Open the MQ series in the preview window and jump to it.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2074 let l:repo = s:hg_repo()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2075 let l:path = l:repo.GetLawrenciumPath('', 'qseries', '')
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	2076 execute 'pedit ' . fnameescape(l:path)
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2077 wincmd P
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2078
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2079 " Make the series buffer a Lawrencium buffer.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2080 let b:mercurial_dir = l:repo.root_dir
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2081 call s:DefineMainCommands()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2082
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2083 " Add some commands and mappings.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2084 command! -buffer Hgqseriesgoto :call s:HgQSeries_Goto()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2085 command! -buffer Hgqserieseditmessage :call s:HgQSeries_EditMessage()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2086 command! -buffer -nargs=+ Hgqseriesrename :call s:HgQSeries_Rename(<f-args>)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2087 if g:lawrencium_define_mappings
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2088 nnoremap <buffer> <silent> <C-g> :Hgqseriesgoto<cr>
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2089 nnoremap <buffer> <silent> <C-e> :Hgqserieseditmessage<cr>
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2090 nnoremap <buffer> <silent> q :bdelete!<cr>
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2091 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2092 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2093
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2094 function! s:HgQSeries_GetCurrentPatchName() abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2095 let l:pos = getpos('.')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2096 return getbufvar('%', 'lawrencium_patchname_' . l:pos[1])
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2097 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2098
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2099 function! s:HgQSeries_Goto() abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2100 let l:repo = s:hg_repo()
78 e42f813b4a39 Fixed some bugs with the `Hgqseries` window. Ludovic Chabant <ludovic@chabant.com> parents: 76 diff changeset	2101 let l:patchname = s:HgQSeries_GetCurrentPatchName()
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2102 if len(l:patchname) == 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2103 call s:error("No patch to go to here.")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2104 return
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2105 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2106 call l:repo.RunCommand('qgoto', l:patchname)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2107 edit
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2108 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2109
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2110 function! s:HgQSeries_Rename(...) abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2111 let l:repo = s:hg_repo()
78 e42f813b4a39 Fixed some bugs with the `Hgqseries` window. Ludovic Chabant <ludovic@chabant.com> parents: 76 diff changeset	2112 let l:current_name = s:HgQSeries_GetCurrentPatchName()
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2113 if len(l:current_name) == 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2114 call s:error("No patch to rename here.")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2115 return
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2116 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2117 let l:new_name = '"' . join(a:000, ' ') . '"'
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2118 call l:repo.RunCommand('qrename', l:current_name, l:new_name)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2119 edit
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2120 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2121
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2122 function! s:HgQSeries_EditMessage() abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2123 let l:repo = s:hg_repo()
78 e42f813b4a39 Fixed some bugs with the `Hgqseries` window. Ludovic Chabant <ludovic@chabant.com> parents: 76 diff changeset	2124 let l:patchname = getbufvar('%', 'lawrencium_patchname_top')
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2125 if len(l:patchname) == 0
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2126 call s:error("No patch to edit here.")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2127 return
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2128 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2129 let l:current = split(l:repo.RunCommand('qheader', l:patchname), '\n')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2130
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2131 " Open a temp file to write the commit message.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2132 let l:temp_file = s:tempname('hg-qrefedit-', '.txt')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2133 split
122 a9136d95cf47 Escape paths to fix issues with repository paths with spaces in them. Ludovic Chabant <ludovic@chabant.com> parents: 121 diff changeset	2134 execute 'edit ' . fnameescape(l:temp_file)
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2135 call append(0, 'HG: Enter the new commit message for patch "' . l:patchname . '" here.\n')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2136 call append(0, '')
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2137 call append(0, l:current)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2138 call cursor(1, 1)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2139
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2140 " Make it a temp buffer that will actually change the commit message
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2141 " when it is saved and closed.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2142 let b:mercurial_dir = l:repo.root_dir
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2143 let b:lawrencium_patchname = l:patchname
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2144 setlocal bufhidden=delete
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2145 setlocal filetype=hgcommit
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2146 autocmd BufDelete <buffer> call s:HgQSeries_EditMessage_Execute(expand('<afile>:p'))
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2147
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2148 call s:DefineMainCommands()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2149 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2150
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2151 function! s:HgQSeries_EditMessage_Execute(log_file) abort
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2152 if !filereadable(a:log_file)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2153 call s:error("abort: Commit message not saved")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2154 return
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2155 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2156
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2157 " Clean all the 'HG:' lines.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2158 let l:is_valid = s:clean_commit_file(a:log_file)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2159 if !l:is_valid
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2160 call s:error("abort: Empty commit message")
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2161 return
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2162 endif
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2163
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2164 " Get the repo and edit the given patch.
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2165 let l:repo = s:hg_repo()
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2166 let l:hg_args = ['-s', '-l', a:log_file]
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2167 call l:repo.RunCommand('qref', l:hg_args)
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2168 endfunction
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2169
108 497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2170 call s:AddMainCommand("Hgqseries call s:HgQSeries()")
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2171
108 497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2172 " }}}
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2173
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2174 " Hgrecord {{{
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2175
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2176 function! s:HgRecord(split) abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2177 let l:repo = s:hg_repo()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2178 let l:orig_buf = s:buffer_obj()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2179 let l:tmp_path = l:orig_buf.GetName(':p') . '~record'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2180 let l:diff_id = localtime()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2181
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2182 " Start diffing on the current file, enable some commands.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2183 call l:orig_buf.DefineCommand('Hgrecordabort', ':call s:HgRecord_Abort()')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2184 call l:orig_buf.DefineCommand('Hgrecordcommit', ':call s:HgRecord_Execute()')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2185 call s:HgDiff_DiffThis(l:diff_id)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2186 setlocal foldmethod=marker
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2187
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2188 " Split the window and open the parent revision in the right or bottom
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2189 " window. Keep the current buffer in the left or top window... we're going
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2190 " to 'move' those changes into the parent revision.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2191 let l:cmd = 'keepalt rightbelow split '
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2192 if a:split == 1
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2193 let l:cmd = 'keepalt rightbelow vsplit '
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2194 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2195 let l:rev_path = l:repo.GetLawrenciumPath(expand('%'), 'rev', '')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2196 execute l:cmd . fnameescape(l:rev_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2197
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2198 " This new buffer with the parent revision is set as a Lawrencium buffer.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2199 " Let's save it to an actual file and reopen it like that (somehow we
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2200 " could probably do it with `:saveas` instead but we'd need to reset a
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2201 " bunch of other buffer settings, and Vim weirdly creates another backup
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2202 " buffer when you do that).
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2203 execute 'keepalt write! ' . fnameescape(l:tmp_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2204 execute 'keepalt edit! ' . fnameescape(l:tmp_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2205 setlocal bufhidden=delete
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2206 let b:mercurial_dir = l:repo.root_dir
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2207 let b:lawrencium_record_for = l:orig_buf.GetName(':p')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2208 let b:lawrencium_record_other_nr = l:orig_buf.nr
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2209 let b:lawrencium_record_commit_split = !a:split
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2210 call setbufvar(l:orig_buf.nr, 'lawrencium_record_for', '%')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2211 call setbufvar(l:orig_buf.nr, 'lawrencium_record_other_nr', bufnr('%'))
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2212
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2213 " Hookup the commit and abort commands.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2214 let l:rec_buf = s:buffer_obj()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2215 call l:rec_buf.OnDelete('call s:HgRecord_Execute()')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2216 call l:rec_buf.DefineCommand('Hgrecordcommit', ':quit')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2217 call l:rec_buf.DefineCommand('Hgrecordabort', ':call s:HgRecord_Abort()')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2218 call s:DefineMainCommands()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2219
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2220 " Make it the other part of the diff.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2221 call s:HgDiff_DiffThis(l:diff_id)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2222 setlocal foldmethod=marker
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2223 call l:rec_buf.SetVar('&filetype', l:orig_buf.GetVar('&filetype'))
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2224
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2225 if g:lawrencium_record_start_in_working_buffer
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2226 wincmd p
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2227 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2228 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2229
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2230 function! s:HgRecord_Execute() abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2231 if exists('b:lawrencium_record_abort')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2232 " Abort flag is set, let's just cleanup.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2233 let l:buf_nr = b:lawrencium_record_for == '%' ? bufnr('%') :
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2234 \b:lawrencium_record_other_nr
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2235 call s:HgRecord_CleanUp(l:buf_nr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2236 call s:error("abort: User requested aborting the record operation.")
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2237 return
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2238 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2239
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2240 if !exists('b:lawrencium_record_for')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2241 call s:throw("This doesn't seem like a record buffer, something's wrong!")
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2242 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2243 if b:lawrencium_record_for == '%'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2244 " Switch to the 'recording' buffer's window.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2245 let l:buf_obj = s:buffer_obj(b:lawrencium_record_other_nr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2246 call l:buf_obj.MoveToFirstWindow()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2247 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2248
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2249 " Setup the commit operation.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2250 let l:split = b:lawrencium_record_commit_split
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2251 let l:working_bufnr = b:lawrencium_record_other_nr
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2252 let l:working_path = fnameescape(b:lawrencium_record_for)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2253 let l:record_path = fnameescape(expand('%:p'))
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2254 let l:callbacks = [
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2255 \'call s:HgRecord_PostExecutePre('.l:working_bufnr.', "'.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2256 \escape(l:working_path, '\').'", "'.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2257 \escape(l:record_path, '\').'")',
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2258 \'call s:HgRecord_PostExecutePost('.l:working_bufnr.', "'.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2259 \escape(l:working_path, '\').'")',
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2260 \'call s:HgRecord_PostExecuteAbort('.l:working_bufnr.', "'.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2261 \escape(l:record_path, '\').'")'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2262 \]
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2263 call s:trace("Starting commit flow with callbacks: ".string(l:callbacks))
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2264 call s:HgCommit(0, l:split, l:callbacks, b:lawrencium_record_for)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2265 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2266
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2267 function! s:HgRecord_PostExecutePre(working_bufnr, working_path, record_path) abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2268 " Just before committing, we switch the original file with the record
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2269 " file... we'll restore things in the post-callback below.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2270 " We also switch on 'autoread' temporarily on the working buffer so that
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2271 " we don't have an annoying popup in gVim.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2272 if has('dialog_gui')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2273 call setbufvar(a:working_bufnr, '&autoread', 1)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2274 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2275 call s:trace("Backuping original file: ".a:working_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2276 silent call rename(a:working_path, a:working_path.'~working')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2277 call s:trace("Committing recorded changes using: ".a:record_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2278 silent call rename(a:record_path, a:working_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2279 sleep 200m
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2280 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2281
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2282 function! s:HgRecord_PostExecutePost(working_bufnr, working_path) abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2283 " Recover the back-up file from underneath the buffer.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2284 call s:trace("Recovering original file: ".a:working_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2285 silent call rename(a:working_path.'~working', a:working_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2286
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2287 " Clean up!
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2288 call s:HgRecord_CleanUp(a:working_bufnr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2289
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2290 " Restore default 'autoread'.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2291 if has('dialog_gui')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2292 set autoread<
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2293 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2294 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2295
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2296 function! s:HgRecord_PostExecuteAbort(working_bufnr, record_path) abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2297 call s:HgRecord_CleanUp(a:working_bufnr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2298 call s:trace("Delete discarded record file: ".a:record_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2299 silent call delete(a:record_path)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2300 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2301
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2302 function! s:HgRecord_Abort() abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2303 if b:lawrencium_record_for == '%'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2304 " We're in the working directory buffer. Switch to the 'recording'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2305 " buffer and quit.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2306 let l:buf_obj = s:buffer_obj(b:lawrencium_record_other_nr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2307 call l:buf_obj.MoveToFirstWindow()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2308 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2309 " We're now in the 'recording' buffer... set the abort flag and quit,
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2310 " which will run the execution (it will early out and clean things up).
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2311 let b:lawrencium_record_abort = 1
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2312 quit!
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2313 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2314
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2315 function! s:HgRecord_CleanUp(buf_nr) abort
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2316 " Get in the original buffer and clean the local commands/variables.
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2317 let l:buf_obj = s:buffer_obj(a:buf_nr)
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2318 call l:buf_obj.MoveToFirstWindow()
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2319 if !exists('b:lawrencium_record_for') \|\| b:lawrencium_record_for != '%'
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2320 call s:throw("Cleaning up something else than the original buffer ".
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2321 \"for a record operation. That's suspiciously incorrect! ".
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2322 \"Aborting.")
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2323 endif
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2324 call l:buf_obj.DeleteCommand('Hgrecordabort')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2325 call l:buf_obj.DeleteCommand('Hgrecordcommit')
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2326 unlet b:lawrencium_record_for
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2327 unlet b:lawrencium_record_other_nr
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2328 endfunction
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2329
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2330 call s:AddMainCommand("Hgrecord call s:HgRecord(0)")
497f7a481599 Added new `Hgrecord` command. Ludovic Chabant <ludovic@chabant.com> parents: 107 diff changeset	2331 call s:AddMainCommand("Hgvrecord call s:HgRecord(1)")
71 1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2332
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2333 " }}}
1fbba48019b5 MQ support: Ludovic Chabant <ludovic@chabant.com> parents: 70 diff changeset	2334
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2335 " Autoload Functions {{{
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2336
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2337 " Prints a summary of the current repo (if any) that's appropriate for
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2338 " displaying on the status line.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2339 function! lawrencium#statusline(...)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2340 if !exists('b:mercurial_dir')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2341 return ''
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2342 endif
83 a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2343 let l:repo = s:hg_repo()
5 3a4f9f41a7e2 Use a hackish shortcut to get the current branch faster for the statusline. Ludovic Chabant <ludovic@chabant.com> parents: 4 diff changeset	2344 let l:prefix = (a:0 > 0 ? a:1 : '')
3a4f9f41a7e2 Use a hackish shortcut to get the current branch faster for the statusline. Ludovic Chabant <ludovic@chabant.com> parents: 4 diff changeset	2345 let l:suffix = (a:0 > 1 ? a:2 : '')
30 35d097b9513c Fixed a bug with the status line indicator. Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	2346 let l:branch = 'default'
83 a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2347 let l:branch_file = l:repo.GetFullPath('.hg/branch')
30 35d097b9513c Fixed a bug with the status line indicator. Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	2348 if filereadable(l:branch_file)
35d097b9513c Fixed a bug with the status line indicator. Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	2349 let l:branch = readfile(l:branch_file)[0]
35d097b9513c Fixed a bug with the status line indicator. Ludovic Chabant <ludovic@chabant.com> parents: 28 diff changeset	2350 endif
83 a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2351 let l:bookmarks = ''
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2352 let l:bookmarks_file = l:repo.GetFullPath('.hg/bookmarks.current')
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2353 if filereadable(l:bookmarks_file)
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2354 let l:bookmarks = join(readfile(l:bookmarks_file), ', ')
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2355 endif
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2356 let l:line = l:prefix . l:branch
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2357 if strlen(l:bookmarks) > 0
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2358 let l:line = l:line . ' - ' . l:bookmarks
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2359 endif
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2360 let l:line = l:line . l:suffix
a383a816d975 Adding bookmark information to the status line. Ludovic Chabant <ludovic@chabant.com> parents: 82 diff changeset	2361 return l:line
0 0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2362 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2363
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2364 " Rescans the current buffer for setting up Mercurial commands.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2365 " Passing '1' as the parameter enables debug traces temporarily.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2366 function! lawrencium#rescan(...)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2367 if exists('b:mercurial_dir')
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2368 unlet b:mercurial_dir
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2369 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2370 if a:0 && a:1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2371 let l:trace_backup = g:lawrencium_trace
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2372 let g:lawrencium_trace = 1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2373 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2374 call s:setup_buffer_commands()
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2375 if a:0 && a:1
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2376 let g:lawrencium_trace = l:trace_backup
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2377 endif
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2378 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2379
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2380 " Enables/disables the debug trace.
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2381 function! lawrencium#debugtrace(...)
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2382 let g:lawrencium_trace = (a:0 == 0 \|\| (a:0 && a:1))
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2383 echom "Lawrencium debug trace is now " . (g:lawrencium_trace ? "enabled." : "disabled.")
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2384 endfunction
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2385
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2386 " }}}
0a5b490dc35d Initial commit Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2387

Mercurial > vim-lawrencium

annotate plugin/lawrencium.vim @ 123:860e6502b239