vim-lawrencium: autoload/lawrencium.vim annotate

annotate autoload/lawrencium.vim @ 154:40181bd0ffcd

Add support for %-paths in commands auto-completion

author	Ludovic Chabant <ludovic@chabant.com>
date	Sat, 10 Dec 2022 23:06:46 -0800
parents	62e054a2c4f0
children

rev	line source
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	2 " Path Utility {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	3
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	4 " Strips the ending slash in a path.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	5 function! lawrencium#stripslash(path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	6 return fnamemodify(a:path, ':s?[/\\]$??')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	7 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	8
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	9 " Returns whether a path is absolute.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	10 function! lawrencium#isabspath(path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	11 return a:path =~# '\v^(\w\:)?[/\\]'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	12 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	13
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	14 " Normalizes the slashes in a path.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	15 function! lawrencium#normalizepath(path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	16 if exists('+shellslash') && &shellslash
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	17 return substitute(a:path, '\v/', '\\', 'g')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	18 elseif has('win32')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	19 return substitute(a:path, '\v/', '\\', 'g')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	20 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	21 return a:path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	22 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	23 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	24
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	25 " Shell-slashes the path (opposite of `normalizepath`).
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	26 function! lawrencium#shellslash(path)
147 06f4d2c01fd6 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 146 diff changeset	27 if exists('+shellslash') && !&shellslash
06f4d2c01fd6 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 146 diff changeset	28 return substitute(a:path, '\v\\', '/', 'g')
06f4d2c01fd6 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 146 diff changeset	29 else
06f4d2c01fd6 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 146 diff changeset	30 return a:path
06f4d2c01fd6 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 146 diff changeset	31 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	32 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	33
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	34 " Like tempname() but with some control over the filename.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	35 function! lawrencium#tempname(name, ...)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	36 let l:path = tempname()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	37 let l:result = fnamemodify(l:path, ':h') . '/' . a:name . fnamemodify(l:path, ':t')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	38 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	39 let l:result = l:result . a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	40 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	41 return l:result
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	42 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	43
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	44 " Delete a temporary file if it exists.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	45 function! lawrencium#clean_tempfile(path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	46 if filewritable(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	47 call lawrencium#trace("Cleaning up temporary file: " . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	48 call delete(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	49 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	50 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	51
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	52 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	53
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	54 " Logging {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	55
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	56 " Prints a message if debug tracing is enabled.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	57 function! lawrencium#trace(message, ...)
151 59c51f0d6008 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 147 diff changeset	58 if g:lawrencium_trace \|\| (a:0 && a:1)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	59 let l:message = "lawrencium: " . a:message
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	60 echom l:message
151 59c51f0d6008 Fix indenting Ludovic Chabant <ludovic@chabant.com> parents: 147 diff changeset	61 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	62 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	63
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	64 " Prints an error message with 'lawrencium error' prefixed to it.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	65 function! lawrencium#error(message)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	66 echom "lawrencium error: " . a:message
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	67 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	68
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	69 " Throw a Lawrencium exception message.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	70 function! lawrencium#throw(message)
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	71 throw "lawrencium: " . a:message
4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	72 endfunction
4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	73
4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	74 " Throw a Lawrencium exception message and set Vim's error message.
4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	75 function! lawrencium#throwerr(message)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	76 let v:errmsg = "lawrencium: " . a:message
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	77 throw v:errmsg
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	78 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	79
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	80 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	81
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	82 " Repositories {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	83
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	84 " Finds the repository root given a path inside that repository.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	85 " Throw an error if not repository is found.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	86 function! lawrencium#find_repo_root(path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	87 let l:path = lawrencium#stripslash(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	88 let l:previous_path = ""
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	89 while l:path != l:previous_path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	90 if isdirectory(l:path . '/.hg')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	91 return lawrencium#normalizepath(simplify(fnamemodify(l:path, ':p')))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	92 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	93 let l:previous_path = l:path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	94 let l:path = fnamemodify(l:path, ':h')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	95 endwhile
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	96 call lawrencium#throw("No Mercurial repository found above: " . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	97 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	98
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	99 " Given a Lawrencium path (e.g: 'lawrencium:///repo/root_dir//foo/bar/file.py//rev=34'), extract
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	100 " the repository root, relative file path and revision number/changeset ID.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	101 "
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	102 " If a second argument exists, it must be:
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	103 " - `relative`: to make the file path relative to the repository root.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	104 " - `absolute`: to make the file path absolute.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	105 "
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	106 function! lawrencium#parse_lawrencium_path(lawrencium_path, ...)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	107 let l:repo_path = lawrencium#shellslash(a:lawrencium_path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	108 let l:repo_path = substitute(l:repo_path, '\\ ', ' ', 'g')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	109 if l:repo_path =~? '\v^lawrencium://'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	110 let l:repo_path = strpart(l:repo_path, strlen('lawrencium://'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	111 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	112
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	113 let l:root_dir = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	114 let l:at_idx = stridx(l:repo_path, '//')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	115 if l:at_idx >= 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	116 let l:root_dir = strpart(l:repo_path, 0, l:at_idx)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	117 let l:repo_path = strpart(l:repo_path, l:at_idx + 2)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	118 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	119
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	120 let l:value = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	121 let l:action = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	122 let l:actionidx = stridx(l:repo_path, '//')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	123 if l:actionidx >= 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	124 let l:action = strpart(l:repo_path, l:actionidx + 2)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	125 let l:repo_path = strpart(l:repo_path, 0, l:actionidx)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	126
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	127 let l:equalidx = stridx(l:action, '=')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	128 if l:equalidx >= 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	129 let l:value = strpart(l:action, l:equalidx + 1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	130 let l:action = strpart(l:action, 0, l:equalidx)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	131 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	132 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	133
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	134 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	135 execute 'cd! ' . fnameescape(l:root_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	136 if a:1 == 'relative'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	137 let l:repo_path = fnamemodify(l:repo_path, ':.')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	138 elseif a:1 == 'absolute'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	139 let l:repo_path = fnamemodify(l:repo_path, ':p')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	140 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	141 execute 'cd! -'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	142 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	143
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	144 let l:result = { 'root': l:root_dir, 'path': l:repo_path, 'action': l:action, 'value': l:value }
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	145 return l:result
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	146 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	147
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	148 " Clean up all the 'HG:' lines from a commit message, and see if there's
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	149 " any message left (Mercurial does this automatically, usually, but
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	150 " apparently not when you feed it a log file...).
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	151 function! lawrencium#clean_commit_file(log_file) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	152 let l:lines = readfile(a:log_file)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	153 call filter(l:lines, "v:val !~# '\\v^HG:'")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	154 if len(filter(copy(l:lines), "v:val !~# '\\v^\\s*$'")) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	155 return 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	156 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	157 call writefile(l:lines, a:log_file)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	158 return 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	159 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	160
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	161 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	162
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	163 " Vim Utility {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	164
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	165 " Finds a window whose displayed buffer has a given variable
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	166 " set to the given value.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	167 function! lawrencium#find_buffer_window(varname, varvalue) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	168 for wnr in range(1, winnr('$'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	169 let l:bnr = winbufnr(wnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	170 if getbufvar(l:bnr, a:varname) == a:varvalue
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	171 return l:wnr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	172 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	173 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	174 return -1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	175 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	176
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	177 " Opens a buffer in a way that makes it easy to delete it later:
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	178 " - if the about-to-be previous buffer doesn't have a given variable,
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	179 " just open the new buffer.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	180 " - if the about-to-be previous buffer has a given variable, open the
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	181 " new buffer with the `keepalt` option to make it so that the
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	182 " actual previous buffer (returned by things like `bufname('#')`)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	183 " is the original buffer that was there before the first deletable
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	184 " buffer was opened.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	185 function! lawrencium#edit_deletable_buffer(varname, varvalue, path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	186 let l:edit_cmd = 'edit '
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	187 if getbufvar('%', a:varname) != ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	188 let l:edit_cmd = 'keepalt edit '
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	189 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	190 execute l:edit_cmd . fnameescape(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	191 call setbufvar('%', a:varname, a:varvalue)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	192 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	193
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	194 " Deletes all buffers that have a given variable set to a given value.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	195 " For each buffer, if it is not shown in any window, it will be just deleted.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	196 " If it is shown in a window, that window will be switched to the alternate
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	197 " buffer before the buffer is deleted, unless the `lawrencium_quit_on_delete`
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	198 " variable is set to `1`, in which case the window is closed too.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	199 function! lawrencium#delete_dependency_buffers(varname, varvalue) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	200 let l:cur_winnr = winnr()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	201 for bnr in range(1, bufnr('$'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	202 if getbufvar(bnr, a:varname) == a:varvalue
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	203 " Delete this buffer if it is not shown in any window.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	204 " Otherwise, display the alternate buffer before deleting
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	205 " it so the window is not closed.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	206 let l:bwnr = bufwinnr(bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	207 if l:bwnr < 0 \|\| getbufvar(bnr, 'lawrencium_quit_on_delete') == 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	208 if bufloaded(l:bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	209 call lawrencium#trace("Deleting dependency buffer " . bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	210 execute "bdelete! " . bnr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	211 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	212 call lawrencium#trace("Dependency buffer " . bnr . " is already unladed.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	213 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	214 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	215 execute l:bwnr . "wincmd w"
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	216 " TODO: better handle case where there's no previous/alternate buffer?
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	217 let l:prev_bnr = bufnr('#')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	218 if l:prev_bnr > 0 && bufloaded(l:prev_bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	219 execute "buffer " . l:prev_bnr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	220 if bufloaded(l:bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	221 call lawrencium#trace("Deleting dependency buffer " . bnr . " after switching to " . l:prev_bnr . " in window " . l:bwnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	222 execute "bdelete! " . bnr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	223 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	224 call lawrencium#trace("Dependency buffer " . bnr . " is unladed after switching to " . l:prev_bnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	225 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	226 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	227 call lawrencium#trace("Deleting dependency buffer " . bnr . " and window.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	228 bdelete!
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	229 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	230 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	231 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	232 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	233 if l:cur_winnr != winnr()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	234 call lawrencium#trace("Returning to window " . l:cur_winnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	235 execute l:cur_winnr . "wincmd w"
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	236 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	237 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	238
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	239 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	240
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	241 " Mercurial Repository Object {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	242
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	243 " Let's define a Mercurial repo 'class' using prototype-based object-oriented
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	244 " programming.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	245 "
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	246 " The prototype dictionary.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	247 let s:HgRepo = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	248
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	249 " Constructor.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	250 function! s:HgRepo.New(path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	251 let l:newRepo = copy(self)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	252 let l:newRepo.root_dir = lawrencium#find_repo_root(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	253 call lawrencium#trace("Built new Mercurial repository object at : " . l:newRepo.root_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	254 return l:newRepo
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	255 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	256
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	257 " Gets a full path given a repo-relative path.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	258 function! s:HgRepo.GetFullPath(path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	259 let l:root_dir = self.root_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	260 if lawrencium#isabspath(a:path)
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	261 call lawrencium#throwerr("Expected relative path, got absolute path: " . a:path)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	262 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	263 return lawrencium#normalizepath(l:root_dir . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	264 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	265
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	266 " Gets a repo-relative path given any path.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	267 function! s:HgRepo.GetRelativePath(path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	268 execute 'lcd! ' . fnameescape(self.root_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	269 let l:relative_path = fnamemodify(a:path, ':.')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	270 execute 'lcd! -'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	271 return l:relative_path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	272 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	273
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	274 " Gets, and optionally creates, a temp folder for some operation in the `.hg`
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	275 " directory.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	276 function! s:HgRepo.GetTempDir(path, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	277 let l:tmp_dir = self.GetFullPath('.hg/lawrencium/' . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	278 if !isdirectory(l:tmp_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	279 if a:0 > 0 && !a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	280 return ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	281 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	282 call mkdir(l:tmp_dir, 'p')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	283 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	284 return l:tmp_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	285 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	286
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	287 " Gets a list of files matching a root-relative pattern.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	288 " If a flag is passed and is TRUE, a slash will be appended to all
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	289 " directories.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	290 function! s:HgRepo.Glob(pattern, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	291 let l:root_dir = self.root_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	292 if (a:pattern =~# '\v^[/\\]')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	293 let l:root_dir = lawrencium#stripslash(l:root_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	294 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	295 let l:matches = split(glob(l:root_dir . a:pattern), '\n')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	296 if a:0 && a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	297 for l:idx in range(len(l:matches))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	298 if !filereadable(l:matches[l:idx])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	299 let l:matches[l:idx] = l:matches[l:idx] . '/'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	300 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	301 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	302 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	303 let l:strip_len = len(l:root_dir)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	304 call map(l:matches, 'v:val[l:strip_len : -1]')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	305 return l:matches
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	306 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	307
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	308 " Gets a full Mercurial command.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	309 function! s:HgRepo.GetCommand(command, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	310 " If there's only one argument, and it's a list, then use that as the
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	311 " argument list.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	312 let l:arg_list = a:000
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	313 if a:0 == 1 && type(a:1) == type([])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	314 let l:arg_list = a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	315 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	316 let l:prev_shellslash = &shellslash
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	317 setlocal noshellslash
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	318 let l:hg_command = g:lawrencium_hg_executable . ' --repository ' . shellescape(lawrencium#stripslash(self.root_dir))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	319 let l:hg_command = l:hg_command . ' ' . a:command
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	320 for l:arg in l:arg_list
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	321 let l:hg_command = l:hg_command . ' ' . shellescape(l:arg)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	322 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	323 if l:prev_shellslash
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	324 setlocal shellslash
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	325 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	326 return l:hg_command
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	327 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	328
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	329 " Runs a Mercurial command in the repo.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	330 function! s:HgRepo.RunCommand(command, ...) abort
152 62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	331 " Use 'plain mode', and forward the command and all params to RunCommandEx
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	332 let l:all_args = [1, a:command] + a:000
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	333 return call(self['RunCommandEx'], l:all_args, self)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	334 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	335
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	336 function! s:HgRepo.RunCommandEx(plain_mode, command, ...) abort
152 62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	337 let l:envvars = environ()
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	338 if a:plain_mode
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	339 let $HGPLAIN = 'true'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	340 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	341 let l:all_args = [a:command] + a:000
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	342 let l:hg_command = call(self['GetCommand'], l:all_args, self)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	343 call lawrencium#trace("Running Mercurial command: " . l:hg_command)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	344 let l:cmd_out = system(l:hg_command)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	345 if a:plain_mode
152 62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	346 if has_key(l:envvars, "HGPLAIN")
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	347 let $HGPLAIN = l:envvars["HGPLAIN"]
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	348 else
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	349 unlet $HGPLAIN
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	350 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	351 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	352 return l:cmd_out
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	353 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	354
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	355 " Runs a Mercurial command in the repo and reads its output into the current
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	356 " buffer.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	357 function! s:HgRepo.ReadCommandOutput(command, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	358 function! s:PutOutputIntoBuffer(command_line)
152 62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	359 let l:envvars = environ()
146 33cc4af93b44 Use `HGPLAIN` for lawrencium buffers too. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	360 let $HGPLAIN = 'true'
33cc4af93b44 Use `HGPLAIN` for lawrencium buffers too. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	361
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	362 let l:was_buffer_empty = (line('$') == 1 && getline(1) == '')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	363 execute '0read!' . escape(a:command_line, '%#\')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	364 if l:was_buffer_empty " (Always true?)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	365 " '0read' inserts before the cursor, leaving a blank line which
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	366 " needs to be deleted... but if there are folds in this thing, we
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	367 " must open them all first otherwise we could delete the whole
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	368 " contents of the last fold (since Vim may close them all by
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	369 " default).
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	370 normal! zRG"_dd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	371 endif
146 33cc4af93b44 Use `HGPLAIN` for lawrencium buffers too. Ludovic Chabant <ludovic@chabant.com> parents: 141 diff changeset	372
152 62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	373 if has_key(l:envvars, "HGPLAIN")
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	374 let $HGPLAIN = l:envvars["HGPLAIN"]
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	375 else
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	376 unlet $HGPLAIN
62e054a2c4f0 Correctly reset HGPLAIN after use. Ludovic Chabant <ludovic@chabant.com> parents: 151 diff changeset	377 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	378 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	379
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	380 let l:all_args = [a:command] + a:000
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	381 let l:hg_command = call(self['GetCommand'], l:all_args, self)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	382 call lawrencium#trace("Running Mercurial command: " . l:hg_command)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	383 call s:PutOutputIntoBuffer(l:hg_command)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	384 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	385
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	386 " Build a Lawrencium path for the given file and action.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	387 " By default, the given path will be made relative to the repository root,
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	388 " unless '0' is passed as the 4th argument.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	389 function! s:HgRepo.GetLawrenciumPath(path, action, value, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	390 let l:path = a:path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	391 if a:0 == 0 \|\| !a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	392 let l:path = self.GetRelativePath(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	393 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	394 let l:path = fnameescape(l:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	395 let l:result = 'lawrencium://' . lawrencium#stripslash(self.root_dir) . '//' . l:path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	396 if a:action !=? ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	397 let l:result = l:result . '//' . a:action
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	398 if a:value !=? ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	399 let l:result = l:result . '=' . a:value
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	400 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	401 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	402 return l:result
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	403 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	404
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	405 " Repo cache map.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	406 let s:buffer_repos = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	407
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	408 " Get a cached repo.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	409 function! lawrencium#hg_repo(...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	410 " Use the given path, or the mercurial directory of the current buffer.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	411 if a:0 == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	412 if exists('b:mercurial_dir')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	413 let l:path = b:mercurial_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	414 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	415 let l:path = lawrencium#find_repo_root(expand('%:p'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	416 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	417 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	418 let l:path = a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	419 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	420 " Find a cache repo instance, or make a new one.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	421 if has_key(s:buffer_repos, l:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	422 return get(s:buffer_repos, l:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	423 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	424 let l:repo = s:HgRepo.New(l:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	425 let s:buffer_repos[l:path] = l:repo
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	426 return l:repo
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	427 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	428 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	429
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	430 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	431
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	432 " Buffer Object {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	433
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	434 " The prototype dictionary.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	435 let s:Buffer = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	436
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	437 " Constructor.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	438 function! s:Buffer.New(number) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	439 let l:newBuffer = copy(self)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	440 let l:newBuffer.nr = a:number
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	441 let l:newBuffer.var_backup = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	442 let l:newBuffer.cmd_names = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	443 let l:newBuffer.on_delete = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	444 let l:newBuffer.on_winleave = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	445 let l:newBuffer.on_unload = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	446 execute 'augroup lawrencium_buffer_' . a:number
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	447 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	448 execute ' autocmd BufDelete <buffer=' . a:number . '> call s:buffer_on_delete(' . a:number . ')'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	449 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	450 call lawrencium#trace("Built new buffer object for buffer: " . a:number)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	451 return l:newBuffer
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	452 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	453
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	454 function! s:Buffer.GetName(...) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	455 let l:name = bufname(self.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	456 if a:0 > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	457 let l:name = fnamemodify(l:name, a:1)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	458 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	459 return l:name
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	460 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	461
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	462 function! s:Buffer.GetVar(var) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	463 return getbufvar(self.nr, a:var)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	464 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	465
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	466 function! s:Buffer.SetVar(var, value) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	467 if !has_key(self.var_backup, a:var)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	468 let self.var_backup[a:var] = getbufvar(self.nr, a:var)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	469 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	470 return setbufvar(self.nr, a:var, a:value)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	471 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	472
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	473 function! s:Buffer.RestoreVars() dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	474 for key in keys(self.var_backup)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	475 setbufvar(self.nr, key, self.var_backup[key])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	476 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	477 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	478
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	479 function! s:Buffer.DefineCommand(name, ...) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	480 if a:0 == 0
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	481 call lawrencium#throwerr("Not enough parameters for s:Buffer.DefineCommands()")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	482 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	483 if a:0 == 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	484 let l:flags = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	485 let l:cmd = a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	486 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	487 let l:flags = a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	488 let l:cmd = a:2
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	489 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	490 if has_key(self.cmd_names, a:name)
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	491 call lawrencium#throwerr("Command '".a:name."' is already defined in buffer ".self.nr)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	492 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	493 if bufnr('%') != self.nr
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	494 call lawrencium#throwerr("You must move to buffer ".self.nr."first before defining local commands")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	495 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	496 let self.cmd_names[a:name] = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	497 let l:real_flags = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	498 if type(l:flags) == type('')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	499 let l:real_flags = l:flags
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	500 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	501 execute 'command -buffer '.l:real_flags.' '.a:name.' '.l:cmd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	502 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	503
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	504 function! s:Buffer.DeleteCommand(name) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	505 if !has_key(self.cmd_names, a:name)
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	506 call lawrencium#throwerr("Command '".a:name."' has not been defined in buffer ".self.nr)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	507 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	508 if bufnr('%') != self.nr
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	509 call lawrencium#throwerr("You must move to buffer ".self.nr."first before deleting local commands")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	510 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	511 execute 'delcommand '.a:name
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	512 call remove(self.cmd_names, a:name)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	513 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	514
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	515 function! s:Buffer.DeleteCommands() dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	516 if bufnr('%') != self.nr
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	517 call lawrencium#throwerr("You must move to buffer ".self.nr."first before deleting local commands")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	518 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	519 for name in keys(self.cmd_names)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	520 execute 'delcommand '.name
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	521 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	522 let self.cmd_names = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	523 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	524
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	525 function! s:Buffer.MoveToFirstWindow() dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	526 let l:win_nr = bufwinnr(self.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	527 if l:win_nr < 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	528 if a:0 > 0 && a:1 == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	529 return 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	530 endif
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	531 call lawrencium#throwerr("No windows currently showing buffer ".self.nr)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	532 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	533 execute l:win_nr.'wincmd w'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	534 return 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	535 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	536
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	537 function! s:Buffer.OnDelete(cmd) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	538 call lawrencium#trace("Adding BufDelete callback for buffer " . self.nr . ": " . a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	539 call add(self.on_delete, a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	540 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	541
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	542 function! s:Buffer.OnWinLeave(cmd) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	543 if len(self.on_winleave) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	544 call lawrencium#trace("Adding BufWinLeave auto-command on buffer " . self.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	545 execute 'augroup lawrencium_buffer_' . self.nr . '_winleave'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	546 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	547 execute ' autocmd BufWinLeave <buffer=' . self.nr . '> call s:buffer_on_winleave(' . self.nr .')'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	548 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	549 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	550 call lawrencium#trace("Adding BufWinLeave callback for buffer " . self.nr . ": " . a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	551 call add(self.on_winleave, a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	552 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	553
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	554 function! s:Buffer.OnUnload(cmd) dict abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	555 if len(self.on_unload) == 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	556 call lawrencium#trace("Adding BufUnload auto-command on buffer " . self.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	557 execute 'augroup lawrencium_buffer_' . self.nr . '_unload'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	558 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	559 execute ' autocmd BufUnload <buffer=' . self.nr . '> call s:buffer_on_unload(' . self.nr . ')'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	560 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	561 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	562 call lawrencium#trace("Adding BufUnload callback for buffer " . self.nr . ": " . a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	563 call add(self.on_unload, a:cmd)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	564 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	565
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	566 let s:buffer_objects = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	567
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	568 " Get a buffer instance for the specified buffer number, or the
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	569 " current buffer if nothing is specified.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	570 function! lawrencium#buffer_obj(...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	571 let l:bufnr = a:0 ? a:1 : bufnr('%')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	572 if !has_key(s:buffer_objects, l:bufnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	573 let s:buffer_objects[l:bufnr] = s:Buffer.New(l:bufnr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	574 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	575 return s:buffer_objects[l:bufnr]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	576 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	577
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	578 " Execute all the "on delete" callbacks.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	579 function! s:buffer_on_delete(number) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	580 let l:bufobj = s:buffer_objects[a:number]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	581 call lawrencium#trace("Calling BufDelete callbacks on buffer " . l:bufobj.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	582 for cmd in l:bufobj.on_delete
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	583 call lawrencium#trace(" [" . cmd . "]")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	584 execute cmd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	585 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	586 call lawrencium#trace("Deleted buffer object " . l:bufobj.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	587 call remove(s:buffer_objects, l:bufobj.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	588 execute 'augroup lawrencium_buffer_' . l:bufobj.nr
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	589 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	590 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	591 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	592
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	593 " Execute all the "on winleave" callbacks.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	594 function! s:buffer_on_winleave(number) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	595 let l:bufobj = s:buffer_objects[a:number]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	596 call lawrencium#trace("Calling BufWinLeave callbacks on buffer " . l:bufobj.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	597 for cmd in l:bufobj.on_winleave
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	598 call lawrencium#trace(" [" . cmd . "]")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	599 execute cmd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	600 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	601 execute 'augroup lawrencium_buffer_' . l:bufobj.nr . '_winleave'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	602 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	603 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	604 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	605
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	606 " Execute all the "on unload" callbacks.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	607 function! s:buffer_on_unload(number) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	608 let l:bufobj = s:buffer_objects[a:number]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	609 call lawrencium#trace("Calling BufUnload callbacks on buffer " . l:bufobj.nr)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	610 for cmd in l:bufobj.on_unload
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	611 call lawrencium#trace(" [" . cmd . "]")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	612 execute cmd
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	613 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	614 execute 'augroup lawrencium_buffer_' . l:bufobj.nr . '_unload'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	615 execute ' autocmd!'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	616 execute 'augroup end'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	617 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	618
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	619 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	620
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	621 " Buffer Commands Management {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	622
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	623 " Store the commands for Lawrencium-enabled buffers so that we can add them in
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	624 " batch when we need to.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	625 let s:main_commands = []
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	626
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	627 function! lawrencium#add_command(command) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	628 let s:main_commands += [a:command]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	629 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	630
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	631 function! lawrencium#define_commands()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	632 for l:command in s:main_commands
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	633 execute 'command! -buffer ' . l:command
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	634 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	635 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	636
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	637 augroup lawrencium_main
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	638 autocmd!
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	639 autocmd User Lawrencium call lawrencium#define_commands()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	640 augroup end
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	641
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	642 " Sets up the current buffer with Lawrencium commands if it contains a file from a Mercurial repo.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	643 " If the file is not in a Mercurial repo, just exit silently.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	644 function! lawrencium#setup_buffer_commands() abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	645 call lawrencium#trace("Scanning buffer '" . bufname('%') . "' for Lawrencium setup...")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	646 let l:do_setup = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	647 if exists('b:mercurial_dir')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	648 if b:mercurial_dir =~# '\v^\s*$'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	649 unlet b:mercurial_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	650 else
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	651 let l:do_setup = 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	652 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	653 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	654 try
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	655 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	656 catch /^lawrencium\:/
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	657 return
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	658 endtry
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	659 let b:mercurial_dir = l:repo.root_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	660 if exists('b:mercurial_dir') && l:do_setup
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	661 call lawrencium#trace("Setting Mercurial commands for buffer '" . bufname('%'))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	662 call lawrencium#trace(" with repo : " . expand(b:mercurial_dir))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	663 silent doautocmd User Lawrencium
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	664 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	665 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	666
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	667 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	668
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	669 " Commands Auto-Complete {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	670
154 40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	671 " Auto-complete %'d paths.
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	672 function! lawrencium#complete_percent_path(ArgLead) abort
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	673 if a:ArgLead[0] ==# '%' && (len(a:ArgLead) == 1 \|\| a:ArgLead[1] == ':')
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	674 let l:fnname = bufname()
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	675 if len(a:ArgLead) > 1
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	676 let l:fnmod = a:ArgLead[1:]
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	677 return [fnamemodify(l:fnname, l:fnmod)]
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	678 else
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	679 return [l:fnname]
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	680 endif
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	681 endif
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	682 return []
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	683 endfunction
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	684
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	685 " Auto-complete function for commands that take repo-relative file paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	686 function! lawrencium#list_repo_files(ArgLead, CmdLine, CursorPos) abort
154 40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	687 let l:matches = lawrencium#complete_percent_path(a:ArgLead)
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	688 if empty(l:matches)
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	689 let l:matches = lawrencium#hg_repo().Glob(a:ArgLead . '*', 1)
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	690 call map(l:matches, 'lawrencium#normalizepath(v:val)')
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	691 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	692 return l:matches
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	693 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	694
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	695 " Auto-complete function for commands that take repo-relative directory paths.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	696 function! lawrencium#list_repo_dirs(ArgLead, CmdLine, CursorPos) abort
154 40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	697 let l:matches = lawrencium#complete_percent_path(a:ArgLead)
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	698 if empty(l:matches)
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	699 let l:matches = lawrencium#hg_repo().Glob(a:ArgLead . '*/')
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	700 call map(l:matches, 'lawrencium#normalizepath(v:val)')
40181bd0ffcd Add support for %-paths in commands auto-completion Ludovic Chabant <ludovic@chabant.com> parents: 152 diff changeset	701 endif
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	702 return l:matches
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	703 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	704
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	705 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	706
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	707 " Lawrencium Files {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	708
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	709 " Generic read
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	710 let s:lawrencium_file_readers = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	711 let s:lawrencium_file_customoptions = {}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	712
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	713 function! lawrencium#add_reader(action, callback, ...) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	714 if has_key(s:lawrencium_file_readers, a:action)
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	715 call lawrencium#throwerr("Lawrencium file '".a:action."' has alredy been registered.")
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	716 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	717 let s:lawrencium_file_readers[a:action] = function(a:callback)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	718 if a:0 && a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	719 let s:lawrencium_file_customoptions[a:action] = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	720 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	721 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	722
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	723 function! lawrencium#read_lawrencium_file(path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	724 call lawrencium#trace("Reading Lawrencium file: " . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	725 let l:path_parts = lawrencium#parse_lawrencium_path(a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	726 if l:path_parts['root'] == ''
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	727 call lawrencium#throwerr("Can't get repository root from: " . a:path)
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	728 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	729 if !has_key(s:lawrencium_file_readers, l:path_parts['action'])
141 4d5f4233b04e Only set `v:errmsg` for real errors, not exceptions. Ludovic Chabant <ludovic@chabant.com> parents: 139 diff changeset	730 call lawrencium#throwerr("No registered reader for action: " . l:path_parts['action'])
139 065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	731 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	732
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	733 " Call the registered reader.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	734 let l:repo = lawrencium#hg_repo(l:path_parts['root'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	735 let l:full_path = l:repo.root_dir . l:path_parts['path']
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	736 let LawrenciumFileReader = s:lawrencium_file_readers[l:path_parts['action']]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	737 call LawrenciumFileReader(l:repo, l:path_parts, l:full_path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	738
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	739 " Setup the new buffer.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	740 if !has_key(s:lawrencium_file_customoptions, l:path_parts['action'])
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	741 setlocal readonly
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	742 setlocal nomodified
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	743 setlocal bufhidden=delete
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	744 setlocal buftype=nofile
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	745 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	746 goto
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	747
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	748 " Remember the real Lawrencium path, because Vim can fuck up the slashes
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	749 " on Windows.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	750 let b:lawrencium_path = a:path
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	751
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	752 " Remember the repo it belongs to and make
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	753 " the Lawrencium commands available.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	754 let b:mercurial_dir = l:repo.root_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	755 call lawrencium#define_commands()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	756
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	757 return ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	758 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	759
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	760 function! lawrencium#write_lawrencium_file(path) abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	761 call lawrencium#trace("Writing Lawrencium file: " . a:path)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	762 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	763
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	764 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	765
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	766 " Statusline {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	767
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	768 " Prints a summary of the current repo (if any) that's appropriate for
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	769 " displaying on the status line.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	770 function! lawrencium#statusline(...)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	771 if !exists('b:mercurial_dir')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	772 return ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	773 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	774 let l:repo = lawrencium#hg_repo()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	775 let l:prefix = (a:0 > 0 ? a:1 : '')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	776 let l:suffix = (a:0 > 1 ? a:2 : '')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	777 let l:branch = 'default'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	778 let l:branch_file = l:repo.GetFullPath('.hg/branch')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	779 if filereadable(l:branch_file)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	780 let l:branch = readfile(l:branch_file)[0]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	781 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	782 let l:bookmarks = ''
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	783 let l:bookmarks_file = l:repo.GetFullPath('.hg/bookmarks.current')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	784 if filereadable(l:bookmarks_file)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	785 let l:bookmarks = join(readfile(l:bookmarks_file), ', ')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	786 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	787 let l:line = l:prefix . l:branch
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	788 if strlen(l:bookmarks) > 0
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	789 let l:line = l:line . ' - ' . l:bookmarks
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	790 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	791 let l:line = l:line . l:suffix
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	792 return l:line
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	793 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	794
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	795 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	796
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	797 " Miscellaneous User Functions {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	798
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	799 " Rescans the current buffer for setting up Mercurial commands.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	800 " Passing '1' as the parameter enables debug traces temporarily.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	801 function! lawrencium#rescan(...)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	802 if exists('b:mercurial_dir')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	803 unlet b:mercurial_dir
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	804 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	805 if a:0 && a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	806 let l:trace_backup = g:lawrencium_trace
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	807 let g:lawrencium_trace = 1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	808 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	809 call lawrencium#setup_buffer_commands()
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	810 if a:0 && a:1
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	811 let g:lawrencium_trace = l:trace_backup
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	812 endif
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	813 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	814
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	815 " Enables/disables the debug trace.
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	816 function! lawrencium#debugtrace(...)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	817 let g:lawrencium_trace = (a:0 == 0 \|\| (a:0 && a:1))
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	818 echom "Lawrencium debug trace is now " . (g:lawrencium_trace ? "enabled." : "disabled.")
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	819 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	820
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	821 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	822
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	823 " Setup {{{
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	824
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	825 function! lawrencium#init() abort
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	826 let s:builtin_exts = [
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	827 \'lawrencium#addremove',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	828 \'lawrencium#annotate',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	829 \'lawrencium#cat',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	830 \'lawrencium#commit',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	831 \'lawrencium#diff',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	832 \'lawrencium#hg',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	833 \'lawrencium#log',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	834 \'lawrencium#mq',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	835 \'lawrencium#record',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	836 \'lawrencium#revert',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	837 \'lawrencium#status',
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	838 \'lawrencium#vimutils'
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	839 \]
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	840 let s:user_exts = copy(g:lawrencium_extensions)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	841 let s:exts = s:builtin_exts + s:user_exts
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	842 for ext in s:exts
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	843 call lawrencium#trace("Initializing Lawrencium extension " . ext)
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	844 execute ('call ' . ext . '#init()')
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	845 endfor
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	846 endfunction
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	847
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	848 " }}}
065625e1bb31 Split plugin file into multiple extensions. Ludovic Chabant <ludovic@chabant.com> parents: diff changeset	849

Mercurial > vim-lawrencium

annotate autoload/lawrencium.vim @ 154:40181bd0ffcd