mercurial-crew-with-dirclash: contrib/vim/hgcommand.vim annotate

annotate contrib/vim/hgcommand.vim @ 5461:ab4d2e9f3b97

convert: svn -- fix 'exists' Previously 'exists' erroneously returned False for empty dirictories. This is wrong since we want to detect even empty 'branches/' or 'tags/'.

author	Kirill Smelkov <kirr@landau.phys.spbu.ru>
date	Sat, 13 Oct 2007 15:22:03 +0400
parents	04d44c3d64f7
children

rev	line source
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1 " vim600: set foldmethod=marker:
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	2 "
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	3 " Vim plugin to assist in working with HG-controlled files.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	4 "
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	5 " Last Change: 2006/02/22
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	6 " Version: 1.77
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	7 " Maintainer: Mathieu Clabaut <mathieu.clabaut@gmail.com>
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	8 " License: This file is placed in the public domain.
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	9 " Credits:
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	10 " Bob Hiestand <bob.hiestand@gmail.com> for the fabulous
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	11 " cvscommand.vim from which this script was directly created by
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	12 " means of sed commands and minor tweaks.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	13
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	14 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	15 "
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	16 " Section: Documentation
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	17 "----------------------------
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	18 "
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	19 " Documentation should be available by ":help hgcommand" command, once the
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	20 " script has been copied in you .vim/plugin directory.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	21 "
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	22 " You still can read the documentation at the end of this file. Locate it by
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	23 " searching the "hgcommand-contents" string (and set ft=help to have
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	24 " appropriate syntaxic coloration).
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	25
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	26 " Section: Plugin header {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	27
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	28 " loaded_hgcommand is set to 1 when the initialization begins, and 2 when it
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	29 " completes. This allows various actions to only be taken by functions after
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	30 " system initialization.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	31
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	32 if exists("g:loaded_hgcommand")
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	33 finish
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	34 endif
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	35 let g:loaded_hgcommand = 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	36
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	37 " store 'compatible' settings
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	38 let s:save_cpo = &cpo
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	39 set cpo&vim
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	40
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	41 " run checks
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	42 let s:script_name = expand("<sfile>:t:r")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	43
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	44 function! s:HGCleanupOnFailure(err)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	45 echohl WarningMsg
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	46 echomsg s:script_name . ":" a:err "Plugin not loaded"
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	47 echohl None
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	48 let g:loaded_hgcommand = "no"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	49 unlet s:save_cpo s:script_name
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	50 endfunction
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	51
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	52 if v:version < 602
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	53 call <SID>HGCleanupOnFailure("VIM 6.2 or later required.")
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	54 finish
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	55 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	56
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	57 if !exists("*system")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	58 call <SID>HGCleanupOnFailure("builtin system() function required.")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	59 finish
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	60 endif
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	61
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	62 let s:script_version = "v0.2"
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	63
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	64 " Section: Event group setup {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	65
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	66 augroup HGCommand
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	67 augroup END
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	68
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	69 " Section: Plugin initialization {{{1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	70 silent do HGCommand User HGPluginInit
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	71
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	72 " Section: Script variable initialization {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	73
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	74 let s:HGCommandEditFileRunning = 0
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	75 unlet! s:vimDiffRestoreCmd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	76 unlet! s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	77 unlet! s:vimDiffBufferCount
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	78 unlet! s:vimDiffScratchList
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	79
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	80 " Section: Utility functions {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	81
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	82 " Function: s:HGResolveLink() {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	83 " Fully resolve the given file name to remove shortcuts or symbolic links.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	84
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	85 function! s:HGResolveLink(fileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	86 let resolved = resolve(a:fileName)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	87 if resolved != a:fileName
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	88 let resolved = <SID>HGResolveLink(resolved)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	89 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	90 return resolved
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	91 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	92
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	93 " Function: s:HGChangeToCurrentFileDir() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	94 " Go to the directory in which the current HG-controlled file is located.
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	95 " If this is a HG command buffer, first switch to the original file.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	96
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	97 function! s:HGChangeToCurrentFileDir(fileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	98 let oldCwd=getcwd()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	99 let fileName=<SID>HGResolveLink(a:fileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	100 let newCwd=fnamemodify(fileName, ':h')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	101 if strlen(newCwd) > 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	102 execute 'cd' escape(newCwd, ' ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	103 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	104 return oldCwd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	105 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	106
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	107 " Function: <SID>HGGetOption(name, default) {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	108 " Grab a user-specified option to override the default provided. Options are
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	109 " searched in the window, buffer, then global spaces.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	110
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	111 function! s:HGGetOption(name, default)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	112 if exists("s:" . a:name . "Override")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	113 execute "return s:".a:name."Override"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	114 elseif exists("w:" . a:name)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	115 execute "return w:".a:name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	116 elseif exists("b:" . a:name)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	117 execute "return b:".a:name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	118 elseif exists("g:" . a:name)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	119 execute "return g:".a:name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	120 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	121 return a:default
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	122 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	123 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	124
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	125 " Function: s:HGEditFile(name, origBuffNR) {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	126 " Wrapper around the 'edit' command to provide some helpful error text if the
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	127 " current buffer can't be abandoned. If name is provided, it is used;
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	128 " otherwise, a nameless scratch buffer is used.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	129 " Returns: 0 if successful, -1 if an error occurs.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	130
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	131 function! s:HGEditFile(name, origBuffNR)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	132 "Name parameter will be pasted into expression.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	133 let name = escape(a:name, ' *?\')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	134
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	135 let editCommand = <SID>HGGetOption('HGCommandEdit', 'edit')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	136 if editCommand != 'edit'
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	137 if <SID>HGGetOption('HGCommandSplit', 'horizontal') == 'horizontal'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	138 if name == ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	139 let editCommand = 'rightbelow new'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	140 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	141 let editCommand = 'rightbelow split ' . name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	142 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	143 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	144 if name == ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	145 let editCommand = 'vert rightbelow new'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	146 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	147 let editCommand = 'vert rightbelow split ' . name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	148 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	149 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	150 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	151 if name == ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	152 let editCommand = 'enew'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	153 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	154 let editCommand = 'edit ' . name
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	155 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	156 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	157
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	158 " Protect against useless buffer set-up
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	159 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning + 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	160 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	161 execute editCommand
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	162 finally
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	163 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning - 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	164 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	165
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	166 let b:HGOrigBuffNR=a:origBuffNR
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	167 let b:HGCommandEdit='split'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	168 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	169
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	170 " Function: s:HGCreateCommandBuffer(cmd, cmdName, statusText, filename) {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	171 " Creates a new scratch buffer and captures the output from execution of the
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	172 " given command. The name of the scratch buffer is returned.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	173
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	174 function! s:HGCreateCommandBuffer(cmd, cmdName, statusText, origBuffNR)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	175 let fileName=bufname(a:origBuffNR)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	176
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	177 let resultBufferName=''
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	178
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	179 if <SID>HGGetOption("HGCommandNameResultBuffers", 0)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	180 let nameMarker = <SID>HGGetOption("HGCommandNameMarker", '_')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	181 if strlen(a:statusText) > 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	182 let bufName=a:cmdName . ' -- ' . a:statusText
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	183 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	184 let bufName=a:cmdName
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	185 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	186 let bufName=fileName . ' ' . nameMarker . bufName . nameMarker
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	187 let counter=0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	188 let resultBufferName = bufName
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	189 while buflisted(resultBufferName)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	190 let counter=counter + 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	191 let resultBufferName=bufName . ' (' . counter . ')'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	192 endwhile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	193 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	194
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	195 let hgCommand = <SID>HGGetOption("HGCommandHGExec", "hg") . " " . a:cmd
2634 105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	196 "echomsg "DBG :".hgCommand
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	197 let hgOut = system(hgCommand)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	198 " HACK: diff command does not return proper error codes
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	199 if v:shell_error && a:cmdName != 'hgdiff'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	200 if strlen(hgOut) == 0
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	201 echoerr "HG command failed"
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	202 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	203 echoerr "HG command failed: " . hgOut
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	204 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	205 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	206 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	207 if strlen(hgOut) == 0
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	208 " Handle case of no output. In this case, it is important to check the
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	209 " file status, especially since hg edit/unedit may change the attributes
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	210 " of the file with no visible output.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	211
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	212 echomsg "No output from HG command"
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	213 checktime
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	214 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	215 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	216
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	217 if <SID>HGEditFile(resultBufferName, a:origBuffNR) == -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	218 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	219 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	220
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	221 set buftype=nofile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	222 set noswapfile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	223 set filetype=
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	224
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	225 if <SID>HGGetOption("HGCommandDeleteOnHide", 0)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	226 set bufhidden=delete
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	227 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	228
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	229 silent 0put=hgOut
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	230
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	231 " The last command left a blank line at the end of the buffer. If the
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	232 " last line is folded (a side effect of the 'put') then the attempt to
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	233 " remove the blank line will kill the last fold.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	234 "
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	235 " This could be fixed by explicitly detecting whether the last line is
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	236 " within a fold, but I prefer to simply unfold the result buffer altogether.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	237
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	238 if has("folding")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	239 setlocal nofoldenable
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	240 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	241
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	242 $d
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	243 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	244
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	245 " Define the environment and execute user-defined hooks.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	246
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	247 let b:HGSourceFile=fileName
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	248 let b:HGCommand=a:cmdName
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	249 if a:statusText != ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	250 let b:HGStatusText=a:statusText
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	251 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	252
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	253 silent do HGCommand User HGBufferCreated
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	254 return bufnr("%")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	255 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	256
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	257 " Function: s:HGBufferCheck(hgBuffer) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	258 " Attempts to locate the original file to which HG operations were applied
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	259 " for a given buffer.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	260
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	261 function! s:HGBufferCheck(hgBuffer)
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	262 let origBuffer = getbufvar(a:hgBuffer, "HGOrigBuffNR")
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	263 if origBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	264 if bufexists(origBuffer)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	265 return origBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	266 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	267 " Original buffer no longer exists.
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	268 return -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	269 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	270 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	271 " No original buffer
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	272 return a:hgBuffer
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	273 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	274 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	275
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	276 " Function: s:HGCurrentBufferCheck() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	277 " Attempts to locate the original file to which HG operations were applied
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	278 " for the current buffer.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	279
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	280 function! s:HGCurrentBufferCheck()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	281 return <SID>HGBufferCheck(bufnr("%"))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	282 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	283
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	284 " Function: s:HGToggleDeleteOnHide() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	285 " Toggles on and off the delete-on-hide behavior of HG buffers
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	286
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	287 function! s:HGToggleDeleteOnHide()
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	288 if exists("g:HGCommandDeleteOnHide")
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	289 unlet g:HGCommandDeleteOnHide
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	290 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	291 let g:HGCommandDeleteOnHide=1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	292 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	293 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	294
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	295 " Function: s:HGDoCommand(hgcmd, cmdName, statusText) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	296 " General skeleton for HG function execution.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	297 " Returns: name of the new command buffer containing the command results
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	298
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	299 function! s:HGDoCommand(cmd, cmdName, statusText)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	300 let hgBufferCheck=<SID>HGCurrentBufferCheck()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	301 if hgBufferCheck == -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	302 echo "Original buffer no longer exists, aborting."
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	303 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	304 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	305
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	306 let fileName=bufname(hgBufferCheck)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	307 if isdirectory(fileName)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	308 let fileName=fileName . "/" . getline(".")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	309 endif
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	310 let realFileName = fnamemodify(<SID>HGResolveLink(fileName), ':t')
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	311 let oldCwd=<SID>HGChangeToCurrentFileDir(fileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	312 try
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	313 " TODO
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	314 "if !filereadable('HG/Root')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	315 "throw fileName . ' is not a HG-controlled file.'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	316 "endif
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	317 let fullCmd = a:cmd . ' "' . realFileName . '"'
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	318 "echomsg "DEBUG".fullCmd
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	319 let resultBuffer=<SID>HGCreateCommandBuffer(fullCmd, a:cmdName, a:statusText, hgBufferCheck)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	320 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	321 catch
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	322 echoerr v:exception
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	323 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	324 finally
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	325 execute 'cd' escape(oldCwd, ' ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	326 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	327 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	328
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	329
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	330 " Function: s:HGGetStatusVars(revision, branch, repository) {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	331 "
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	332 " Obtains a HG revision number and branch name. The 'revisionVar',
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	333 " 'branchVar'and 'repositoryVar' arguments, if non-empty, contain the names of variables to hold
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	334 " the corresponding results.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	335 "
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	336 " Returns: string to be exec'd that sets the multiple return values.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	337
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	338 function! s:HGGetStatusVars(revisionVar, branchVar, repositoryVar)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	339 let hgBufferCheck=<SID>HGCurrentBufferCheck()
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	340 "echomsg "DBG : in HGGetStatusVars"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	341 if hgBufferCheck == -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	342 return ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	343 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	344 let fileName=bufname(hgBufferCheck)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	345 let fileNameWithoutLink=<SID>HGResolveLink(fileName)
2634 105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	346 let realFileName = fnamemodify(fileNameWithoutLink, ':t')
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	347 let oldCwd=<SID>HGChangeToCurrentFileDir(realFileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	348 try
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	349 let hgCommand = <SID>HGGetOption("HGCommandHGExec", "hg") . " root "
2634 105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	350 let roottext=system(hgCommand)
105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	351 " Suppress ending null char ! Does it work in window ?
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	352 let roottext=substitute(roottext,'^./$[^/\n\r]$\n\_.*$','\1','')
2634 105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	353 if match(getcwd()."/".fileNameWithoutLink, roottext) == -1
105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	354 return ""
105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	355 endif
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	356 let returnExpression = ""
2637 fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	357 if a:repositoryVar != ""
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	358 let returnExpression=returnExpression . " \| let " . a:repositoryVar . "='" . roottext . "'"
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	359 endif
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	360 let hgCommand = <SID>HGGetOption("HGCommandHGExec", "hg") . " status -mardui " . realFileName
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	361 let statustext=system(hgCommand)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	362 if(v:shell_error)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	363 return ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	364 endif
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	365 if match(statustext, '^[?I]') >= 0
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	366 let revision="NEW"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	367 elseif match(statustext, '^[R]') >= 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	368 let revision="REMOVED"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	369 elseif match(statustext, '^[D]') >= 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	370 let revision="DELETED"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	371 elseif match(statustext, '^[A]') >= 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	372 let revision="ADDED"
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	373 else
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	374 " The file is tracked, we can try to get is revision number
3528 bf48ca46139b hgcommand.vim: remove deprecated -b option from hg parents. Christian Ebert <blacktrash@gmx.net> parents: 2759 diff changeset	375 let hgCommand = <SID>HGGetOption("HGCommandHGExec", "hg") . " parents "
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	376 let statustext=system(hgCommand)
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	377 if(v:shell_error)
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	378 return ""
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	379 endif
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	380 let revision=substitute(statustext, '^changeset:\s$\d\+$:.\_$\_.*$', '\1', "")
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	381
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	382 if a:branchVar != "" && match(statustext, '^\_.*\_^branch:') >= 0
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	383 let branch=substitute(statustext, '^\_.\_^branch:\s$\S\+$\n\_.*$', '\1', "")
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	384 let returnExpression=returnExpression . " \| let " . a:branchVar . "='" . branch . "'"
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	385 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	386 endif
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	387 if (exists('revision'))
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	388 let returnExpression = "let " . a:revisionVar . "='" . revision . "' " . returnExpression
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	389 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	390
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	391 return returnExpression
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	392 finally
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	393 execute 'cd' escape(oldCwd, ' ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	394 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	395 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	396
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	397 " Function: s:HGSetupBuffer() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	398 " Attempts to set the b:HGBranch, b:HGRevision and b:HGRepository variables.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	399
2607 070736e20dfd HGcommand.vim : HGCommandEnableBufferSetup on by default "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2606 diff changeset	400 function! s:HGSetupBuffer(...)
070736e20dfd HGcommand.vim : HGCommandEnableBufferSetup on by default "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2606 diff changeset	401 if (exists("b:HGBufferSetup") && b:HGBufferSetup && !exists('a:1'))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	402 " This buffer is already set up.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	403 return
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	404 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	405
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	406 if !<SID>HGGetOption("HGCommandEnableBufferSetup", 0)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	407 \ \|\| @% == ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	408 \ \|\| s:HGCommandEditFileRunning > 0
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	409 \ \|\| exists("b:HGOrigBuffNR")
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	410 unlet! b:HGRevision
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	411 unlet! b:HGBranch
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	412 unlet! b:HGRepository
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	413 return
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	414 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	415
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	416 if !filereadable(expand("%"))
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	417 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	418 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	419
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	420 let revision=""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	421 let branch=""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	422 let repository=""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	423
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	424 exec <SID>HGGetStatusVars('revision', 'branch', 'repository')
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	425 "echomsg "DBG ".revision."#".branch."#".repository
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	426 if revision != ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	427 let b:HGRevision=revision
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	428 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	429 unlet! b:HGRevision
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	430 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	431 if branch != ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	432 let b:HGBranch=branch
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	433 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	434 unlet! b:HGBranch
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	435 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	436 if repository != ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	437 let b:HGRepository=repository
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	438 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	439 unlet! b:HGRepository
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	440 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	441 silent do HGCommand User HGBufferSetup
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	442 let b:HGBufferSetup=1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	443 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	444
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	445 " Function: s:HGMarkOrigBufferForSetup(hgbuffer) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	446 " Resets the buffer setup state of the original buffer for a given HG buffer.
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	447 " Returns: The HG buffer number in a passthrough mode.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	448
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	449 function! s:HGMarkOrigBufferForSetup(hgBuffer)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	450 checktime
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	451 if a:hgBuffer != -1
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	452 let origBuffer = <SID>HGBufferCheck(a:hgBuffer)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	453 "This should never not work, but I'm paranoid
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	454 if origBuffer != a:hgBuffer
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	455 call setbufvar(origBuffer, "HGBufferSetup", 0)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	456 endif
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	457 else
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	458 "We are presumably in the original buffer
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	459 let b:HGBufferSetup = 0
733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	460 "We do the setup now as now event will be triggered allowing it later.
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	461 call <SID>HGSetupBuffer()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	462 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	463 return a:hgBuffer
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	464 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	465
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	466 " Function: s:HGOverrideOption(option, [value]) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	467 " Provides a temporary override for the given HG option. If no value is
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	468 " passed, the override is disabled.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	469
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	470 function! s:HGOverrideOption(option, ...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	471 if a:0 == 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	472 unlet! s:{a:option}Override
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	473 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	474 let s:{a:option}Override = a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	475 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	476 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	477
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	478 " Function: s:HGWipeoutCommandBuffers() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	479 " Clears all current HG buffers of the specified type for a given source.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	480
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	481 function! s:HGWipeoutCommandBuffers(originalBuffer, hgCommand)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	482 let buffer = 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	483 while buffer <= bufnr('$')
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	484 if getbufvar(buffer, 'HGOrigBuffNR') == a:originalBuffer
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	485 if getbufvar(buffer, 'HGCommand') == a:hgCommand
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	486 execute 'bw' buffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	487 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	488 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	489 let buffer = buffer + 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	490 endwhile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	491 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	492
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	493 " Function: s:HGInstallDocumentation(full_name, revision) {{{2
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	494 " Install help documentation.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	495 " Arguments:
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	496 " full_name: Full name of this vim plugin script, including path name.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	497 " revision: Revision of the vim script. #version# mark in the document file
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	498 " will be replaced with this string with 'v' prefix.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	499 " Return:
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	500 " 1 if new document installed, 0 otherwise.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	501 " Note: Cleaned and generalized by guo-peng Wen
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	502 "'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	503 " Helper function to make mkdir as portable as possible
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	504 function! s:HGFlexiMkdir(dir)
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	505 if exists("*mkdir") " we can use Vim's own mkdir()
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	506 call mkdir(a:dir)
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	507 elseif !exists("+shellslash")
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	508 call system("mkdir -p '".a:dir."'")
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	509 else " M$
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	510 let l:ssl = &shellslash
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	511 try
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	512 set shellslash
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	513 " no single quotes?
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	514 call system('mkdir "'.a:dir.'"')
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	515 finally
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	516 let &shellslash = l:ssl
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	517 endtry
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	518 endif
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	519 endfunction
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	520
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	521 function! s:HGInstallDocumentation(full_name)
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	522 " Figure out document path based on full name of this script:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	523 let l:vim_doc_path = fnamemodify(a:full_name, ":h:h") . "/doc"
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	524 if filewritable(l:vim_doc_path) != 2
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	525 echomsg s:script_name . ": Trying to update docs at" l:vim_doc_path
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	526 silent! call <SID>HGFlexiMkdir(l:vim_doc_path)
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	527 if filewritable(l:vim_doc_path) != 2
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	528 " Try first item in 'runtimepath':
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	529 let l:vim_doc_path =
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	530 \ substitute(&runtimepath, '^$[^,]$.', '\1/doc', 'e')
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	531 if filewritable(l:vim_doc_path) != 2
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	532 echomsg s:script_name . ": Trying to update docs at" l:vim_doc_path
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	533 silent! call <SID>HGFlexiMkdir(l:vim_doc_path)
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	534 if filewritable(l:vim_doc_path) != 2
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	535 " Put a warning:
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	536 echomsg "Unable to open documentation directory"
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	537 echomsg " type `:help add-local-help' for more information."
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	538 return 0
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	539 endif
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	540 endif
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	541 endif
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	542 endif
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	543
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	544 " Full name of documentation file:
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	545 let l:doc_file =
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	546 \ l:vim_doc_path . "/" . s:script_name . ".txt"
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	547 " Bail out if document file is still up to date:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	548 if filereadable(l:doc_file) &&
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	549 \ getftime(a:full_name) < getftime(l:doc_file)
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	550 return 0
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	551 endif
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	552
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	553 " temporary global settings
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	554 let l:lz = &lazyredraw
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	555 let l:hls = &hlsearch
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	556 set lazyredraw nohlsearch
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	557 " Create a new buffer & read in the plugin file (me):
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	558 1 new
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	559 setlocal noswapfile modifiable nomodeline
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	560 if has("folding")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	561 setlocal nofoldenable
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	562 endif
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	563 silent execute "read" escape(a:full_name, " ")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	564 let l:doc_buf = bufnr("%")
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	565
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	566 1
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	567 " Delete from first line to a line starts with
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	568 " === START_DOC
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	569 silent 1,/^=\{3,}\s\+START_DOC\C/ delete _
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	570 " Delete from a line starts with
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	571 " === END_DOC
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	572 " to the end of the documents:
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	573 silent /^=\{3,}\s\+END_DOC\C/,$ delete _
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	574
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	575 " Add modeline for help doc: the modeline string is mangled intentionally
0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	576 " to avoid it be recognized by VIM:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	577 call append(line("$"), "")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	578 call append(line("$"), " v" . "im:tw=78:ts=8:ft=help:norl:")
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	579
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	580 " Replace revision:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	581 silent execute "normal :1s/#version#/" . s:script_version . "/\<CR>"
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	582 " Save the help document and wipe out buffer:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	583 silent execute "wq!" escape(l:doc_file, " ") "\| bw" l:doc_buf
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	584 " Build help tags:
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	585 silent execute "helptags" l:vim_doc_path
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	586
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	587 let &hlsearch = l:hls
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	588 let &lazyredraw = l:lz
2733 0b7206a65325 hgcommand.vim: cleanup of doc self-install code Christian Ebert <blacktrash@gmx.net> parents: 2638 diff changeset	589 return 1
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	590 endfunction
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	591
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	592 " Section: Public functions {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	593
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	594 " Function: HGGetRevision() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	595 " Global function for retrieving the current buffer's HG revision number.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	596 " Returns: Revision number or an empty string if an error occurs.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	597
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	598 function! HGGetRevision()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	599 let revision=""
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	600 exec <SID>HGGetStatusVars('revision', '', '')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	601 return revision
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	602 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	603
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	604 " Function: HGDisableBufferSetup() {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	605 " Global function for deactivating the buffer autovariables.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	606
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	607 function! HGDisableBufferSetup()
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	608 let g:HGCommandEnableBufferSetup=0
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	609 silent! augroup! HGCommandPlugin
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	610 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	611
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	612 " Function: HGEnableBufferSetup() {{{2
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	613 " Global function for activating the buffer autovariables.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	614
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	615 function! HGEnableBufferSetup()
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	616 let g:HGCommandEnableBufferSetup=1
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	617 augroup HGCommandPlugin
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	618 au!
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	619 au BufEnter * call <SID>HGSetupBuffer()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	620 au BufWritePost * call <SID>HGSetupBuffer()
2607 070736e20dfd HGcommand.vim : HGCommandEnableBufferSetup on by default "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2606 diff changeset	621 " Force resetting up buffer on external file change (HG update)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	622 au FileChangedShell * call <SID>HGSetupBuffer(1)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	623 augroup END
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	624
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	625 " Only auto-load if the plugin is fully loaded. This gives other plugins a
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	626 " chance to run.
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	627 if g:loaded_hgcommand == 2
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	628 call <SID>HGSetupBuffer()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	629 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	630 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	631
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	632 " Function: HGGetStatusLine() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	633 " Default (sample) status line entry for HG files. This is only useful if
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	634 " HG-managed buffer mode is on (see the HGCommandEnableBufferSetup variable
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	635 " for how to do this).
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	636
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	637 function! HGGetStatusLine()
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	638 if exists('b:HGSourceFile')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	639 " This is a result buffer
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	640 let value='[' . b:HGCommand . ' ' . b:HGSourceFile
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	641 if exists('b:HGStatusText')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	642 let value=value . ' ' . b:HGStatusText
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	643 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	644 let value = value . ']'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	645 return value
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	646 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	647
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	648 if exists('b:HGRevision')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	649 \ && b:HGRevision != ''
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	650 \ && exists('b:HGRepository')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	651 \ && b:HGRepository != ''
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	652 \ && exists('g:HGCommandEnableBufferSetup')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	653 \ && g:HGCommandEnableBufferSetup
2606 5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	654 if !exists('b:HGBranch')
5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	655 let l:branch=''
5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	656 else
5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	657 let l:branch=b:HGBranch
5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	658 endif
5cef1a92aa04 HGcommand.vim : HGGetStatusLine accept to display an empty 'branch' value "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2605 diff changeset	659 return '[HG ' . b:HGRepository . '/' . l:branch .'/' . b:HGRevision . ']'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	660 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	661 return ''
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	662 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	663 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	664
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	665 " Section: HG command functions {{{1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	666
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	667 " Function: s:HGAdd() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	668 function! s:HGAdd()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	669 return <SID>HGMarkOrigBufferForSetup(<SID>HGDoCommand('add', 'hgadd', ''))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	670 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	671
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	672 " Function: s:HGAnnotate(...) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	673 function! s:HGAnnotate(...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	674 if a:0 == 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	675 if &filetype == "HGAnnotate"
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	676 " This is a HGAnnotate buffer. Perform annotation of the version
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	677 " indicated by the current line.
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	678 let revision = substitute(getline("."),'$^[0-9]$:.','\1','')
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	679 if <SID>HGGetOption('HGCommandAnnotateParent', 0) != 0 && revision > 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	680 let revision = revision - 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	681 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	682 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	683 let revision=HGGetRevision()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	684 if revision == ""
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	685 echoerr "Unable to obtain HG version information."
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	686 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	687 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	688 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	689 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	690 let revision=a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	691 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	692
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	693 if revision == "NEW"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	694 echo "No annotatation available for new file."
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	695 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	696 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	697
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	698 let resultBuffer=<SID>HGDoCommand('annotate -ndu -r ' . revision, 'hgannotate', revision)
2634 105708ba518f Test if file is below an HG root before doing anything "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2607 diff changeset	699 "echomsg "DBG: ".resultBuffer
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	700 if resultBuffer != -1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	701 set filetype=HGAnnotate
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	702 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	703
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	704 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	705 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	706
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	707 " Function: s:HGCommit() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	708 function! s:HGCommit(...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	709 " Handle the commit message being specified. If a message is supplied, it
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	710 " is used; if bang is supplied, an empty message is used; otherwise, the
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	711 " user is provided a buffer from which to edit the commit message.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	712 if a:2 != "" \|\| a:1 == "!"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	713 return <SID>HGMarkOrigBufferForSetup(<SID>HGDoCommand('commit -m "' . a:2 . '"', 'hgcommit', ''))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	714 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	715
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	716 let hgBufferCheck=<SID>HGCurrentBufferCheck()
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	717 if hgBufferCheck == -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	718 echo "Original buffer no longer exists, aborting."
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	719 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	720 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	721
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	722 " Protect against windows' backslashes in paths. They confuse exec'd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	723 " commands.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	724
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	725 let shellSlashBak = &shellslash
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	726 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	727 set shellslash
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	728
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	729 let messageFileName = tempname()
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	730
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	731 let fileName=bufname(hgBufferCheck)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	732 let realFilePath=<SID>HGResolveLink(fileName)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	733 let newCwd=fnamemodify(realFilePath, ':h')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	734 if strlen(newCwd) == 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	735 " Account for autochdir being in effect, which will make this blank, but
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	736 " we know we'll be in the current directory for the original file.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	737 let newCwd = getcwd()
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	738 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	739
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	740 let realFileName=fnamemodify(realFilePath, ':t')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	741
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	742 if <SID>HGEditFile(messageFileName, hgBufferCheck) == -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	743 return
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	744 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	745
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	746 " Protect against case and backslash issues in Windows.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	747 let autoPattern = '\c' . messageFileName
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	748
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	749 " Ensure existance of group
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	750 augroup HGCommit
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	751 augroup END
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	752
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	753 execute 'au HGCommit BufDelete' autoPattern 'call delete("' . messageFileName . '")'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	754 execute 'au HGCommit BufDelete' autoPattern 'au! HGCommit * ' autoPattern
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	755
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	756 " Create a commit mapping. The mapping must clear all autocommands in case
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	757 " it is invoked when HGCommandCommitOnWrite is active, as well as to not
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	758 " invoke the buffer deletion autocommand.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	759
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	760 execute 'nnoremap <silent> <buffer> <Plug>HGCommit '.
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	761 \ ':au! HGCommit * ' . autoPattern . '<CR>'.
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	762 \ ':g/^HG:/d<CR>'.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	763 \ ':update<CR>'.
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	764 \ ':call <SID>HGFinishCommit("' . messageFileName . '",' .
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	765 \ '"' . newCwd . '",' .
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	766 \ '"' . realFileName . '",' .
2636 733fff9b23f7 Do not try to get revision and branch information for file which are not tracked "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2635 diff changeset	767 \ hgBufferCheck . ')<CR>'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	768
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	769 silent 0put ='HG: ----------------------------------------------------------------------'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	770 silent put =\"HG: Enter Log. Lines beginning with `HG:' are removed automatically\"
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	771 silent put ='HG: Type <leader>cc (or your own <Plug>HGCommit mapping)'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	772
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	773 if <SID>HGGetOption('HGCommandCommitOnWrite', 1) == 1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	774 execute 'au HGCommit BufWritePre' autoPattern 'g/^HG:/d'
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	775 execute 'au HGCommit BufWritePost' autoPattern 'call <SID>HGFinishCommit("' . messageFileName . '", "' . newCwd . '", "' . realFileName . '", ' . hgBufferCheck . ') \| au! * ' autoPattern
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	776 silent put ='HG: or write this buffer'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	777 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	778
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	779 silent put ='HG: to finish this commit operation'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	780 silent put ='HG: ----------------------------------------------------------------------'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	781 $
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	782 let b:HGSourceFile=fileName
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	783 let b:HGCommand='HGCommit'
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	784 set filetype=hg
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	785 finally
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	786 let &shellslash = shellSlashBak
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	787 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	788
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	789 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	790
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	791 " Function: s:HGDiff(...) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	792 function! s:HGDiff(...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	793 if a:0 == 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	794 let revOptions = '-r' . a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	795 let caption = a:1 . ' -> current'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	796 elseif a:0 == 2
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	797 let revOptions = '-r' . a:1 . ' -r' . a:2
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	798 let caption = a:1 . ' -> ' . a:2
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	799 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	800 let revOptions = ''
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	801 let caption = ''
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	802 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	803
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	804 let hgdiffopt=<SID>HGGetOption('HGCommandDiffOpt', 'w')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	805
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	806 if hgdiffopt == ""
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	807 let diffoptionstring=""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	808 else
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	809 let diffoptionstring=" -" . hgdiffopt . " "
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	810 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	811
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	812 let resultBuffer = <SID>HGDoCommand('diff ' . diffoptionstring . revOptions , 'hgdiff', caption)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	813 if resultBuffer != -1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	814 set filetype=diff
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	815 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	816 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	817 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	818
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	819
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	820 " Function: s:HGGotoOriginal(["!]) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	821 function! s:HGGotoOriginal(...)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	822 let origBuffNR = <SID>HGCurrentBufferCheck()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	823 if origBuffNR > 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	824 let origWinNR = bufwinnr(origBuffNR)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	825 if origWinNR == -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	826 execute 'buffer' origBuffNR
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	827 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	828 execute origWinNR . 'wincmd w'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	829 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	830 if a:0 == 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	831 if a:1 == "!"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	832 let buffnr = 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	833 let buffmaxnr = bufnr("$")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	834 while buffnr <= buffmaxnr
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	835 if getbufvar(buffnr, "HGOrigBuffNR") == origBuffNR
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	836 execute "bw" buffnr
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	837 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	838 let buffnr = buffnr + 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	839 endwhile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	840 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	841 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	842 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	843 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	844
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	845 " Function: s:HGFinishCommit(messageFile, targetDir, targetFile) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	846 function! s:HGFinishCommit(messageFile, targetDir, targetFile, origBuffNR)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	847 if filereadable(a:messageFile)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	848 let oldCwd=getcwd()
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	849 if strlen(a:targetDir) > 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	850 execute 'cd' escape(a:targetDir, ' ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	851 endif
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	852 let resultBuffer=<SID>HGCreateCommandBuffer('commit -l "' . a:messageFile . '" "'. a:targetFile . '"', 'hgcommit', '', a:origBuffNR)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	853 execute 'cd' escape(oldCwd, ' ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	854 execute 'bw' escape(a:messageFile, ' *?\')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	855 silent execute 'call delete("' . a:messageFile . '")'
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	856 return <SID>HGMarkOrigBufferForSetup(resultBuffer)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	857 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	858 echoerr "Can't read message file; no commit is possible."
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	859 return -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	860 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	861 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	862
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	863 " Function: s:HGLog() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	864 function! s:HGLog(...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	865 if a:0 == 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	866 let versionOption = ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	867 let caption = ''
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	868 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	869 let versionOption=" -r" . a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	870 let caption = a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	871 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	872
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	873 let resultBuffer=<SID>HGDoCommand('log' . versionOption, 'hglog', caption)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	874 if resultBuffer != ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	875 set filetype=rcslog
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	876 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	877 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	878 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	879
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	880 " Function: s:HGRevert() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	881 function! s:HGRevert()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	882 return <SID>HGMarkOrigBufferForSetup(<SID>HGDoCommand('revert', 'hgrevert', ''))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	883 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	884
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	885 " Function: s:HGReview(...) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	886 function! s:HGReview(...)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	887 if a:0 == 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	888 let versiontag=""
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	889 if <SID>HGGetOption('HGCommandInteractive', 0)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	890 let versiontag=input('Revision: ')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	891 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	892 if versiontag == ""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	893 let versiontag="(current)"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	894 let versionOption=""
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	895 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	896 let versionOption=" -r " . versiontag . " "
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	897 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	898 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	899 let versiontag=a:1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	900 let versionOption=" -r " . versiontag . " "
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	901 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	902
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	903 let resultBuffer = <SID>HGDoCommand('cat' . versionOption, 'hgreview', versiontag)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	904 if resultBuffer > 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	905 let &filetype=getbufvar(b:HGOrigBuffNR, '&filetype')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	906 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	907
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	908 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	909 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	910
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	911 " Function: s:HGStatus() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	912 function! s:HGStatus()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	913 return <SID>HGDoCommand('status', 'hgstatus', '')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	914 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	915
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	916
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	917 " Function: s:HGUpdate() {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	918 function! s:HGUpdate()
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	919 return <SID>HGMarkOrigBufferForSetup(<SID>HGDoCommand('update', 'update', ''))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	920 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	921
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	922 " Function: s:HGVimDiff(...) {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	923 function! s:HGVimDiff(...)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	924 let originalBuffer = <SID>HGCurrentBufferCheck()
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	925 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning + 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	926 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	927 " If there's already a VimDiff'ed window, restore it.
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	928 " There may only be one HGVimDiff original window at a time.
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	929
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	930 if exists("s:vimDiffSourceBuffer") && s:vimDiffSourceBuffer != originalBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	931 " Clear the existing vimdiff setup by removing the result buffers.
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	932 call <SID>HGWipeoutCommandBuffers(s:vimDiffSourceBuffer, 'vimdiff')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	933 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	934
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	935 " Split and diff
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	936 if(a:0 == 2)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	937 " Reset the vimdiff system, as 2 explicit versions were provided.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	938 if exists('s:vimDiffSourceBuffer')
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	939 call <SID>HGWipeoutCommandBuffers(s:vimDiffSourceBuffer, 'vimdiff')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	940 endif
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	941 let resultBuffer = <SID>HGReview(a:1)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	942 if resultBuffer < 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	943 echomsg "Can't open HG revision " . a:1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	944 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	945 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	946 let b:HGCommand = 'vimdiff'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	947 diffthis
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	948 let s:vimDiffBufferCount = 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	949 let s:vimDiffScratchList = '{'. resultBuffer . '}'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	950 " If no split method is defined, cheat, and set it to vertical.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	951 try
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	952 call <SID>HGOverrideOption('HGCommandSplit', <SID>HGGetOption('HGCommandDiffSplit', <SID>HGGetOption('HGCommandSplit', 'vertical')))
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	953 let resultBuffer=<SID>HGReview(a:2)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	954 finally
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	955 call <SID>HGOverrideOption('HGCommandSplit')
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	956 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	957 if resultBuffer < 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	958 echomsg "Can't open HG revision " . a:1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	959 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	960 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	961 let b:HGCommand = 'vimdiff'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	962 diffthis
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	963 let s:vimDiffBufferCount = 2
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	964 let s:vimDiffScratchList = s:vimDiffScratchList . '{'. resultBuffer . '}'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	965 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	966 " Add new buffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	967 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	968 " Force splitting behavior, otherwise why use vimdiff?
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	969 call <SID>HGOverrideOption("HGCommandEdit", "split")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	970 call <SID>HGOverrideOption("HGCommandSplit", <SID>HGGetOption('HGCommandDiffSplit', <SID>HGGetOption('HGCommandSplit', 'vertical')))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	971 if(a:0 == 0)
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	972 let resultBuffer=<SID>HGReview()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	973 else
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	974 let resultBuffer=<SID>HGReview(a:1)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	975 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	976 finally
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	977 call <SID>HGOverrideOption("HGCommandEdit")
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	978 call <SID>HGOverrideOption("HGCommandSplit")
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	979 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	980 if resultBuffer < 0
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	981 echomsg "Can't open current HG revision"
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	982 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	983 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	984 let b:HGCommand = 'vimdiff'
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	985 diffthis
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	986
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	987 if !exists('s:vimDiffBufferCount')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	988 " New instance of vimdiff.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	989 let s:vimDiffBufferCount = 2
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	990 let s:vimDiffScratchList = '{' . resultBuffer . '}'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	991
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	992 " This could have been invoked on a HG result buffer, not the
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	993 " original buffer.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	994 wincmd W
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	995 execute 'buffer' originalBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	996 " Store info for later original buffer restore
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	997 let s:vimDiffRestoreCmd =
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	998 \ "call setbufvar(".originalBuffer.", \"&diff\", ".getbufvar(originalBuffer, '&diff').")"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	999 \ . "\|call setbufvar(".originalBuffer.", \"&foldcolumn\", ".getbufvar(originalBuffer, '&foldcolumn').")"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1000 \ . "\|call setbufvar(".originalBuffer.", \"&foldenable\", ".getbufvar(originalBuffer, '&foldenable').")"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1001 \ . "\|call setbufvar(".originalBuffer.", \"&foldmethod\", '".getbufvar(originalBuffer, '&foldmethod')."')"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1002 \ . "\|call setbufvar(".originalBuffer.", \"&scrollbind\", ".getbufvar(originalBuffer, '&scrollbind').")"
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1003 \ . "\|call setbufvar(".originalBuffer.", \"&wrap\", ".getbufvar(originalBuffer, '&wrap').")"
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1004 \ . "\|if &foldmethod=='manual'\|execute 'normal! zE'\|endif"
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1005 diffthis
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1006 wincmd w
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1007 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1008 " Adding a window to an existing vimdiff
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1009 let s:vimDiffBufferCount = s:vimDiffBufferCount + 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1010 let s:vimDiffScratchList = s:vimDiffScratchList . '{' . resultBuffer . '}'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1011 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1012 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1013
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1014 let s:vimDiffSourceBuffer = originalBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1015
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1016 " Avoid executing the modeline in the current buffer after the autocommand.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1017
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1018 let currentBuffer = bufnr('%')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1019 let saveModeline = getbufvar(currentBuffer, '&modeline')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1020 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1021 call setbufvar(currentBuffer, '&modeline', 0)
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1022 silent do HGCommand User HGVimDiffFinish
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1023 finally
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1024 call setbufvar(currentBuffer, '&modeline', saveModeline)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1025 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1026 return resultBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1027 finally
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1028 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning - 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1029 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1030 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1031
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1032 " Section: Command definitions {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1033 " Section: Primary commands {{{2
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1034 com! HGAdd call <SID>HGAdd()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1035 com! -nargs=? HGAnnotate call <SID>HGAnnotate(<f-args>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1036 com! -bang -nargs=? HGCommit call <SID>HGCommit(<q-bang>, <q-args>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1037 com! -nargs=* HGDiff call <SID>HGDiff(<f-args>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1038 com! -bang HGGotoOriginal call <SID>HGGotoOriginal(<q-bang>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1039 com! -nargs=? HGLog call <SID>HGLog(<f-args>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1040 com! HGRevert call <SID>HGRevert()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1041 com! -nargs=? HGReview call <SID>HGReview(<f-args>)
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1042 com! HGStatus call <SID>HGStatus()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1043 com! HGUpdate call <SID>HGUpdate()
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1044 com! -nargs=* HGVimDiff call <SID>HGVimDiff(<f-args>)
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1045
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1046 " Section: HG buffer management commands {{{2
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1047 com! HGDisableBufferSetup call HGDisableBufferSetup()
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1048 com! HGEnableBufferSetup call HGEnableBufferSetup()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1049
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1050 " Allow reloading hgcommand.vim
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	1051 com! HGReload unlet! g:loaded_hgcommand \| runtime plugin/hgcommand.vim
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1052
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1053 " Section: Plugin command mappings {{{1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1054 nnoremap <silent> <Plug>HGAdd :HGAdd<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1055 nnoremap <silent> <Plug>HGAnnotate :HGAnnotate<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1056 nnoremap <silent> <Plug>HGCommit :HGCommit<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1057 nnoremap <silent> <Plug>HGDiff :HGDiff<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1058 nnoremap <silent> <Plug>HGGotoOriginal :HGGotoOriginal<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1059 nnoremap <silent> <Plug>HGClearAndGotoOriginal :HGGotoOriginal!<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1060 nnoremap <silent> <Plug>HGLog :HGLog<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1061 nnoremap <silent> <Plug>HGRevert :HGRevert<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1062 nnoremap <silent> <Plug>HGReview :HGReview<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1063 nnoremap <silent> <Plug>HGStatus :HGStatus<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1064 nnoremap <silent> <Plug>HGUpdate :HGUpdate<CR>
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1065 nnoremap <silent> <Plug>HGVimDiff :HGVimDiff<CR>
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1066
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1067 " Section: Default mappings {{{1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1068 if !hasmapto('<Plug>HGAdd')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1069 nmap <unique> <Leader>hga <Plug>HGAdd
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1070 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1071 if !hasmapto('<Plug>HGAnnotate')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1072 nmap <unique> <Leader>hgn <Plug>HGAnnotate
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1073 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1074 if !hasmapto('<Plug>HGClearAndGotoOriginal')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1075 nmap <unique> <Leader>hgG <Plug>HGClearAndGotoOriginal
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1076 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1077 if !hasmapto('<Plug>HGCommit')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1078 nmap <unique> <Leader>hgc <Plug>HGCommit
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1079 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1080 if !hasmapto('<Plug>HGDiff')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1081 nmap <unique> <Leader>hgd <Plug>HGDiff
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1082 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1083 if !hasmapto('<Plug>HGGotoOriginal')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1084 nmap <unique> <Leader>hgg <Plug>HGGotoOriginal
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1085 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1086 if !hasmapto('<Plug>HGLog')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1087 nmap <unique> <Leader>hgl <Plug>HGLog
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1088 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1089 if !hasmapto('<Plug>HGRevert')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1090 nmap <unique> <Leader>hgq <Plug>HGRevert
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1091 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1092 if !hasmapto('<Plug>HGReview')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1093 nmap <unique> <Leader>hgr <Plug>HGReview
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1094 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1095 if !hasmapto('<Plug>HGStatus')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1096 nmap <unique> <Leader>hgs <Plug>HGStatus
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1097 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1098 if !hasmapto('<Plug>HGUpdate')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1099 nmap <unique> <Leader>hgu <Plug>HGUpdate
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1100 endif
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1101 if !hasmapto('<Plug>HGVimDiff')
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1102 nmap <unique> <Leader>hgv <Plug>HGVimDiff
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1103 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1104
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1105 " Section: Menu items {{{1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1106 silent! aunmenu Plugin.HG
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1107 amenu <silent> &Plugin.HG.&Add <Plug>HGAdd
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1108 amenu <silent> &Plugin.HG.A&nnotate <Plug>HGAnnotate
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1109 amenu <silent> &Plugin.HG.&Commit <Plug>HGCommit
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1110 amenu <silent> &Plugin.HG.&Diff <Plug>HGDiff
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1111 amenu <silent> &Plugin.HG.&Log <Plug>HGLog
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1112 amenu <silent> &Plugin.HG.Revert <Plug>HGRevert
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1113 amenu <silent> &Plugin.HG.&Review <Plug>HGReview
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1114 amenu <silent> &Plugin.HG.&Status <Plug>HGStatus
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1115 amenu <silent> &Plugin.HG.&Update <Plug>HGUpdate
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1116 amenu <silent> &Plugin.HG.&VimDiff <Plug>HGVimDiff
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1117
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1118 " Section: Autocommands to restore vimdiff state {{{1
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1119 function! s:HGVimDiffRestore(vimDiffBuff)
457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1120 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning + 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1121 try
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1122 if exists("s:vimDiffSourceBuffer")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1123 if a:vimDiffBuff == s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1124 " Original file is being removed.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1125 unlet! s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1126 unlet! s:vimDiffBufferCount
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1127 unlet! s:vimDiffRestoreCmd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1128 unlet! s:vimDiffScratchList
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1129 elseif match(s:vimDiffScratchList, '{' . a:vimDiffBuff . '}') >= 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1130 let s:vimDiffScratchList = substitute(s:vimDiffScratchList, '{' . a:vimDiffBuff . '}', '', '')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1131 let s:vimDiffBufferCount = s:vimDiffBufferCount - 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1132 if s:vimDiffBufferCount == 1 && exists('s:vimDiffRestoreCmd')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1133 " All scratch buffers are gone, reset the original.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1134 " Only restore if the source buffer is still in Diff mode
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1135
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1136 let sourceWinNR=bufwinnr(s:vimDiffSourceBuffer)
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1137 if sourceWinNR != -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1138 " The buffer is visible in at least one window
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1139 let currentWinNR = winnr()
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1140 while winbufnr(sourceWinNR) != -1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1141 if winbufnr(sourceWinNR) == s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1142 execute sourceWinNR . 'wincmd w'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1143 if getwinvar('', "&diff")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1144 execute s:vimDiffRestoreCmd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1145 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1146 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1147 let sourceWinNR = sourceWinNR + 1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1148 endwhile
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1149 execute currentWinNR . 'wincmd w'
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1150 else
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1151 " The buffer is hidden. It must be visible in order to set the
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1152 " diff option.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1153 let currentBufNR = bufnr('')
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1154 execute "hide buffer" s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1155 if getwinvar('', "&diff")
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1156 execute s:vimDiffRestoreCmd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1157 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1158 execute "hide buffer" currentBufNR
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1159 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1160
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1161 unlet s:vimDiffRestoreCmd
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1162 unlet s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1163 unlet s:vimDiffBufferCount
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1164 unlet s:vimDiffScratchList
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1165 elseif s:vimDiffBufferCount == 0
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1166 " All buffers are gone.
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1167 unlet s:vimDiffSourceBuffer
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1168 unlet s:vimDiffBufferCount
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1169 unlet s:vimDiffScratchList
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1170 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1171 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1172 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1173 finally
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1174 let s:HGCommandEditFileRunning = s:HGCommandEditFileRunning - 1
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1175 endtry
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1176 endfunction
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1177
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1178 augroup HGVimDiffRestore
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1179 au!
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1180 au BufUnload * call <SID>HGVimDiffRestore(expand("<abuf>"))
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1181 augroup END
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1182
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1183 " Section: Optional activation of buffer management {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1184
2607 070736e20dfd HGcommand.vim : HGCommandEnableBufferSetup on by default "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2606 diff changeset	1185 if s:HGGetOption('HGCommandEnableBufferSetup', 1)
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1186 call HGEnableBufferSetup()
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1187 endif
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1188
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1189 " Section: Doc installation {{{1
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1190
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1191 if <SID>HGInstallDocumentation(expand("<sfile>:p"))
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1192 echomsg s:script_name s:script_version . ": updated documentation"
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1193 endif
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1194
2591 61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1195 " Section: Plugin completion {{{1
61f2008cd6bf Addition of CVScommand vim script as a base for HGcommand "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: diff changeset	1196
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1197 " delete one-time vars and functions
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1198 delfunction <SID>HGInstallDocumentation
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1199 delfunction <SID>HGFlexiMkdir
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1200 delfunction <SID>HGCleanupOnFailure
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1201 unlet s:script_version s:script_name
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1202
3532 04d44c3d64f7 hgcommand.vim: doc install delete into "black hole", g: prefix global vars. Christian Ebert <blacktrash@gmx.net> parents: 3528 diff changeset	1203 let g:loaded_hgcommand=2
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1204 silent do HGCommand User HGPluginFinish
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1205
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1206 let &cpo = s:save_cpo
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1207 unlet s:save_cpo
2592 457846f400e8 Vim script: Adaptation from CVS to Mercurial "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2591 diff changeset	1208 " vim:se expandtab sts=2 sw=2:
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1209 finish
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1210
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1211 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1212 " Section: Documentation content {{{1
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1213 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1214 === START_DOC
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1215 hgcommand.txt Mercurial vim integration #version#
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1216
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1217
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1218 HGCOMMAND REFERENCE MANUAL~
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1219
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1220
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1221 Author: Mathieu Clabaut <mathieu.clabaut@gmail.com>
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1222 Credits: Bob Hiestand <bob.hiestand@gmail.com>
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1223 Mercurial: http://www.selenic.com/mercurial
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1224 Mercurial (noted Hg) is a fast, lightweight Source Control Management
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1225 system designed for efficient handling of very large distributed projects.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1226
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1227 ==============================================================================
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1228 1. Contents hgcommand-contents
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1229
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1230 Installation : \|hgcommand-install\|
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1231 HGCommand Intro : \|hgcommand\|
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1232 HGCommand Manual : \|hgcommand-manual\|
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1233 Customization : \|hgcommand-customize\|
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1234 Bugs : \|hgcommand-bugs\|
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1235
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1236 ==============================================================================
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1237 2. HGCommand Installation hgcommand-install
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1238
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1239 In order to install the plugin, place the hgcommand.vim file into a plugin'
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1240 directory in your runtime path (please see \|add-global-plugin\| and
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1241 \|'runtimepath'\|.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1242
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1243 HGCommand may be customized by setting variables, creating maps, and
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1244 specifying event handlers. Please see \|hgcommand-customize\| for more
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1245 details.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1246
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1247 hgcommand-auto-help
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1248 The help file is automagically generated when the \|hgcommand\| script is
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1249 loaded for the first time.
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1250
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1251 ==============================================================================
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1252
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1253 3. HGCommand Intro hgcommand
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1254 hgcommand-intro
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1255
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1256 The HGCommand plugin provides global ex commands for manipulating
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1257 HG-controlled source files. In general, each command operates on the
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1258 current buffer and accomplishes a separate hg function, such as update,
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1259 commit, log, and others (please see \|hgcommand-commands\| for a list of all
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1260 available commands). The results of each operation are displayed in a
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1261 scratch buffer. Several buffer variables are defined for those scratch
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1262 buffers (please see \|hgcommand-buffer-variables\|).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1263
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1264 The notion of "current file" means either the current buffer, or, in the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1265 case of a directory buffer, the file on the current line within the buffer.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1266
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1267 For convenience, any HGCommand invoked on a HGCommand scratch buffer acts
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1268 as though it was invoked on the original file and splits the screen so that
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1269 the output appears in a new window.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1270
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1271 Many of the commands accept revisions as arguments. By default, most
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1272 operate on the most recent revision on the current branch if no revision is
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1273 specified (though see \|HGCommandInteractive\| to prompt instead).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1274
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1275 Each HGCommand is mapped to a key sequence starting with the <Leader>
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1276 keystroke. The default mappings may be overridden by supplying different
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1277 mappings before the plugin is loaded, such as in the vimrc, in the standard
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1278 fashion for plugin mappings. For examples, please see
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1279 \|hgcommand-mappings-override\|.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1280
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1281 The HGCommand plugin may be configured in several ways. For more details,
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1282 please see \|hgcommand-customize\|.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1283
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1284 ==============================================================================
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1285 4. HGCommand Manual hgcommand-manual
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1286
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1287 4.1 HGCommand commands hgcommand-commands
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1288
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1289 HGCommand defines the following commands:
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1290
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1291 \|:HGAdd\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1292 \|:HGAnnotate\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1293 \|:HGCommit\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1294 \|:HGDiff\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1295 \|:HGGotoOriginal\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1296 \|:HGLog\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1297 \|:HGRevert\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1298 \|:HGReview\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1299 \|:HGStatus\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1300 \|:HGUpdate\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1301 \|:HGVimDiff\|
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1302
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1303 :HGAdd :HGAdd
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1304
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1305 This command performs "hg add" on the current file. Please note, this does
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1306 not commit the newly-added file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1307
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1308 :HGAnnotate :HGAnnotate
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1309
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1310 This command performs "hg annotate" on the current file. If an argument is
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1311 given, the argument is used as a revision number to display. If not given
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1312 an argument, it uses the most recent version of the file on the current
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1313 branch. Additionally, if the current buffer is a HGAnnotate buffer
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1314 already, the version number on the current line is used.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1315
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1316 If the \|HGCommandAnnotateParent\| variable is set to a non-zero value, the
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1317 version previous to the one on the current line is used instead. This
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1318 allows one to navigate back to examine the previous version of a line.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1319
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1320 The filetype of the HGCommand scratch buffer is set to 'HGAnnotate', to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1321 take advantage of the bundled syntax file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1322
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1323
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1324 :HGCommit[!] :HGCommit
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1325
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1326 If called with arguments, this performs "hg commit" using the arguments as
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1327 the log message.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1328
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1329 If '!' is used with no arguments, an empty log message is committed.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1330
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1331 If called with no arguments, this is a two-step command. The first step
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1332 opens a buffer to accept a log message. When that buffer is written, it is
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1333 automatically closed and the file is committed using the information from
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1334 that log message. The commit can be abandoned if the log message buffer is
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1335 deleted or wiped before being written.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1336
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1337 Alternatively, the mapping that is used to invoke :HGCommit (by default
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1338 <Leader>hgc) can be used in the log message buffer to immediately commit.
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1339 This is useful if the \|HGCommandCommitOnWrite\| variable is set to 0 to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1340 disable the normal commit-on-write behavior.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1341
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1342 :HGDiff :HGDiff
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1343
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1344 With no arguments, this performs "hg diff" on the current file against the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1345 current repository version.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1346
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1347 With one argument, "hg diff" is performed on the current file against the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1348 specified revision.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1349
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1350 With two arguments, hg diff is performed between the specified revisions of
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1351 the current file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1352
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1353 This command uses the 'HGCommandDiffOpt' variable to specify diff options.
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1354 If that variable does not exist, then 'wbBc' is assumed. If you wish to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1355 have no options, then set it to the empty string.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1356
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1357
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1358 :HGGotoOriginal :HGGotoOriginal
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1359
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1360 This command returns the current window to the source buffer, if the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1361 current buffer is a HG command output buffer.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1362
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1363 :HGGotoOriginal!
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1364
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1365 Like ":HGGotoOriginal" but also executes :bufwipeout on all HG command
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1366 output buffers for the source buffer.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1367
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1368 :HGLog :HGLog
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1369
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1370 Performs "hg log" on the current file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1371
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1372 If an argument is given, it is passed as an argument to the "-r" option of
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1373 "hg log".
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1374
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1375 :HGRevert :HGRevert
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1376
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1377 Replaces the current file with the most recent version from the repository
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1378 in order to wipe out any undesired changes.
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1379
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1380 :HGReview :HGReview
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1381
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1382 Retrieves a particular version of the current file. If no argument is
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1383 given, the most recent version of the file on the current branch is
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1384 retrieved. Otherwise, the specified version is retrieved.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1385
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1386 :HGStatus :HGStatus
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1387
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1388 Performs "hg status" on the current file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1389
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1390 :HGUpdate :HGUpdate
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1391
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1392 Performs "hg update" on the current file. This intentionally does not
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1393 automatically reload the current buffer, though vim should prompt the user
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1394 to do so if the underlying file is altered by this command.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1395
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1396 :HGVimDiff :HGVimDiff
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1397
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1398 With no arguments, this prompts the user for a revision and then uses
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1399 vimdiff to display the differences between the current file and the
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1400 specified revision. If no revision is specified, the most recent version
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1401 of the file on the current branch is used.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1402
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1403 With one argument, that argument is used as the revision as above. With
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1404 two arguments, the differences between the two revisions is displayed using
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1405 vimdiff.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1406
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1407 With either zero or one argument, the original buffer is used to perform
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1408 the vimdiff. When the other buffer is closed, the original buffer will be
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1409 returned to normal mode.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1410
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1411 Once vimdiff mode is started using the above methods, additional vimdiff
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1412 buffers may be added by passing a single version argument to the command.
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1413 There may be up to 4 vimdiff buffers total.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1414
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1415 Using the 2-argument form of the command resets the vimdiff to only those 2
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1416 versions. Additionally, invoking the command on a different file will
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1417 close the previous vimdiff buffers.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1418
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1419
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1420 4.2 Mappings hgcommand-mappings
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1421
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1422 By default, a mapping is defined for each command. These mappings execute
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1423 the default (no-argument) form of each command.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1424
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1425 <Leader>hga HGAdd
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1426 <Leader>hgn HGAnnotate
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1427 <Leader>hgc HGCommit
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1428 <Leader>hgd HGDiff
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1429 <Leader>hgg HGGotoOriginal
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1430 <Leader>hgG HGGotoOriginal!
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1431 <Leader>hgl HGLog
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1432 <Leader>hgr HGReview
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1433 <Leader>hgs HGStatus
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1434 <Leader>hgu HGUpdate
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1435 <Leader>hgv HGVimDiff
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1436
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1437 hgcommand-mappings-override
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1438
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1439 The default mappings can be overriden by user-provided instead by mapping
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1440 to <Plug>CommandName. This is especially useful when these mappings
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1441 collide with other existing mappings (vim will warn of this during plugin
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1442 initialization, but will not clobber the existing mappings).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1443
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1444 For instance, to override the default mapping for :HGAdd to set it to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1445 '\add', add the following to the vimrc: >
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1446
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1447 nmap \add <Plug>HGAdd
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1448 <
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1449 4.3 Automatic buffer variables hgcommand-buffer-variables
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1450
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1451 Several buffer variables are defined in each HGCommand result buffer.
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1452 These may be useful for additional customization in callbacks defined in
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1453 the event handlers (please see \|hgcommand-events\|).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1454
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1455 The following variables are automatically defined:
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1456
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1457 b:hgOrigBuffNR b:hgOrigBuffNR
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1458
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1459 This variable is set to the buffer number of the source file.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1460
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1461 b:hgcmd b:hgcmd
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1462
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1463 This variable is set to the name of the hg command that created the result
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1464 buffer.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1465 ==============================================================================
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1466
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1467 5. Configuration and customization hgcommand-customize
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1468 hgcommand-config
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1469
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1470 The HGCommand plugin can be configured in two ways: by setting
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1471 configuration variables (see \|hgcommand-options\|) or by defining HGCommand
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1472 event handlers (see \|hgcommand-events\|). Additionally, the HGCommand
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1473 plugin provides several option for naming the HG result buffers (see
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1474 \|hgcommand-naming\|) and supported a customized status line (see
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1475 \|hgcommand-statusline\| and \|hgcommand-buffer-management\|).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1476
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1477 5.1 HGCommand configuration variables hgcommand-options
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1478
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1479 Several variables affect the plugin's behavior. These variables are
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1480 checked at time of execution, and may be defined at the window, buffer, or
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1481 global level and are checked in that order of precedence.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1482
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1483
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1484 The following variables are available:
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1485
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1486 \|HGCommandAnnotateParent\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1487 \|HGCommandCommitOnWrite\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1488 \|HGCommandHGExec\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1489 \|HGCommandDeleteOnHide\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1490 \|HGCommandDiffOpt\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1491 \|HGCommandDiffSplit\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1492 \|HGCommandEdit\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1493 \|HGCommandEnableBufferSetup\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1494 \|HGCommandInteractive\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1495 \|HGCommandNameMarker\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1496 \|HGCommandNameResultBuffers\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1497 \|HGCommandSplit\|
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1498
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1499 HGCommandAnnotateParent HGCommandAnnotateParent
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1500
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1501 This variable, if set to a non-zero value, causes the zero-argument form of
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1502 HGAnnotate when invoked on a HGAnnotate buffer to go to the version
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1503 previous to that displayed on the current line. If not set, it defaults to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1504 0.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1505
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1506 HGCommandCommitOnWrite HGCommandCommitOnWrite
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1507
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1508 This variable, if set to a non-zero value, causes the pending hg commit to
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1509 take place immediately as soon as the log message buffer is written. If
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1510 set to zero, only the HGCommit mapping will cause the pending commit to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1511 occur. If not set, it defaults to 1.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1512
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1513 HGCommandHGExec HGCommandHGExec
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1514
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1515 This variable controls the executable used for all HG commands. If not
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1516 set, it defaults to "hg".
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1517
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1518 HGCommandDeleteOnHide HGCommandDeleteOnHide
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1519
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1520 This variable, if set to a non-zero value, causes the temporary HG result
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1521 buffers to automatically delete themselves when hidden.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1522
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1523 HGCommandDiffOpt HGCommandDiffOpt
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1524
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1525 This variable, if set, determines the options passed to the diff command of
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1526 HG. If not set, it defaults to 'w'.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1527
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1528 HGCommandDiffSplit HGCommandDiffSplit
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1529
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1530 This variable overrides the \|HGCommandSplit\| variable, but only for buffers
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1531 created with \|:HGVimDiff\|.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1532
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1533 HGCommandEdit HGCommandEdit
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1534
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1535 This variable controls whether the original buffer is replaced ('edit') or
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1536 split ('split'). If not set, it defaults to 'edit'.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1537
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1538 HGCommandEnableBufferSetup HGCommandEnableBufferSetup
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1539
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1540 This variable, if set to a non-zero value, activates HG buffer management
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1541 mode see (\|hgcommand-buffer-management\|). This mode means that three
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1542 buffer variables, 'HGRepository', 'HGRevision' and 'HGBranch', are set if
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1543 the file is HG-controlled. This is useful for displaying version
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1544 information in the status bar.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1545
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1546 HGCommandInteractive HGCommandInteractive
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1547
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1548 This variable, if set to a non-zero value, causes appropriate commands (for
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1549 the moment, only \|:HGReview\|) to query the user for a revision to use
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1550 instead of the current revision if none is specified.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1551
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1552 HGCommandNameMarker HGCommandNameMarker
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1553
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1554 This variable, if set, configures the special attention-getting characters
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1555 that appear on either side of the hg buffer type in the buffer name. This
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1556 has no effect unless \|HGCommandNameResultBuffers\| is set to a true value.
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1557 If not set, it defaults to '_'.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1558
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1559 HGCommandNameResultBuffers HGCommandNameResultBuffers
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1560
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1561 This variable, if set to a true value, causes the hg result buffers to be
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1562 named in the old way ('<source file name> _<hg command>_'). If not set or
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1563 set to a false value, the result buffer is nameless.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1564
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1565 HGCommandSplit HGCommandSplit
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1566
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1567 This variable controls the orientation of the various window splits that
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1568 may occur (such as with HGVimDiff, when using a HG command on a HG command
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1569 buffer, or when the \|HGCommandEdit\| variable is set to 'split'. If set to
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1570 'horizontal', the resulting windows will be on stacked on top of one
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1571 another. If set to 'vertical', the resulting windows will be side-by-side.
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1572 If not set, it defaults to 'horizontal' for all but HGVimDiff windows.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1573
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1574 5.2 HGCommand events hgcommand-events
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1575
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1576 For additional customization, HGCommand can trigger user-defined events.
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1577 Event handlers are provided by defining User event autocommands (see
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1578 \|autocommand\|, \|User\|) in the HGCommand group with patterns matching the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1579 event name.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1580
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1581 For instance, the following could be added to the vimrc to provide a 'q'
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1582 mapping to quit a HGCommand scratch buffer: >
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1583
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1584 augroup HGCommand
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1585 au HGCommand User HGBufferCreated silent! nmap <unique> <buffer> q:
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1586 bwipeout<cr>
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1587 augroup END
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1588 <
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1589
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1590 The following hooks are available:
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1591
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1592 HGBufferCreated This event is fired just after a hg command result
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1593 buffer is created and filled with the result of a hg
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1594 command. It is executed within the context of the HG
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1595 command buffer. The HGCommand buffer variables may be
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1596 useful for handlers of this event (please see
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1597 \|hgcommand-buffer-variables\|).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1598
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1599 HGBufferSetup This event is fired just after HG buffer setup occurs,
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1600 if enabled.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1601
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1602 HGPluginInit This event is fired when the HGCommand plugin first
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1603 loads.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1604
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1605 HGPluginFinish This event is fired just after the HGCommand plugin
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1606 loads.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1607
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1608 HGVimDiffFinish This event is fired just after the HGVimDiff command
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1609 executes to allow customization of, for instance,
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1610 window placement and focus.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1611
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1612 5.3 HGCommand buffer naming hgcommand-naming
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1613
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1614 By default, the buffers containing the result of HG commands are nameless
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1615 scratch buffers. It is intended that buffer variables of those buffers be
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1616 used to customize the statusline option so that the user may fully control
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1617 the display of result buffers.
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1618
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1619 If the old-style naming is desired, please enable the
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1620 \|HGCommandNameResultBuffers\| variable. Then, each result buffer will
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1621 receive a unique name that includes the source file name, the HG command,
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1622 and any extra data (such as revision numbers) that were part of the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1623 command.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1624
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1625 5.4 HGCommand status line support hgcommand-statusline
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1626
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1627 It is intended that the user will customize the \|'statusline'\| option to
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1628 include HG result buffer attributes. A sample function that may be used in
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1629 the \|'statusline'\| option is provided by the plugin, HGGetStatusLine(). In
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1630 order to use that function in the status line, do something like the
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1631 following: >
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1632
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1633 set statusline=%<%f\ %{HGGetStatusLine()}\ %h%m%r%=%l,%c%V\ %P
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1634 <
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1635 of which %{HGGetStatusLine()} is the relevant portion.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1636
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1637 The sample HGGetStatusLine() function handles both HG result buffers and
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1638 HG-managed files if HGCommand buffer management is enabled (please see
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1639 \|hgcommand-buffer-management\|).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1640
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1641 5.5 HGCommand buffer management hgcommand-buffer-management
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1642
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1643 The HGCommand plugin can operate in buffer management mode, which means
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1644 that it attempts to set two buffer variables ('HGRevision' and 'HGBranch')
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1645 upon entry into a buffer. This is rather slow because it means that 'hg
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1646 status' will be invoked at each entry into a buffer (during the \|BufEnter\|
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1647 autocommand).
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1648
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1649 This mode is enabled by default. In order to disable it, set the
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1650 \|HGCommandEnableBufferSetup\| variable to a false (zero) value. Enabling
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1651 this mode simply provides the buffer variables mentioned above. The user
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1652 must explicitly include those in the \|'statusline'\| option if they are to
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1653 appear in the status line (but see \|hgcommand-statusline\| for a simple way
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1654 to do that).
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1655
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1656 ==============================================================================
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1657 9. Tips hgcommand-tips
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1658
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1659 9.1 Split window annotation, by Michael Anderson >
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1660
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1661 :nmap <Leader>hgN :vs<CR><C-w>h<Leader>hgn:vertical res 40<CR>
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1662 \ggdddd:set scb<CR>:set nowrap<CR><C-w>lgg:set scb<CR>
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1663 \:set nowrap<CR>
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1664 <
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1665
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1666 This splits the buffer vertically, puts an annotation on the left (minus
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1667 the header) with the width set to 40. An editable/normal copy is placed on
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1668 the right. The two versions are scroll locked so they move as one. and
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1669 wrapping is turned off so that the lines line up correctly. The advantages
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1670 are...
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1671
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1672 1) You get a versioning on the right.
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1673 2) You can still edit your own code.
d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1674 3) Your own code still has syntax highlighting.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1675
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1676 ==============================================================================
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1677
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1678 8. Known bugs hgcommand-bugs
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1679
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1680 Please let me know if you run across any.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1681
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1682 HGVimDiff, when using the original (real) source buffer as one of the diff
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1683 buffers, uses some hacks to try to restore the state of the original buffer
19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1684 when the scratch buffer containing the other version is destroyed. There
2604 d93c23b31797 HGcommand.vim : doc review. "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2603 diff changeset	1685 may still be bugs in here, depending on many configuration details.
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1686
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1687 ==============================================================================
2637 fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	1688
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	1689 9. TODO hgcommand-todo
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	1690
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	1691 Integrate symlink tracking once HG will support them.
fcfd46c4a27a HGcommand.vim : the status was read for the wrong file as we changed the current directory before "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2636 diff changeset	1692 ==============================================================================
2603 f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1693 === END_DOC
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1694 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1695 " v im:tw=78:ts=8:ft=help:norl:
f80057407c07 HGcommand.vim : doc integration "Mathieu Clabaut <mathieu.clabaut@gmail.com>" parents: 2592 diff changeset	1696 " vim600: set foldmethod=marker tabstop=8 shiftwidth=2 softtabstop=2 smartindent smarttab :
2759 19436facb073 hgcommand.vim: requirements & doc self-install more consistent; cosmetics Christian Ebert <blacktrash@gmx.net> parents: 2733 diff changeset	1697 "fileencoding=iso-8859-15

Mercurial > hg > mercurial-crew-with-dirclash

annotate contrib/vim/hgcommand.vim @ 5461:ab4d2e9f3b97