contrib/hg-menu.vim
changeset 2351 075d2ddc4639
parent 2350 091d555653a4
child 2352 61909dfb316d
deleted file mode 100644
--- a/contrib/hg-menu.vim
+++ /dev/null
@@ -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