Mercurial > vim-lawrencium
annotate plugin/lawrencium.vim @ 6:1da613c13d81
Better hg-status window.
Better debug/tracing.
| author | Ludovic Chabant <ludovic@chabant.com> |
|---|---|
| date | Fri, 09 Dec 2011 17:12:13 -0800 |
| parents | 3a4f9f41a7e2 |
| children | adc267e2f0f4 |
| rev | line source |
|---|---|
| 0 | 1 " lawrencium.vim - A Mercurial wrapper |
| 2 " Maintainer: Ludovic Chabant <http://ludovic.chabant.com> | |
| 3 " Version: 0.1 | |
| 4 | |
| 5 " Globals {{{ | |
| 6 | |
| 7 if !exists('g:lawrencium_debug') | |
| 8 let g:lawrencium_debug = 0 | |
| 9 endif | |
| 10 | |
| 11 if (exists('g:loaded_lawrencium') || &cp) && !g:lawrencium_debug | |
| 12 finish | |
| 13 endif | |
|
6
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
14 if (exists('g:loaded_lawrencium') && g:lawrencium_debug) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
15 echom "Reloaded Lawrencium." |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
16 endif |
| 0 | 17 let g:loaded_lawrencium = 1 |
| 18 | |
| 19 if !exists('g:lawrencium_hg_executable') | |
| 20 let g:lawrencium_hg_executable = 'hg' | |
| 21 endif | |
| 22 | |
| 23 if !exists('g:lawrencium_trace') | |
| 24 let g:lawrencium_trace = 0 | |
| 25 endif | |
| 26 | |
| 27 " }}} | |
| 28 | |
| 29 " Utility {{{ | |
| 30 | |
| 31 " Strips the ending slash in a path. | |
| 32 function! s:stripslash(path) | |
| 33 return fnamemodify(a:path, ':s?[/\\]$??') | |
| 34 endfunction | |
| 35 | |
| 36 " Normalizes the slashes in a path. | |
| 37 function! s:normalizepath(path) | |
| 38 if exists('+shellslash') && &shellslash | |
| 39 return substitute(a:path, '\\', '/', '') | |
| 40 elseif has('win32') | |
| 41 return substitute(a:path, '/', '\\', '') | |
| 42 else | |
| 43 return a:path | |
| 44 endif | |
| 45 endfunction | |
| 46 | |
| 47 " Prints a message if debug tracing is enabled. | |
|
6
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
48 function! s:trace(message, ...) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
49 if g:lawrencium_trace || (a:0 && a:1) |
| 0 | 50 let l:message = "lawrencium: " . a:message |
| 51 echom l:message | |
| 52 endif | |
| 53 endfunction | |
| 54 | |
| 55 " Throw a Lawrencium exception message. | |
| 56 function! s:throw(message) | |
| 57 let v:errmsg = "lawrencium: " . a:message | |
| 58 throw v:errmsg | |
| 59 endfunction | |
| 60 | |
| 61 " Finds the repository root given a path inside that repository. | |
| 62 " Throw an error if not repository is found. | |
| 63 function! s:find_repo_root(path) | |
| 64 let l:path = s:stripslash(a:path) | |
| 65 let l:previous_path = "" | |
| 66 while l:path != l:previous_path | |
| 67 if isdirectory(l:path . '/.hg/store') | |
| 68 return simplify(fnamemodify(l:path, ':p')) | |
| 69 endif | |
| 70 let l:previous_path = l:path | |
| 71 let l:path = fnamemodify(l:path, ':h') | |
| 72 endwhile | |
| 73 call s:throw("No Mercurial repository found above: " . a:path) | |
| 74 endfunction | |
| 75 | |
| 76 " }}} | |
| 77 | |
| 78 " Mercurial Repository {{{ | |
| 79 | |
| 80 " Let's define a Mercurial repo 'class' using prototype-based object-oriented | |
| 81 " programming. | |
| 82 " | |
| 83 " The prototype dictionary. | |
| 84 let s:HgRepo = {} | |
| 85 | |
| 86 " Constructor | |
| 87 function! s:HgRepo.New(path) abort | |
| 88 let l:newRepo = copy(self) | |
| 89 let l:newRepo.root_dir = s:find_repo_root(a:path) | |
| 90 call s:trace("Built new Mercurial repository object at : " . l:newRepo.root_dir) | |
| 91 return l:newRepo | |
| 92 endfunction | |
| 93 | |
| 94 " Gets a full path given a repo-relative path | |
| 95 function! s:HgRepo.GetFullPath(path) abort | |
| 96 let l:root_dir = self.root_dir | |
| 97 if a:path =~# '^[/\\]' | |
| 98 let l:root_dir = s:stripslash(l:root_dir) | |
| 99 endif | |
| 100 return l:root_dir . a:path | |
| 101 endfunction | |
| 102 | |
| 103 " Gets a list of files matching a root-relative pattern. | |
| 104 " If a flag is passed and is TRUE, a slash will be appended to all | |
| 105 " directories. | |
| 106 function! s:HgRepo.Glob(pattern, ...) abort | |
| 107 let l:root_dir = self.root_dir | |
| 108 if (a:pattern =~# '^[/\\]') | |
| 109 let l:root_dir = s:stripslash(l:root_dir) | |
| 110 endif | |
| 111 let l:matches = split(glob(l:root_dir . a:pattern), '\n') | |
| 112 if a:0 && a:1 | |
| 113 for l:idx in range(len(l:matches)) | |
| 114 if !filereadable(l:matches[l:idx]) | |
| 115 let l:matches[l:idx] = l:matches[l:idx] . '/' | |
| 116 endif | |
| 117 endfor | |
| 118 endif | |
| 119 let l:strip_len = len(l:root_dir) | |
| 120 call map(l:matches, 'v:val[l:strip_len : -1]') | |
| 121 return l:matches | |
| 122 endfunction | |
| 123 | |
| 124 " Runs a Mercurial command in the repo | |
| 125 function! s:HgRepo.RunCommand(command, ...) abort | |
| 126 let l:hg_command = g:lawrencium_hg_executable . ' --repository ' . shellescape(s:stripslash(self.root_dir)) | |
| 127 let l:hg_command = l:hg_command . ' ' . a:command . ' ' . join(a:000, ' ') | |
| 128 call s:trace("Running Mercurial command: " . l:hg_command) | |
| 129 return system(l:hg_command) | |
| 130 endfunction | |
| 131 | |
| 132 " Repo cache map | |
| 133 let s:buffer_repos = {} | |
| 134 | |
| 135 " Get a cached repo | |
| 136 function! s:hg_repo(...) abort | |
| 137 " Use the given path, or the mercurial directory of the current buffer. | |
| 138 if a:0 == 0 | |
| 139 if exists('b:mercurial_dir') | |
| 140 let l:path = b:mercurial_dir | |
| 141 else | |
| 142 let l:path = s:find_repo_root(expand('%:p')) | |
| 143 endif | |
| 144 else | |
| 145 let l:path = a:1 | |
| 146 endif | |
| 147 " Find a cache repo instance, or make a new one. | |
| 148 if has_key(s:buffer_repos, l:path) | |
| 149 return get(s:buffer_repos, l:path) | |
| 150 else | |
| 151 let l:repo = s:HgRepo.New(l:path) | |
| 152 let s:buffer_repos[l:path] = l:repo | |
| 153 return l:repo | |
| 154 endif | |
| 155 endfunction | |
| 156 | |
| 157 " Sets up the current buffer with Lawrencium commands if it contains a file from a Mercurial repo. | |
| 158 " If the file is not in a Mercurial repo, just exit silently. | |
| 159 function! s:setup_buffer_commands() abort | |
| 160 call s:trace("Scanning buffer '" . bufname('%') . "' for Lawrencium setup...") | |
| 161 let l:do_setup = 1 | |
| 162 if exists('b:mercurial_dir') | |
| 163 if b:mercurial_dir =~# '/^\s*$/' | |
| 164 unlet b:mercurial_dir | |
| 165 else | |
| 166 let l:do_setup = 0 | |
| 167 endif | |
| 168 endif | |
| 169 try | |
| 170 let l:repo = s:hg_repo() | |
| 171 catch /^lawrencium\:/ | |
| 172 return | |
| 173 endtry | |
| 174 let b:mercurial_dir = l:repo.root_dir | |
| 175 if exists('b:mercurial_dir') && l:do_setup | |
| 176 call s:trace("Setting Mercurial commands for buffer '" . bufname('%')) | |
| 177 call s:trace(" with repo : " . expand(b:mercurial_dir)) | |
| 178 silent doautocmd User Lawrencium | |
| 179 endif | |
| 180 endfunction | |
| 181 | |
| 182 augroup lawrencium_detect | |
| 183 autocmd! | |
| 184 autocmd BufNewFile,BufReadPost * call s:setup_buffer_commands() | |
| 185 autocmd VimEnter * if expand('<amatch>')==''|call s:setup_buffer_commands()|endif | |
| 186 augroup end | |
| 187 | |
| 188 " }}} | |
| 189 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
190 " Main Buffer Commands {{{ |
| 0 | 191 |
| 192 let s:main_commands = [] | |
| 193 | |
| 194 function! s:AddMainCommand(command) abort | |
| 195 let s:main_commands += [a:command] | |
| 196 endfunction | |
| 197 | |
| 198 function! s:DefineMainCommands() | |
| 199 for l:command in s:main_commands | |
| 200 execute 'command! -buffer ' . l:command | |
| 201 endfor | |
| 202 endfunction | |
| 203 | |
| 204 augroup lawrencium_main | |
| 205 autocmd! | |
| 206 autocmd User Lawrencium call s:DefineMainCommands() | |
| 207 augroup end | |
| 208 | |
| 209 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
210 " Hg {{{ |
| 0 | 211 |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
212 function! s:Hg(...) abort |
| 0 | 213 let l:repo = s:hg_repo() |
| 214 echo call(l:repo.RunCommand, a:000, l:repo) | |
| 215 endfunction | |
| 216 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
217 call s:AddMainCommand("-nargs=* Hg :execute s:Hg(<f-args>)") |
| 0 | 218 |
| 219 " }}} | |
| 220 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
221 " Hgstatus {{{ |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
222 |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
223 let s:hg_status_messages = { |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
224 \'M': 'modified', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
225 \'A': 'added', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
226 \'R': 'removed', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
227 \'C': 'clean', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
228 \'!': 'missing', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
229 \'?': 'not tracked', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
230 \'I': 'ignored', |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
231 \} |
| 0 | 232 |
| 233 function! s:HgStatus() abort | |
|
6
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
234 " Get the repo and the `hg status` output. |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
235 let l:repo = s:hg_repo() |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
236 let l:status_text = l:repo.RunCommand('status') |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
237 let l:status_lines = split(l:status_text, '\n') |
|
6
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
238 |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
239 " Open a new temp buffer in the preview window, jump to it, |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
240 " and paste the `hg status` output in there. |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
241 " Also, make it a nice size, but restore the `previewheight` setting after |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
242 " we're done. |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
243 let l:temp_file = tempname() |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
244 let l:preview_height = &previewheight |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
245 execute "setlocal previewheight=" . (len(l:status_lines) + 1) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
246 execute "pedit " . l:temp_file |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
247 wincmd p |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
248 call append(0, l:status_lines) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
249 execute "setlocal previewheight=" . l:preview_height |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
250 |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
251 " Setup the buffer correctly. |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
252 let b:mercurial_dir = l:repo.root_dir |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
253 setlocal buftype=nofile |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
254 setlocal nomodified |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
255 setlocal nomodifiable |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
256 setlocal readonly |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
257 |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
258 " Add some handy mappings. |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
259 nnoremap <buffer> <silent> <C-N> :call search('^[MARC\!\?I ]\s.', 'We')<cr> |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
260 nnoremap <buffer> <silent> <C-P> :call search('^[MARC\!\?I ]\s.','Wbe')<cr> |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
261 nnoremap <buffer> <silent> <cr> :execute <SID>HgStatus_FileEdit()<cr> |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
262 nnoremap <buffer> <silent> q :bdelete<cr> |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
263 endfunction |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
264 |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
265 function! s:HgStatus_FileEdit() abort |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
266 let l:repo = s:hg_repo() |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
267 let l:line = getline('.') |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
268 " Yay, awesome, Vim's regex syntax is fucked up like shit, especially for |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
269 " look-aheads and look-behinds. See for yourself: |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
270 let l:filename = matchstr(l:line, '\([MARC\!\?I ]\s\)\@<=.*') |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
271 let l:filename = l:repo.GetFullPath(l:filename) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
272 " Go back to the previous window and open the file there, or open an |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
273 " existing buffer. |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
274 wincmd p |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
275 if bufexists(l:filename) |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
276 execute 'buffer ' . l:filename |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
277 else |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
278 execute 'edit ' . l:filename |
|
1da613c13d81
Better hg-status window.
Ludovic Chabant <ludovic@chabant.com>
parents:
5
diff
changeset
|
279 endif |
| 0 | 280 endfunction |
| 281 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
282 call s:AddMainCommand("Hgstatus :execute s:HgStatus()") |
| 0 | 283 |
| 284 " }}} | |
| 285 | |
| 286 " Hgcd, Hglcd {{{ | |
| 287 | |
| 288 function! s:ListRepoDirs(ArgLead, CmdLine, CursorPos) abort | |
| 289 let l:matches = s:hg_repo().Glob(a:ArgLead . '*/') | |
| 290 call map(l:matches, 's:normalizepath(v:val)') | |
| 291 return l:matches | |
| 292 endfunction | |
| 293 | |
| 294 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoDirs Hgcd :cd<bang> `=s:hg_repo().GetFullPath(<q-args>)`") | |
| 295 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoDirs Hglcd :lcd<bang> `=s:hg_repo().GetFullPath(<q-args>)`") | |
| 296 | |
| 297 " }}} | |
| 298 | |
| 299 " Hgedit {{{ | |
| 300 | |
| 301 function! s:ListRepoFiles(ArgLead, CmdLine, CursorPos) abort | |
| 302 let l:matches = s:hg_repo().Glob(a:ArgLead . '*', 1) | |
| 303 call map(l:matches, 's:normalizepath(v:val)') | |
| 304 return l:matches | |
| 305 endfunction | |
| 306 | |
| 307 call s:AddMainCommand("-bang -nargs=? -complete=customlist,s:ListRepoFiles Hgedit :edit<bang> `=s:hg_repo().GetFullPath(<q-args>)`") | |
| 308 | |
| 309 " }}} | |
| 310 | |
|
4
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
311 " }}} |
|
b6e4446ed292
HgStatus now outputs to the location window.
Ludovic Chabant <ludovic@chabant.com>
parents:
0
diff
changeset
|
312 |
| 0 | 313 " Autoload Functions {{{ |
| 314 | |
| 315 " Prints a summary of the current repo (if any) that's appropriate for | |
| 316 " displaying on the status line. | |
| 317 function! lawrencium#statusline(...) | |
| 318 if !exists('b:mercurial_dir') | |
| 319 return '' | |
| 320 endif | |
|
5
3a4f9f41a7e2
Use a hackish shortcut to get the current branch faster for the statusline.
Ludovic Chabant <ludovic@chabant.com>
parents:
4
diff
changeset
|
321 let l:prefix = (a:0 > 0 ? a:1 : '') |
|
3a4f9f41a7e2
Use a hackish shortcut to get the current branch faster for the statusline.
Ludovic Chabant <ludovic@chabant.com>
parents:
4
diff
changeset
|
322 let l:suffix = (a:0 > 1 ? a:2 : '') |
|
3a4f9f41a7e2
Use a hackish shortcut to get the current branch faster for the statusline.
Ludovic Chabant <ludovic@chabant.com>
parents:
4
diff
changeset
|
323 let l:branch_file = s:hg_repo().GetFullPath('.hg/branch') |
|
3a4f9f41a7e2
Use a hackish shortcut to get the current branch faster for the statusline.
Ludovic Chabant <ludovic@chabant.com>
parents:
4
diff
changeset
|
324 let l:branch = readfile(l:branch_file)[0] |
|
3a4f9f41a7e2
Use a hackish shortcut to get the current branch faster for the statusline.
Ludovic Chabant <ludovic@chabant.com>
parents:
4
diff
changeset
|
325 return l:prefix . l:branch . l:suffix |
| 0 | 326 endfunction |
| 327 | |
| 328 " Rescans the current buffer for setting up Mercurial commands. | |
| 329 " Passing '1' as the parameter enables debug traces temporarily. | |
| 330 function! lawrencium#rescan(...) | |
| 331 if exists('b:mercurial_dir') | |
| 332 unlet b:mercurial_dir | |
| 333 endif | |
| 334 if a:0 && a:1 | |
| 335 let l:trace_backup = g:lawrencium_trace | |
| 336 let g:lawrencium_trace = 1 | |
| 337 endif | |
| 338 call s:setup_buffer_commands() | |
| 339 if a:0 && a:1 | |
| 340 let g:lawrencium_trace = l:trace_backup | |
| 341 endif | |
| 342 endfunction | |
| 343 | |
| 344 " Enables/disables the debug trace. | |
| 345 function! lawrencium#debugtrace(...) | |
| 346 let g:lawrencium_trace = (a:0 == 0 || (a:0 && a:1)) | |
| 347 echom "Lawrencium debug trace is now " . (g:lawrencium_trace ? "enabled." : "disabled.") | |
| 348 endfunction | |
| 349 | |
| 350 " }}} | |
| 351 |