--- /dev/null
+" perforcemenu.vim: Create a menu for perforce plugin.
+" Author: Hari Krishna (hari_vim at yahoo dot com)
+" Last Change: 28-Aug-2006 @ 22:50
+" Created: 07-Nov-2003
+" Requires: Vim-6.2, perforce.vim(4.0)
+" Version: 2.1.0
+" Licence: This program is free software; you can redistribute it and/or
+" modify it under the terms of the GNU General Public License.
+" See http://www.gnu.org/copyleft/gpl.txt
+
+if !exists("loaded_perforce")
+ runtime plugin/perforce.vim
+endif
+if !exists("loaded_perforce") || loaded_perforce < 400
+ echomsg "perforcemenu: You need a newer version of perforce.vim plugin"
+ finish
+endif
+
+" Make sure line-continuations won't cause any problem. This will be restored
+" at the end
+let s:save_cpo = &cpo
+set cpo&vim
+
+function! s:Get(setting, ...)
+ if exists('g:p4'.a:setting)
+ return g:p4{a:setting}
+ endif
+
+ if exists('*perforce#PFCall')
+ let val = perforce#PFCall('s:_', a:setting)
+ if val == '' && a:0 > 0
+ let val = a:1
+ endif
+ return val
+ endif
+ return 0
+endfunction
+
+function! s:PFExecCmd(cmd) " {{{
+ if exists(':'.a:cmd) == 2
+ exec a:cmd
+ else
+ call perforce#PFCall("s:EchoMessage", 'The command: ' . a:cmd .
+ \ ' is not defined for this buffer.', 'WarningMsg')
+ endif
+endfunction
+command! -nargs=1 PFExecCmd :call <SID>PFExecCmd(<q-args>) " }}}
+let s:loaded_perforcemenu = 1
+
+" CreateMenu {{{
+if s:Get('EnableMenu') || s:Get('EnablePopupMenu') " [-2f]
+function! s:CreateMenu(sub, expanded)
+ if ! a:expanded
+ let fileGroup = '.'
+ else
+ let fileGroup = '.&File.'
+ endif
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '&Add :PAdd<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . 'S&ync :PSync<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '&Edit :PEdit<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '-Sep1- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup .
+ \ '&Delete :PDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '&Revert :PRevert<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '-Sep2- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . 'Loc&k :PLock<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup .
+ \ 'U&nlock :PUnlock<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '-Sep3- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '&Diff :PDiff<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . 'Diff&2 :PDiff2<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup .
+ \ 'Revision\ &History :PFilelog<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . 'Propert&ies ' .
+ \ ':PFstat -C<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '&Print :PPrint<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce' . fileGroup . '-Sep4- :'
+ if a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.Accept\ &Their\ Changes<Tab>resolve\ -at ' .
+ \ ':PResolve -at<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.Accept\ &Your\ Changes<Tab>resolve\ -ay :PResolve -ay<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.&Automatic\ Resolve<Tab>resolve\ -am :PResolve -am<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.&Safe\ Resolve<Tab>resolve\ -as :PResolve -as<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.&Force\ Resolve<Tab>resolve\ -af :PResolve -af<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.' .
+ \ 'Resol&ve.S&how\ Integrations<Tab>resolve\ -n :PResolve -n<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.-Sep5- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.Sa&ve\ Current\ Spec ' .
+ \':PFExecCmd W<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&File.Save\ and\ &Quit\ ' .
+ \'Current\ Spec :PFExecCmd WQ<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Opened\ Files :POpened<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Refresh\ Active\ Pane ' .
+ \ ':PRefreshActivePane<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.-Sep6- :'
+ else
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&View.&BranchSpecs :PBranches<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Changelist.' .
+ \ '&Pending\ Changelists :PChanges -s pending<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Changelist.' .
+ \ '&Submitted\ Changelists :PChanges -s submitted<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&View.Cl&ientSpecs :PClients<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Jobs :PJobs<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Labels :PLabels<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Users :PUsers<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Depots :PDepots<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Opened\ Files :POpened<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&View.&Refresh\ Active\ Pane ' .
+ \ ':PRefreshActivePane<CR>'
+ endif
+
+ if a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Settings.' .
+ \ '&Switch\ Port\ Client\ User '.
+ \ ':call perforce#PFCall("s:SwitchPortClientUser")<CR>'
+ let p4Presets = split(perforce#PFGet('s:p4Presets'), ',')
+ if len(p4Presets) > 0
+ let index = 0
+ while index < len(p4Presets)
+ exec 'amenu <silent>' a:sub.'&Perforce.&Settings.&'.index.'\ '
+ \ .escape(p4Presets[index], ' .') ':PFSwitch' index.'<CR>'
+ let index = index + 1
+ endwhile
+ endif
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.New\ &Submission\ Template :PSubmit<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.&New :PChange<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ '&Edit\ Current\ Changelist :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ 'Descri&be\ Current\ Changelist :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ '&Delete\ Current\ Changelist :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ 'New\ &Submission\ Template :PSubmit<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.-Sep- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ 'View\ &Pending\ Changelists :PChanges -s pending<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Changelist.' .
+ \ '&View\ Submitted\ Changelists :PChanges -s submitted<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch :PBranch<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch.&New :PBranch<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch.' .
+ \ '&Edit\ Current\ BranchSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch.' .
+ \ 'Descri&be\ Current\ BranchSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch.' .
+ \ '&Delete\ Current\ BranchSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Branch.-Sep- :'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Branch.&View\ BranchSpecs :PBranches<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label :PLabel<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.&New :PLabel<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.' .
+ \ '&Edit\ Current\ LabelSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.' .
+ \ 'Descri&be\ Current\ LabelSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.' .
+ \ '&Delete\ Current\ LabelSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.-Sep1- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.' .
+ \ '&Sync\ Client\ ' . s:Get('Client') . '\ to\ Current\ Label ' .
+ \ ':PFExecCmd PLabelsSyncClient<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.' .
+ \ '&Replace\ Files\ in\ Current\ Label\ with\ Client\ ' .
+ \ s:Get('Client') . '\ files ' . ':PFExecCmd PLabelsSyncLabel<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Label.-Sep2- :'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Label.&View\ Labels :PLabels<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient :PClient<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.Cl&ient.&New :PClient +P<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient.' .
+ \ '&Edit\ Current\ ClientSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient.' .
+ \ 'Descri&be\ Current\ ClientSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient.' .
+ \ '&Delete\ Current\ ClientSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.' .
+ \ 'Cl&ient.&Edit\ ' . escape(s:Get('Client', 'Current Client'), ' ') .
+ \ ' :PClient<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient.-Sep- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Cl&ient.&Switch\ to\ Current' .
+ \ '\ Client :exec "PFSwitch ' . s:Get('Port') .
+ \ ' " . perforce#PFCall("s:GetCurrentItem")<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.Cl&ient.&View\ ClientSpecs :PClients<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User :PUser<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&User.&New :PUser +P<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User.' .
+ \ '&Edit\ Current\ UserSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User.' .
+ \ 'Descri&be\ Current\ UserSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User.' .
+ \ '&Delete\ Current\ UserSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&User.&Edit\ ' .
+ \ escape(s:Get('User', 'Current User'), ' ') . ' :PUser<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User.-Sep- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&User.&Switch\ to\ Current' .
+ \ '\ User :exec "PFSwitch ' . s:Get('Port') . ' ' .
+ \ s:Get('Client') . ' " . perforce#PFCall("s:GetCurrentItem")<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&User.&View\ Users :PUsers<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job :PJob<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.&New :PJob<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.' .
+ \ '&Edit\ Current\ JobSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.' .
+ \ 'Descri&be\ Current\ JobSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.' .
+ \ '&Delete\ Current\ JobSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.-Sep1- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.&Edit\ Job&Spec ' .
+ \ ':PJobspec<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.-Sep2- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Job.&View\ Jobs :PJobs<CR>'
+ endif
+
+ if a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Depot.&New :PDepot<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Depot.' .
+ \ '&Edit\ Current\ DepotSpec :PFExecCmd PItemOpen<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Depot.' .
+ \ 'Descri&be\ Current\ DepotSpec :PFExecCmd PItemDescribe<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Depot.' .
+ \ '&Delete\ Current\ DepotSpec :PFExecCmd PItemDelete<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Depot.-Sep- :'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Depot.&View\ Depots :PDepots<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.Open\ Current\ File\ From\ A¬her\ Branch :E<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Tools.Open\ Current\ File\ From\ A¬her\ Branch ' .
+ \ ':E<CR>'
+ endif
+
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.-Sep7- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Sa&ve\ Current\ Spec ' .
+ \':PFExecCmd W<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Save\ and\ &Quit\ ' .
+ \'Current\ Spec :PFExecCmd WQ<CR>'
+ endif
+
+ exec 'amenu <silent> ' . a:sub . '&Perforce.-Sep8- :'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.Re-Initial&ze :PFInitialize<CR>'
+ if ! a:expanded
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help :PHelp<CR>'
+ else
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help.&General :PHelp<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help.&Simple :PHelp simple<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Help.&Commands :PHelp commands<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Help.&Environment :PHelp environment<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Help.&Filetypes :PHelp filetypes<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help.&Jobview :PHelp jobview<CR>'
+ exec 'amenu <silent> ' . a:sub .
+ \ '&Perforce.&Help.&Revisions :PHelp revisions<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help.&Usage :PHelp usage<CR>'
+ exec 'amenu <silent> ' . a:sub . '&Perforce.&Help.&Views :PHelp views<CR>'
+ endif
+endfunction
+endif
+" }}}
+
+"
+" Add menu entries if user wants.
+"
+
+silent! unmenu Perforce
+silent! unmenu! Perforce
+if s:Get('EnableMenu')
+ call s:CreateMenu('', s:Get('UseExpandedMenu'))
+endif
+
+silent! unmenu PopUp.Perforce
+silent! unmenu! PopUp.Perforce
+if s:Get('EnablePopupMenu')
+ call s:CreateMenu('PopUp.', s:Get('UseExpandedPopupMenu'))
+endif
+
+" We no longer need this.
+silent! delf s:CreateMenu
+silent! delf s:Get
+
+let v:errmsg = ''
+
+" Make sure line-continuations won't cause any problem. This will be restored
+" at the end
+let s:save_cpo = &cpo
+set cpo&vim
+
+" vim6:fdm=marker et sw=2
git://git.iain.cx/iain / profile.git / blobdiff