changeset 2351:075d2ddc4639

contrib: move hg-menu.vim into contrib/vim directory
author Vadim Gelfer <vadim.gelfer@gmail.com>
date Sat, 27 May 2006 20:45:22 -0700
parents 091d555653a4
children 61909dfb316d
files contrib/hg-menu.vim contrib/vim/hg-menu.vim
diffstat 2 files changed, 93 insertions(+), 93 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/hg-menu.vim	Sat May 27 20:44:53 2006 -0700
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,93 +0,0 @@
-" vim600: set foldmethod=marker:
-" =============================================================================
-"  Name Of File: hg-menu.vim
-"   Description: Interface to Mercurial Version Control.
-"        Author: Steve Borho (modified Jeff Lanzarotta's RCS script)
-"          Date: Wednesday, October 5, 2005
-"       Version: 0.1.0
-"     Copyright: None.
-"         Usage: These command and gui menu displays useful hg functions
-" Configuration: Your hg executable must be in your path.
-" =============================================================================
- 
-" Section: Init {{{1
-if exists("loaded_hg_menu")
-  finish
-endif
-let loaded_hg_menu = 1
-
-" Section: Menu Options {{{1
-if has("gui")
-"  amenu H&G.Commit\ File<Tab>,ci :!hg commit %<CR>:e!<CR>
-"  amenu H&G.Commit\ All<Tab>,call :!hg commit<CR>:e!<CR>
-"  amenu H&G.-SEP1-        <nul>
-  amenu H&G.Add<Tab>\\add :!hg add %<CR><CR>
-  amenu H&G.Forget\ Add<Tab>\\fgt :!hg forget %<CR><CR>
-  amenu H&G.Show\ Differences<Tab>\\diff :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
-  amenu H&G.Revert\ to\ Last\ Version<Tab>\\revert :!hg revert %<CR>:e!<CR>
-  amenu H&G.Show\ History<Tab>\\log :call ShowResults("FileLog", "hg\ log")<CR><CR>
-  amenu H&G.Annotate<Tab>\\an :call ShowResults("annotate", "hg\ annotate")<CR><CR>
-  amenu H&G.-SEP1-        <nul>
-  amenu H&G.Repo\ Status<Tab>\\stat :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
-  amenu H&G.Pull<Tab>\\pull :!hg pull<CR>:e!<CR>
-  amenu H&G.Update<Tab>\\upd :!hg update<CR>:e!<CR>
-endif
-
-" Section: Mappings {{{1
-if(v:version >= 600)
-  " The default Leader is \ 'backslash'
-  map <Leader>add       :!hg add %<CR><CR>
-  map <Leader>fgt       :!hg forget %<CR><CR>
-  map <Leader>diff      :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
-  map <Leader>revert    :!hg revert %<CR>:e!<CR>
-  map <Leader>log       :call ShowResults("FileLog", "hg\ log")<CR><CR>
-  map <Leader>an        :call ShowResults("annotate", "hg\ annotate")<CR><CR>
-  map <Leader>stat      :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
-  map <Leader>upd       :!hg update<CR>:e!<CR>
-  map <Leader>pull      :!hg pull<CR>:e!<CR>
-else
-  " pre 6.0, the default Leader was a comma
-  map ,add          :!hg add %<CR><CR>
-  map ,fgt          :!hg forget %<CR><CR>
-  map ,diff         :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
-  map ,revert       :!hg revert<CR>:e!<CR>
-  map ,log          :call ShowResults("FileLog", "hg\ log")<CR><CR>
-  map ,an           :call ShowResults("annotate", "hg\ annotate")<CR><CR>
-  map ,stat         :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
-  map ,upd          :!hg update<CR>:e!<CR>
-  map ,pull         :!hg pull<CR>:e!<CR>
-endif
-
-" Section: Functions {{{1
-" Show the log results of the current file with a revision control system.
-function! ShowResults(bufferName, cmdName)
-  " Modify the shortmess option:
-  " A  don't give the "ATTENTION" message when an existing swap file is
-  "    found.
-  set shortmess+=A
-
-  " Get the name of the current buffer.
-  let currentBuffer = bufname("%")
-
-  " If a buffer with the name rlog exists, delete it.
-  if bufexists(a:bufferName)
-    execute 'bd! ' a:bufferName
-  endif
-
-  " Create a new buffer.
-  execute 'new ' a:bufferName
-
-  " Execute the command.
-  execute 'r!' a:cmdName ' ' currentBuffer
-
-  " Make is so that the file can't be edited.
-  setlocal nomodified
-  setlocal nomodifiable
-  setlocal readonly
-
-  " Go to the beginning of the buffer.
-  execute "normal 1G"
-
-  " Restore the shortmess option.
-  set shortmess-=A
-endfunction
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/contrib/vim/hg-menu.vim	Sat May 27 20:45:22 2006 -0700
@@ -0,0 +1,93 @@
+" vim600: set foldmethod=marker:
+" =============================================================================
+"  Name Of File: hg-menu.vim
+"   Description: Interface to Mercurial Version Control.
+"        Author: Steve Borho (modified Jeff Lanzarotta's RCS script)
+"          Date: Wednesday, October 5, 2005
+"       Version: 0.1.0
+"     Copyright: None.
+"         Usage: These command and gui menu displays useful hg functions
+" Configuration: Your hg executable must be in your path.
+" =============================================================================
+ 
+" Section: Init {{{1
+if exists("loaded_hg_menu")
+  finish
+endif
+let loaded_hg_menu = 1
+
+" Section: Menu Options {{{1
+if has("gui")
+"  amenu H&G.Commit\ File<Tab>,ci :!hg commit %<CR>:e!<CR>
+"  amenu H&G.Commit\ All<Tab>,call :!hg commit<CR>:e!<CR>
+"  amenu H&G.-SEP1-        <nul>
+  amenu H&G.Add<Tab>\\add :!hg add %<CR><CR>
+  amenu H&G.Forget\ Add<Tab>\\fgt :!hg forget %<CR><CR>
+  amenu H&G.Show\ Differences<Tab>\\diff :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
+  amenu H&G.Revert\ to\ Last\ Version<Tab>\\revert :!hg revert %<CR>:e!<CR>
+  amenu H&G.Show\ History<Tab>\\log :call ShowResults("FileLog", "hg\ log")<CR><CR>
+  amenu H&G.Annotate<Tab>\\an :call ShowResults("annotate", "hg\ annotate")<CR><CR>
+  amenu H&G.-SEP1-        <nul>
+  amenu H&G.Repo\ Status<Tab>\\stat :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
+  amenu H&G.Pull<Tab>\\pull :!hg pull<CR>:e!<CR>
+  amenu H&G.Update<Tab>\\upd :!hg update<CR>:e!<CR>
+endif
+
+" Section: Mappings {{{1
+if(v:version >= 600)
+  " The default Leader is \ 'backslash'
+  map <Leader>add       :!hg add %<CR><CR>
+  map <Leader>fgt       :!hg forget %<CR><CR>
+  map <Leader>diff      :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
+  map <Leader>revert    :!hg revert %<CR>:e!<CR>
+  map <Leader>log       :call ShowResults("FileLog", "hg\ log")<CR><CR>
+  map <Leader>an        :call ShowResults("annotate", "hg\ annotate")<CR><CR>
+  map <Leader>stat      :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
+  map <Leader>upd       :!hg update<CR>:e!<CR>
+  map <Leader>pull      :!hg pull<CR>:e!<CR>
+else
+  " pre 6.0, the default Leader was a comma
+  map ,add          :!hg add %<CR><CR>
+  map ,fgt          :!hg forget %<CR><CR>
+  map ,diff         :call ShowResults("FileDiff", "hg\ diff")<CR><CR>
+  map ,revert       :!hg revert<CR>:e!<CR>
+  map ,log          :call ShowResults("FileLog", "hg\ log")<CR><CR>
+  map ,an           :call ShowResults("annotate", "hg\ annotate")<CR><CR>
+  map ,stat         :call ShowResults("RepoStatus", "hg\ status")<CR><CR>
+  map ,upd          :!hg update<CR>:e!<CR>
+  map ,pull         :!hg pull<CR>:e!<CR>
+endif
+
+" Section: Functions {{{1
+" Show the log results of the current file with a revision control system.
+function! ShowResults(bufferName, cmdName)
+  " Modify the shortmess option:
+  " A  don't give the "ATTENTION" message when an existing swap file is
+  "    found.
+  set shortmess+=A
+
+  " Get the name of the current buffer.
+  let currentBuffer = bufname("%")
+
+  " If a buffer with the name rlog exists, delete it.
+  if bufexists(a:bufferName)
+    execute 'bd! ' a:bufferName
+  endif
+
+  " Create a new buffer.
+  execute 'new ' a:bufferName
+
+  " Execute the command.
+  execute 'r!' a:cmdName ' ' currentBuffer
+
+  " Make is so that the file can't be edited.
+  setlocal nomodified
+  setlocal nomodifiable
+  setlocal readonly
+
+  " Go to the beginning of the buffer.
+  execute "normal 1G"
+
+  " Restore the shortmess option.
+  set shortmess-=A
+endfunction