2018-06-01 13:46:22 -04:00
" Location: autoload/fugitive.vim
" Maintainer: Tim Pope <http://tpo.pe/>
if exists ( 'g:autoloaded_fugitive' )
finish
endif
let g :autoloaded_fugitive = 1
2019-07-23 13:42:19 -04:00
if ! exists ( 'g:fugitive_git_executable' )
2018-06-01 13:46:22 -04:00
let g :fugitive_git_executable = 'git'
2019-07-23 13:42:19 -04:00
elseif g :fugitive_git_executable = ~ # '^\w\+='
let g :fugitive_git_executable = 'env ' . g :fugitive_git_executable
2018-06-01 13:46:22 -04:00
endif
" Section: Utility
function ! s :function ( name ) abort
return function ( substitute ( a :name , '^s:' , matchstr ( expand ( '<sfile>' ) , '<SNR>\d\+_' ) , '' ) )
endfunction
function ! s :sub ( str , pat , rep ) abort
return substitute ( a :str , '\v\C' .a :pat , a :rep , '' )
endfunction
function ! s :gsub ( str , pat , rep ) abort
return substitute ( a :str , '\v\C' .a :pat , a :rep , 'g' )
endfunction
2018-07-28 21:08:56 -04:00
function ! s :Uniq ( list ) abort
let i = 0
let seen = {}
while i < len ( a :list )
let str = string ( a :list [i ])
if has_key ( seen , str )
call remove ( a :list , i )
else
let seen [str ] = 1
let i + = 1
endif
endwhile
return a :list
endfunction
2018-06-01 13:46:22 -04:00
function ! s :winshell ( ) abort
2018-08-19 00:11:33 -04:00
return has ( 'win32' ) && &shellcmdflag ! ~ # '^-'
2018-06-01 13:46:22 -04:00
endfunction
function ! s :shellesc ( arg ) abort
2019-07-05 04:24:52 -04:00
if type ( a :arg ) = = type ( [])
return join ( map ( copy ( a :arg ) , 's:shellesc(v:val)' ) )
2019-07-15 15:33:14 -04:00
elseif a :arg = ~ '^[A-Za-z0-9_/:.-]\+$'
2018-06-01 13:46:22 -04:00
return a :arg
elseif s :winshell ( )
return '"' .s :gsub ( s :gsub ( a :arg , '"' , '""' ) , '\%' , '"%"' ) .'"'
else
return shellescape ( a :arg )
endif
endfunction
2018-08-28 00:35:06 -04:00
let s :fnameescape = " \t\n*?[{`$\\%#'\"|!<"
2018-06-01 13:46:22 -04:00
function ! s :fnameescape ( file ) abort
2019-07-09 06:33:57 -04:00
if type ( a :file ) = = type ( [])
return join ( map ( copy ( a :file ) , 's:fnameescape(v:val)' ) )
elseif exists ( '*fnameescape' )
2018-06-01 13:46:22 -04:00
return fnameescape ( a :file )
else
2018-08-28 00:35:06 -04:00
return escape ( a :file , s :fnameescape )
2018-06-01 13:46:22 -04:00
endif
endfunction
function ! s :throw ( string ) abort
2019-06-30 21:25:15 -04:00
throw 'fugitive: ' .a :string
2018-06-01 13:46:22 -04:00
endfunction
2019-07-06 11:26:12 -04:00
function ! s :DirCheck ( ...) abort
if empty ( a :0 ? s :Dir ( a :1 ) : s :Dir ( ) )
return 'return ' . string ( 'echoerr "fugitive: not a Git repository"' )
endif
return ''
2018-06-01 13:46:22 -04:00
endfunction
2019-06-27 23:22:36 -04:00
function ! s :Mods ( mods , ...) abort
2019-07-07 10:34:04 -04:00
let mods = substitute ( a :mods , '\C<mods>' , '' , '' )
2019-07-09 19:25:26 -04:00
let mods = mods = ~ # '\S$' ? mods . ' ' : mods
2019-07-07 10:34:04 -04:00
if a :0 && mods ! ~ # '\<\%(aboveleft\|belowright\|leftabove\|rightbelow\|topleft\|botright\|tab\)\>'
2019-06-27 23:22:36 -04:00
let mods = a :1 . ' ' . mods
endif
2019-07-07 10:34:04 -04:00
return substitute ( mods , '\s\+' , ' ' , 'g' )
2019-06-27 23:22:36 -04:00
endfunction
2018-07-30 01:35:11 -04:00
function ! s :Slash ( path ) abort
2018-08-19 05:12:04 -04:00
if exists ( '+shellslash' )
2018-06-01 13:46:22 -04:00
return tr ( a :path , '\' , '/' )
else
return a :path
endif
endfunction
2018-06-05 12:28:16 -04:00
function ! s :PlatformSlash ( path ) abort
if exists ( '+shellslash' ) && ! &shellslash
return tr ( a :path , '/' , '\' )
else
return a :path
endif
endfunction
2018-08-18 23:12:09 -04:00
function ! s :Resolve ( path ) abort
let path = resolve ( a :path )
if has ( 'win32' )
let path = s :PlatformSlash ( fnamemodify ( fnamemodify ( path , ':h' ) , ':p' ) . fnamemodify ( path , ':t' ) )
endif
return path
endfunction
2018-07-28 21:08:56 -04:00
function ! s :cpath ( path , ...) abort
if exists ( '+fileignorecase' ) && &fileignorecase
let path = s :PlatformSlash ( tolower ( a :path ) )
else
let path = s :PlatformSlash ( a :path )
endif
return a :0 ? path = = # s :cpath ( a :1 ) : path
endfunction
2018-12-16 22:13:12 -05:00
function ! s :Cd ( ...) abort
let cd = exists ( '*haslocaldir' ) && haslocaldir ( ) ? 'lcd' : exists ( ':tcd' ) && haslocaldir ( -1 ) ? 'tcd' : 'cd'
if ! a :0
return cd
endif
let cwd = getcwd ( )
if s :cpath ( cwd , a :1 )
return ''
endif
exe cd s :fnameescape ( a :1 )
return cd . ' ' . s :fnameescape ( cwd )
endfunction
2018-06-01 13:46:22 -04:00
let s :executables = {}
function ! s :executable ( binary ) abort
if ! has_key ( s :executables , a :binary )
let s :executables [a :binary ] = executable ( a :binary )
endif
return s :executables [a :binary ]
endfunction
2019-07-07 14:26:03 -04:00
let s :nowait = v :version > = 704 ? '<nowait>' : ''
2018-08-06 02:01:32 -04:00
function ! s :map ( mode , lhs , rhs , ...) abort
let flags = ( a :0 ? a :1 : '' ) . ( a :rhs = ~ # '<Plug>' ? '' : '<script>' )
let head = a :lhs
let tail = ''
let keys = get ( g :, a :mode .'remap' , {})
if type ( keys ) = = type ( [])
return
endif
while ! empty ( head )
if has_key ( keys , head )
let head = keys [head ]
if empty ( head )
return
endif
break
endif
let tail = matchstr ( head , '<[^<>]*>$\|.$' ) . tail
let head = substitute ( head , '<[^<>]*>$\|.$' , '' , '' )
endwhile
if flags ! ~ # '<unique>' | | empty ( mapcheck ( head .tail , a :mode ) )
exe a :mode .'map <buffer>' flags head .tail a :rhs
if a :0 > 1
let b :undo_ftplugin = get ( b :, 'undo_ftplugin' , 'exe' ) .
\ '|sil! exe "' . a :mode . 'unmap <buffer> ' . head .tail . '"'
endif
endif
2018-06-01 13:46:22 -04:00
endfunction
2019-07-14 16:44:05 -04:00
" Section: Quickfix
function ! s :QuickfixGet ( nr , ...) abort
if a :nr < 0
return call ( 'getqflist' , a :000 )
else
return call ( 'getloclist' , [a :nr ] + a :000 )
endif
endfunction
function ! s :QuickfixSet ( nr , ...) abort
if a :nr < 0
return call ( 'setqflist' , a :000 )
else
return call ( 'setloclist' , [a :nr ] + a :000 )
endif
endfunction
function ! s :QuickfixCreate ( nr , opts ) abort
if has ( 'patch-7.4.2200' )
call s :QuickfixSet ( a :nr , [], ' ' , a :opts )
else
call s :QuickfixSet ( a :nr , [], ' ' )
endif
endfunction
2019-07-14 16:49:36 -04:00
function ! s :QuickfixStream ( nr , title , cmd , first , callback , ...) abort
call s :QuickfixCreate ( a :nr , {'title' : a :title })
let winnr = winnr ( )
exe a :nr < 0 ? 'copen' : 'lopen'
if winnr ! = winnr ( )
wincmd p
endif
let buffer = []
let lines = split ( s :SystemError ( s :shellesc ( a :cmd ) ) [0 ], "\n" )
for line in lines
call extend ( buffer , call ( a :callback , a :000 + [line ]) )
if len ( buffer ) > = 20
call s :QuickfixSet ( a :nr , remove ( buffer , 0 , -1 ) , 'a' )
redraw
endif
endfor
call s :QuickfixSet ( a :nr , extend ( buffer , call ( a :callback , a :000 + [0 ]) ) , 'a' )
if a :first && len ( s :QuickfixGet ( a :nr ) )
2019-07-16 16:24:17 -04:00
call s :BlurStatus ( )
2019-07-14 16:49:36 -04:00
return a :nr < 0 ? 'cfirst' : 'lfirst'
else
return 'exe'
endif
endfunction
2018-08-06 02:01:32 -04:00
" Section: Git
2019-07-06 07:13:44 -04:00
function ! s :UserCommandList ( ...) abort
let git = split ( get ( g :, 'fugitive_git_command' , g :fugitive_git_executable ) , '\s\+' )
2019-07-05 04:24:52 -04:00
let dir = a :0 ? s :Dir ( a :1 ) : ''
if len ( dir )
2019-07-06 07:13:44 -04:00
let tree = s :Tree ( dir )
2019-07-05 04:24:52 -04:00
if empty ( tree )
2019-07-06 07:13:44 -04:00
call add ( git , '--git-dir=' . dir )
2019-07-05 04:24:52 -04:00
elseif len ( tree ) && s :cpath ( tree ) ! = # s :cpath ( getcwd ( ) )
2019-07-11 07:54:39 -04:00
if fugitive #GitVersion ( 1 , 8 , 5 )
call extend ( git , ['-C' , tree ])
else
throw 'fugitive: Git 1.8.5 or higher required to change directory'
endif
2019-07-05 04:24:52 -04:00
endif
endif
return git
2018-08-06 02:01:32 -04:00
endfunction
2019-07-06 07:13:44 -04:00
function ! s :UserCommand ( ...) abort
return s :shellesc ( call ( 's:UserCommandList' , a :000 ) )
endfunction
2018-07-16 21:32:41 -04:00
let s :git_versions = {}
2018-06-01 13:47:48 -04:00
function ! fugitive #GitVersion ( ...) abort
2018-06-01 13:46:22 -04:00
if ! has_key ( s :git_versions , g :fugitive_git_executable )
2019-07-11 08:59:42 -04:00
let s :git_versions [g :fugitive_git_executable ] = matchstr ( system ( g :fugitive_git_executable .' --version' ) , '\d[^[:space:]]\+' )
2018-06-01 13:46:22 -04:00
endif
2019-01-13 15:05:22 -05:00
if ! a :0
return s :git_versions [g :fugitive_git_executable ]
endif
let components = split ( s :git_versions [g :fugitive_git_executable ], '\D\+' )
if empty ( components )
return -1
endif
for i in range ( len ( a :000 ) )
if a :000 [i ] > + get ( components , i )
return 0
elseif a :000 [i ] < + get ( components , i )
return 1
endif
endfor
return a :000 [i ] = = # get ( components , i )
2018-06-01 13:46:22 -04:00
endfunction
2018-07-28 21:08:56 -04:00
let s :commondirs = {}
function ! fugitive #CommonDir ( dir ) abort
if empty ( a :dir )
return ''
endif
if ! has_key ( s :commondirs , a :dir )
if getfsize ( a :dir . '/HEAD' ) < 10
let s :commondirs [a :dir ] = ''
elseif filereadable ( a :dir . '/commondir' )
let dir = get ( readfile ( a :dir . '/commondir' , 1 ) , 0 , '' )
if dir = ~ # '^/\|^\a:/'
let s :commondirs [a :dir ] = dir
else
let s :commondirs [a :dir ] = simplify ( a :dir . '/' . dir )
endif
else
let s :commondirs [a :dir ] = a :dir
endif
endif
return s :commondirs [a :dir ]
endfunction
2019-02-25 17:10:54 -05:00
function ! s :Dir ( ...) abort
return a :0 ? FugitiveGitDir ( a :1 ) : FugitiveGitDir ( )
endfunction
2018-07-27 00:56:21 -04:00
function ! s :Tree ( ...) abort
2019-02-25 17:10:54 -05:00
return a :0 ? FugitiveWorkTree ( a :1 ) : FugitiveWorkTree ( )
2018-07-27 00:56:21 -04:00
endfunction
2019-07-05 04:24:52 -04:00
function ! s :HasOpt ( args , ...) abort
let args = a :args [0 : index ( a :args , '--' ) ]
2019-07-06 09:44:31 -04:00
let opts = copy ( a :000 )
if type ( opts [0 ]) = = type ( [])
if empty ( args ) | | index ( opts [0 ], args [0 ]) = = -1
return 0
endif
call remove ( opts , 0 )
endif
for opt in opts
2019-07-05 04:24:52 -04:00
if index ( args , opt ) ! = -1
return 1
endif
endfor
endfunction
2018-08-30 16:25:06 -04:00
function ! s :PreparePathArgs ( cmd , dir , literal ) abort
2019-01-13 15:05:22 -05:00
let literal_supported = fugitive #GitVersion ( 1 , 9 )
2018-08-30 16:25:06 -04:00
if a :literal && literal_supported
2018-08-13 00:08:59 -04:00
call insert ( a :cmd , '--literal-pathspecs' )
endif
let split = index ( a :cmd , '--' )
2018-08-30 16:25:06 -04:00
if split < 0
2018-08-13 00:08:59 -04:00
return a :cmd
endif
for i in range ( split + 1 , len ( a :cmd ) - 1 )
2018-08-30 16:25:06 -04:00
if type ( a :cmd [i ]) = = type ( 0 )
let a :cmd [i ] = fugitive #Path ( bufname ( a :cmd [i ]) , './' , a :dir )
elseif a :literal
let a :cmd [i ] = fugitive #Path ( a :cmd [i ], './' , a :dir )
elseif ! literal_supported
let a :cmd [i ] = substitute ( a :cmd [i ], '^:\%(/\|([^)]*)\)\=:\=' , './' , '' )
endif
2018-08-13 00:08:59 -04:00
endfor
return a :cmd
endfunction
2018-08-30 16:25:06 -04:00
let s :prepare_env = {
\ 'sequence.editor' : 'GIT_SEQUENCE_EDITOR' ,
\ 'core.editor' : 'GIT_EDITOR' ,
\ 'core.askpass' : 'GIT_ASKPASS' ,
\ }
2019-07-01 18:37:26 -04:00
function ! fugitive #PrepareDirEnvArgv ( ...) abort
if a :0 && type ( a :1 ) = = # type ( [])
2018-08-30 16:25:06 -04:00
let cmd = a :000 [1 :-1 ] + a :1
else
let cmd = copy ( a :000 )
endif
2019-07-01 18:37:26 -04:00
let env = {}
2018-08-30 16:25:06 -04:00
let i = 0
while i < len ( cmd )
if cmd [i ] = ~ # '^$\|[\/.]' && cmd [i ] ! ~ # '^-'
let dir = remove ( cmd , 0 )
2019-07-01 18:37:26 -04:00
elseif cmd [i ] = ~ # '^--git-dir='
let dir = remove ( cmd , 0 ) [10 :-1 ]
2018-08-30 16:25:06 -04:00
elseif type ( cmd [i ]) = = # type ( 0 )
2019-02-25 17:10:54 -05:00
let dir = s :Dir ( remove ( cmd , i ) )
2018-08-30 16:25:06 -04:00
elseif cmd [i ] = = # '-c' && len ( cmd ) > i + 1
let key = matchstr ( cmd [i + 1 ], '^[^=]*' )
if has_key ( s :prepare_env , tolower ( key ) ) | | key ! ~ # '\.'
let var = get ( s :prepare_env , tolower ( key ) , key )
let val = matchstr ( cmd [i + 1 ], '=\zs.*' )
2019-07-01 18:37:26 -04:00
let env [var ] = val
2018-08-30 16:25:06 -04:00
endif
2019-01-13 15:05:22 -05:00
if fugitive #GitVersion ( 1 , 8 ) && cmd [i + 1 ] = ~ # '\.'
2018-08-30 16:25:06 -04:00
let i + = 2
2019-01-13 15:05:22 -05:00
else
call remove ( cmd , i , i + 1 )
2018-08-30 16:25:06 -04:00
endif
elseif cmd [i ] = ~ # '^--.*pathspecs$'
let explicit_pathspec_option = 1
2019-01-13 15:05:22 -05:00
if fugitive #GitVersion ( 1 , 9 )
2018-08-30 16:25:06 -04:00
let i + = 1
2019-01-13 15:05:22 -05:00
else
call remove ( cmd , i )
2018-08-30 16:25:06 -04:00
endif
elseif cmd [i ] ! ~ # '^-'
break
else
let i + = 1
endif
endwhile
if ! exists ( 'dir' )
2019-02-25 17:10:54 -05:00
let dir = s :Dir ( )
2018-08-30 16:25:06 -04:00
endif
let tree = s :Tree ( dir )
call s :PreparePathArgs ( cmd , dir , ! exists ( 'explicit_pathspec_option' ) )
2019-07-01 18:37:26 -04:00
return [dir , env , cmd ]
endfunction
function ! s :BuildShell ( dir , env , args ) abort
let cmd = copy ( a :args )
let tree = s :Tree ( a :dir )
let pre = ''
for [var , val ] in items ( a :env )
if s :winshell ( )
let pre .= 'set ' . var . '=' . s :shellesc ( val ) . '& '
else
let pre = ( len ( pre ) ? pre : 'env ' ) . var . '=' . s :shellesc ( val ) . ' '
endif
endfor
2018-08-30 16:25:06 -04:00
if empty ( tree ) | | index ( cmd , '--' ) = = len ( cmd ) - 1
2019-07-01 18:37:26 -04:00
call insert ( cmd , '--git-dir=' . a :dir )
2019-07-11 07:54:39 -04:00
elseif fugitive #GitVersion ( 1 , 8 , 5 )
2019-07-01 18:37:26 -04:00
call extend ( cmd , ['-C' , tree ], 'keep' )
2019-01-13 15:05:22 -05:00
else
2019-07-01 18:37:26 -04:00
let pre = 'cd ' . s :shellesc ( tree ) . ( s :winshell ( ) ? '& ' : '; ' ) . pre
2018-07-28 20:05:06 -04:00
endif
2019-07-06 04:07:52 -04:00
return pre . g :fugitive_git_executable . ' ' . join ( map ( cmd , 's:shellesc(v:val)' ) )
2019-07-01 18:37:26 -04:00
endfunction
function ! fugitive #Prepare ( ...) abort
let [dir , env , argv ] = call ( 'fugitive#PrepareDirEnvArgv' , a :000 )
return s :BuildShell ( dir , env , argv )
2018-07-28 20:05:06 -04:00
endfunction
2019-07-01 02:38:16 -04:00
function ! s :SystemError ( cmd , ...) abort
try
let out = call ( 'system' , [type ( a :cmd ) = = # type ( []) ? fugitive #Prepare ( a :cmd ) : a :cmd ] + a :000 )
return [out , v :shell_error ]
catch /^Vim\%((\a\+)\)\=:E484:/
let opts = ['shell' , 'shellcmdflag' , 'shellredir' , 'shellquote' , 'shellxquote' , 'shellxescape' , 'shellslash' ]
call filter ( opts , 'exists("+".v:val) && !empty(eval("&".v:val))' )
call map ( opts , 'v:val."=".eval("&".v:val)' )
call s :throw ( 'failed to run `' . a :cmd . '` with ' . join ( opts , ' ' ) )
endtry
endfunction
2019-07-01 00:48:18 -04:00
function ! s :ChompError ( ...) abort
2019-07-01 02:38:16 -04:00
let [out , exec_error ] = s :SystemError ( call ( 'fugitive#Prepare' , a :000 ) )
return [s :sub ( out , '\n$' , '' ) , exec_error ]
2019-07-01 00:48:18 -04:00
endfunction
2019-07-01 05:52:45 -04:00
function ! s :ChompDefault ( default , ...) abort
let [out , exec_error ] = call ( 's:ChompError' , a :000 )
return exec_error ? a :default : out
endfunction
2019-07-01 00:48:18 -04:00
function ! s :LinesError ( ...) abort
let [out , exec_error ] = call ( 's:ChompError' , a :000 )
2019-07-01 05:52:45 -04:00
return [len ( out ) && ! exec_error ? split ( out , "\n" , 1 ) : [], exec_error ]
2019-07-01 00:48:18 -04:00
endfunction
2019-07-01 02:11:20 -04:00
function ! s :NullError ( ...) abort
let [out , exec_error ] = s :SystemError ( call ( 'fugitive#Prepare' , a :000 ) )
return [exec_error ? [] : split ( out , "\1" ) , exec_error ? out : '' , exec_error ]
endfunction
2018-08-31 15:36:44 -04:00
function ! s :TreeChomp ( ...) abort
2019-07-01 00:48:18 -04:00
let cmd = call ( 'fugitive#Prepare' , a :000 )
2019-07-01 02:38:16 -04:00
let [out , exec_error ] = s :SystemError ( cmd )
let out = s :sub ( out , '\n$' , '' )
if ! exec_error
2019-07-01 00:48:18 -04:00
return out
endif
throw 'fugitive: error running `' . cmd . '`: ' . out
2018-08-31 15:36:44 -04:00
endfunction
2019-07-20 23:43:19 -04:00
function ! s :EchoExec ( ...) abort
echo call ( 's:ChompError' , a :000 ) [0 ]
call fugitive #ReloadStatus ( -1 , 1 )
return 'checktime'
endfunction
2018-08-06 01:36:37 -04:00
function ! fugitive #Head ( ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 > 1 ? a :2 : s :Dir ( )
2019-06-02 16:19:09 -04:00
if empty ( dir ) | | ! filereadable ( fugitive #Find ( '.git/HEAD' , dir ) )
2018-08-06 01:36:37 -04:00
return ''
endif
2019-06-02 16:19:09 -04:00
let head = readfile ( fugitive #Find ( '.git/HEAD' , dir ) ) [0 ]
2018-08-06 01:36:37 -04:00
if head = ~ # '^ref: '
return substitute ( head , '\C^ref: \%(refs/\%(heads/\|remotes/\|tags/\)\=\)\=' , '' , '' )
2019-07-01 21:19:47 -04:00
elseif head = ~ # '^\x\{40,\}$'
2018-08-06 01:36:37 -04:00
let len = a :0 ? a :1 : 0
return len < 0 ? head : len ? head [0 :len -1 ] : ''
else
return ''
endif
endfunction
2018-07-28 20:24:15 -04:00
function ! fugitive #RevParse ( rev , ...) abort
2019-07-01 05:52:45 -04:00
let [hash , exec_error ] = s :ChompError ( [a :0 ? a :1 : s :Dir ( ) , 'rev-parse' , '--verify' , a :rev , '--' ])
2019-07-01 21:19:47 -04:00
if ! exec_error && hash = ~ # '^\x\{40,\}$'
2018-07-28 20:24:15 -04:00
return hash
endif
2019-07-22 14:34:54 -04:00
throw 'vim-fugitive: rev-parse ' .a :rev .': ' .hash
2018-07-28 20:24:15 -04:00
endfunction
2018-12-19 14:15:55 -05:00
function ! s :ConfigTimestamps ( dir , dict ) abort
let files = ['/etc/gitconfig' , '~/.gitconfig' ,
\ len ( $XDG_CONFIG_HOME ) ? $XDG_CONFIG_HOME . '/git/config' : '~/.config/git/config' ]
if len ( a :dir )
call add ( files , fugitive #Find ( '.git/config' , a :dir ) )
endif
call extend ( files , get ( a :dict , 'include.path' , []) )
return join ( map ( files , 'getftime(expand(v:val))' ) , ',' )
endfunction
let s :config = {}
function ! fugitive #Config ( ...) abort
2019-02-25 17:10:54 -05:00
let dir = s :Dir ( )
2018-12-19 14:15:55 -05:00
let name = ''
2018-12-21 13:23:30 -05:00
if a :0 > = 2 && type ( a :2 ) = = type ( {})
2018-12-24 17:25:21 -05:00
let name = substitute ( a :1 , '^[^.]\+\|[^.]\+$' , '\L&' , 'g' )
return len ( a :1 ) ? get ( get ( a :2 , name , []) , 0 , '' ) : a :2
2018-12-21 13:23:30 -05:00
elseif a :0 > = 2
let dir = a :2
let name = a :1
elseif a :0 = = 1 && type ( a :1 ) = = type ( {})
return a :1
elseif a :0 = = 1 && a :1 = ~ # '^[[:alnum:]-]\+\.'
let name = a :1
elseif a :0 = = 1
let dir = a :1
2018-12-19 14:15:55 -05:00
endif
2018-12-22 14:34:37 -05:00
let name = substitute ( name , '^[^.]\+\|[^.]\+$' , '\L&' , 'g' )
2018-12-19 14:15:55 -05:00
let key = len ( dir ) ? dir : '_'
if has_key ( s :config , key ) && s :config [key ][0 ] = = # s :ConfigTimestamps ( dir , s :config [key ][1 ])
let dict = s :config [key ][1 ]
else
let dict = {}
2019-07-01 02:11:20 -04:00
let [lines , message , exec_error ] = s :NullError ( [dir , 'config' , '--list' , '-z' ])
if exec_error
2018-12-19 14:15:55 -05:00
return {}
endif
for line in lines
let key = matchstr ( line , "^[^\n]*" )
if ! has_key ( dict , key )
let dict [key ] = []
endif
call add ( dict [key ], strpart ( line , len ( key ) + 1 ) )
endfor
let s :config [dir ] = [s :ConfigTimestamps ( dir , dict ) , dict ]
lockvar ! dict
endif
return len ( name ) ? get ( get ( dict , name , []) , 0 , '' ) : dict
2018-07-21 16:33:34 -04:00
endfunction
2018-07-21 19:02:31 -04:00
function ! s :Remote ( dir ) abort
let head = FugitiveHead ( 0 , a :dir )
let remote = len ( head ) ? fugitive #Config ( 'branch.' . head . '.remote' ) : ''
let i = 10
while remote = = # '.' && i > 0
let head = matchstr ( fugitive #Config ( 'branch.' . head . '.merge' ) , 'refs/heads/\zs.*' )
let remote = len ( head ) ? fugitive #Config ( 'branch.' . head . '.remote' ) : ''
let i - = 1
endwhile
2018-08-06 01:45:10 -04:00
return remote = ~ # '^\.\=$' ? 'origin' : remote
2018-07-21 19:02:31 -04:00
endfunction
2018-07-21 16:33:34 -04:00
function ! fugitive #RemoteUrl ( ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 > 1 ? a :2 : s :Dir ( )
2018-07-21 19:02:31 -04:00
let remote = ! a :0 | | a :1 = ~ # '^\.\=$' ? s :Remote ( dir ) : a :1
2019-01-13 15:05:22 -05:00
if ! fugitive #GitVersion ( 2 , 7 )
2018-07-21 16:33:34 -04:00
return fugitive #Config ( 'remote.' . remote . '.url' )
endif
2019-07-01 05:52:45 -04:00
return s :ChompDefault ( '' , [dir , 'remote' , 'get-url' , remote , '--' ])
2018-07-21 16:33:34 -04:00
endfunction
2018-08-06 02:01:32 -04:00
" Section: Repository Object
2018-06-01 13:46:22 -04:00
function ! s :add_methods ( namespace , method_names ) abort
for name in a :method_names
let s :{a :namespace }_prototype [name ] = s :function ( 's:' .a :namespace .'_' .name )
endfor
endfunction
let s :commands = []
2019-03-15 20:18:03 -04:00
function ! s :command ( definition , ...) abort
if a :0
call add ( s :commands , a :definition . ' execute s:' . a :1 . "Command(<line1>, <line2>, +'<range>', <count>, <bang>0, '<mods>', <q-reg>, <q-args>, [<f-args>])" )
else
call add ( s :commands , a :definition )
endif
2018-06-01 13:46:22 -04:00
endfunction
function ! s :define_commands ( ) abort
for command in s :commands
exe 'command! -buffer ' .command
endfor
endfunction
let s :repo_prototype = {}
let s :repos = {}
2018-07-28 20:26:31 -04:00
function ! fugitive #repo ( ...) abort
2019-07-03 18:32:47 -04:00
let dir = a :0 ? s :Dir ( a :1 ) : ( len ( s :Dir ( ) ) ? s :Dir ( ) : FugitiveExtractGitDir ( expand ( '%:p' ) ) )
2018-06-01 13:46:22 -04:00
if dir ! = # ''
if has_key ( s :repos , dir )
let repo = get ( s :repos , dir )
else
let repo = {'git_dir' : dir }
let s :repos [dir ] = repo
endif
2018-08-06 02:01:32 -04:00
return extend ( repo , s :repo_prototype , 'keep' )
2018-06-01 13:46:22 -04:00
endif
2019-07-03 18:32:47 -04:00
call s :throw ( 'not a Git repository' )
2018-06-01 13:46:22 -04:00
endfunction
function ! s :repo_dir ( ...) dict abort
return join ( [self .git_dir ]+ a :000 , '/' )
endfunction
function ! s :repo_tree ( ...) dict abort
2018-07-27 00:56:21 -04:00
let dir = s :Tree ( self .git_dir )
2018-06-01 13:46:22 -04:00
if dir = = # ''
call s :throw ( 'no work tree' )
else
return join ( [dir ]+ a :000 , '/' )
endif
endfunction
function ! s :repo_bare ( ) dict abort
if self .dir ( ) = ~ # '/\.git$'
return 0
else
2018-07-27 00:56:21 -04:00
return s :Tree ( self .git_dir ) = = # ''
2018-06-01 13:46:22 -04:00
endif
endfunction
2018-10-21 19:44:20 -04:00
function ! s :repo_find ( object ) dict abort
return fugitive #Find ( a :object , self .git_dir )
2018-07-22 01:29:49 -04:00
endfunction
2018-08-02 20:53:15 -04:00
function ! s :repo_translate ( rev ) dict abort
2018-10-21 19:44:20 -04:00
return s :Slash ( fugitive #Find ( substitute ( a :rev , '^/' , ':(top)' , '' ) , self .git_dir ) )
2018-06-01 13:46:22 -04:00
endfunction
function ! s :repo_head ( ...) dict abort
2018-08-06 01:36:37 -04:00
return fugitive #Head ( a :0 ? a :1 : 0 , self .git_dir )
2018-06-01 13:46:22 -04:00
endfunction
2018-10-21 19:44:20 -04:00
call s :add_methods ( 'repo' , ['dir' , 'tree' , 'bare' , 'find' , 'translate' , 'head' ])
2018-06-01 13:46:22 -04:00
2018-08-30 16:25:06 -04:00
function ! s :repo_prepare ( ...) dict abort
return call ( 'fugitive#Prepare' , [self .git_dir ] + a :000 )
endfunction
2018-06-01 13:46:22 -04:00
function ! s :repo_git_command ( ...) dict abort
2018-07-27 00:19:44 -04:00
let git = s :UserCommand ( ) . ' --git-dir=' .s :shellesc ( self .git_dir )
2018-06-01 13:46:22 -04:00
return git .join ( map ( copy ( a :000 ) , '" ".s:shellesc(v:val)' ) , '' )
endfunction
function ! s :repo_git_chomp ( ...) dict abort
2018-08-31 15:36:44 -04:00
let git = g :fugitive_git_executable . ' --git-dir=' .s :shellesc ( self .git_dir )
let output = git . join ( map ( copy ( a :000 ) , '" ".s:shellesc(v:val)' ) , '' )
2019-07-01 02:38:16 -04:00
return s :sub ( system ( output ) , '\n$' , '' )
2018-06-01 13:46:22 -04:00
endfunction
function ! s :repo_git_chomp_in_tree ( ...) dict abort
2018-12-16 22:13:12 -05:00
let cdback = s :Cd ( self .tree ( ) )
2018-06-01 13:46:22 -04:00
try
2018-07-22 13:56:21 -04:00
return call ( self .git_chomp , a :000 , self )
2018-06-01 13:46:22 -04:00
finally
2018-12-16 22:13:12 -05:00
execute cdback
2018-06-01 13:46:22 -04:00
endtry
endfunction
function ! s :repo_rev_parse ( rev ) dict abort
2018-07-28 20:24:15 -04:00
return fugitive #RevParse ( a :rev , self .git_dir )
2018-06-01 13:46:22 -04:00
endfunction
2018-08-30 16:25:06 -04:00
call s :add_methods ( 'repo' , ['prepare' , 'git_command' , 'git_chomp' , 'git_chomp_in_tree' , 'rev_parse' ])
2018-06-01 13:46:22 -04:00
function ! s :repo_superglob ( base ) dict abort
2019-02-27 22:01:25 -05:00
return map ( fugitive #CompleteObject ( a :base , self .git_dir ) , 'substitute(v:val, ''\\\(.\)'', ''\1'', "g")' )
2018-06-01 13:46:22 -04:00
endfunction
2018-07-21 21:51:44 -04:00
call s :add_methods ( 'repo' , ['superglob' ])
2018-06-01 13:46:22 -04:00
2018-07-21 16:33:34 -04:00
function ! s :repo_config ( name ) dict abort
return fugitive #Config ( a :name , self .git_dir )
endfunction
2018-06-01 13:46:22 -04:00
function ! s :repo_user ( ) dict abort
2018-07-21 16:33:34 -04:00
let username = self .config ( 'user.name' )
let useremail = self .config ( 'user.email' )
2018-06-01 13:46:22 -04:00
return username .' <' .useremail .'>'
2018-07-21 16:33:34 -04:00
endfunction
2018-06-01 13:46:22 -04:00
2018-07-27 01:30:41 -04:00
call s :add_methods ( 'repo' , ['config' , 'user' ])
2018-06-01 13:46:22 -04:00
2018-08-06 02:01:32 -04:00
" Section: File API
2018-06-01 13:46:22 -04:00
2018-06-20 18:01:27 -04:00
function ! s :DirCommitFile ( path ) abort
2019-07-01 21:19:47 -04:00
let vals = matchlist ( s :Slash ( a :path ) , '\c^fugitive:\%(//\)\=\(.\{-\}\)\%(//\|::\)\(\x\{40,\}\|[0-3]\)\(/.*\)\=$' )
2018-06-05 12:28:16 -04:00
if empty ( vals )
return ['' , '' , '' ]
endif
2018-07-16 21:36:50 -04:00
return vals [1 :3 ]
endfunction
function ! s :DirRev ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
return [dir , ( commit = ~ # '^.$' ? ':' : '' ) . commit . substitute ( file , '^/' , ':' , '' ) ]
2018-06-05 12:28:16 -04:00
endfunction
2018-08-07 15:33:19 -04:00
function ! s :Owner ( path , ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 ? a :1 : s :Dir ( )
2018-08-07 15:33:19 -04:00
if empty ( dir )
return ''
endif
2019-06-02 16:19:09 -04:00
let actualdir = fugitive #Find ( '.git/' , dir )
2018-08-07 15:33:19 -04:00
let [pdir , commit , file ] = s :DirCommitFile ( a :path )
2018-10-12 15:14:49 -04:00
if s :cpath ( dir , pdir )
2019-07-01 21:19:47 -04:00
if commit = ~ # '^\x\{40,\}$'
2018-10-12 15:14:49 -04:00
return commit
elseif commit = = # '2'
return 'HEAD^{}'
endif
2019-06-02 16:19:09 -04:00
if filereadable ( actualdir . 'MERGE_HEAD' )
2018-10-12 15:14:49 -04:00
let merge_head = 'MERGE_HEAD'
2019-06-02 16:19:09 -04:00
elseif filereadable ( actualdir . 'REBASE_HEAD' )
2018-10-12 15:14:49 -04:00
let merge_head = 'REBASE_HEAD'
else
return ''
endif
if commit = = # '3'
return merge_head . '^{}'
elseif commit = = # '1'
return s :TreeChomp ( 'merge-base' , 'HEAD' , merge_head , '--' )
endif
2018-08-07 15:33:19 -04:00
endif
let path = fnamemodify ( a :path , ':p' )
2019-06-02 16:19:09 -04:00
if s :cpath ( actualdir , strpart ( path , 0 , len ( actualdir ) ) ) && a :path = ~ # 'HEAD$'
return strpart ( path , len ( actualdir ) )
2018-08-07 15:33:19 -04:00
endif
let refs = fugitive #CommonDir ( dir ) . '/refs'
if s :cpath ( refs . '/' , path [0 : len ( refs ) ]) && path ! ~ # '[\/]$'
return strpart ( path , len ( refs ) - 4 )
endif
return ''
endfunction
2018-07-22 13:57:28 -04:00
function ! fugitive #Real ( url ) abort
2018-08-06 01:21:19 -04:00
if empty ( a :url )
return ''
endif
2018-06-20 18:01:27 -04:00
let [dir , commit , file ] = s :DirCommitFile ( a :url )
2018-06-05 12:28:16 -04:00
if len ( dir )
2018-07-27 00:56:21 -04:00
let tree = s :Tree ( dir )
2018-06-28 15:43:13 -04:00
return s :PlatformSlash ( ( len ( tree ) ? tree : dir ) . file )
2018-07-22 13:57:28 -04:00
endif
2018-08-06 01:21:19 -04:00
let pre = substitute ( matchstr ( a :url , '^\a\a\+\ze:' ) , '^.' , '\u&' , '' )
if len ( pre ) && pre ! = ? 'fugitive' && exists ( '*' . pre . 'Real' )
let url = {pre }Real ( a :url )
else
let url = fnamemodify ( a :url , ':p' . ( a :url = ~ # '[\/]$' ? '' : ':s?[\/]$??' ) )
2018-06-05 12:28:16 -04:00
endif
2018-08-06 01:21:19 -04:00
return s :PlatformSlash ( empty ( url ) ? a :url : url )
2018-06-05 12:28:16 -04:00
endfunction
2018-07-22 19:15:22 -04:00
function ! fugitive #Path ( url , ...) abort
2018-08-25 16:04:27 -04:00
if empty ( a :url )
return ''
endif
2019-02-25 17:10:54 -05:00
let dir = a :0 > 1 ? a :2 : s :Dir ( )
2018-08-25 16:04:27 -04:00
let tree = s :Tree ( dir )
if ! a :0
2018-07-22 19:15:22 -04:00
return fugitive #Real ( a :url )
2018-08-25 16:04:27 -04:00
elseif a :1 = ~ # '\.$'
let path = s :Slash ( fugitive #Real ( a :url ) )
let cwd = getcwd ( )
let lead = ''
while s :cpath ( tree . '/' , ( cwd . '/' ) [0 : len ( tree ) ])
if s :cpath ( cwd . '/' , path [0 : len ( cwd ) ])
if strpart ( path , len ( cwd ) + 1 ) = ~ # '^\.git\%(/\|$\)'
break
endif
return a :1 [0 :-2 ] . ( empty ( lead ) ? './' : lead ) . strpart ( path , len ( cwd ) + 1 )
endif
let cwd = fnamemodify ( cwd , ':h' )
let lead .= '../'
endwhile
return a :1 [0 :-2 ] . path
2018-07-22 19:15:22 -04:00
endif
2019-02-23 16:49:19 -05:00
let url = a :url
if has_key ( get ( s :temp_files , s :cpath ( url ) , {}) , 'bufnr' )
let url = bufname ( s :temp_files [s :cpath ( url ) ].bufnr )
endif
let url = s :Slash ( fnamemodify ( url , ':p' ) )
2018-07-30 01:35:11 -04:00
if url = ~ # '/$' && s :Slash ( a :url ) ! ~ # '/$'
2018-07-29 13:06:32 -04:00
let url = url [0 :-2 ]
endif
2018-07-22 19:15:22 -04:00
let [argdir , commit , file ] = s :DirCommitFile ( a :url )
if len ( argdir ) && s :cpath ( argdir ) ! = # s :cpath ( dir )
let file = ''
elseif len ( dir ) && s :cpath ( url [0 : len ( dir ) ]) = = # s :cpath ( dir . '/' )
let file = '/.git' .url [strlen ( dir ) : -1 ]
elseif len ( tree ) && s :cpath ( url [0 : len ( tree ) ]) = = # s :cpath ( tree . '/' )
let file = url [len ( tree ) : -1 ]
2019-01-05 01:56:46 -05:00
elseif s :cpath ( url ) = = # s :cpath ( tree )
2018-07-28 16:51:17 -04:00
let file = '/'
2018-07-22 19:15:22 -04:00
endif
2018-08-03 22:50:32 -04:00
if empty ( file ) && a :1 = ~ # '^$\|^[.:]/$'
2018-07-30 01:35:11 -04:00
return s :Slash ( fugitive #Real ( a :url ) )
2018-07-22 19:15:22 -04:00
endif
return substitute ( file , '^/' , a :1 , '' )
2018-06-29 18:10:38 -04:00
endfunction
2018-08-06 02:01:32 -04:00
function ! s :Relative ( ...) abort
2019-07-09 06:33:57 -04:00
return fugitive #Path ( @%, a :0 ? a :1 : ':(top)' , a :0 > 1 ? a :2 : s :Dir ( ) )
2018-08-06 02:01:32 -04:00
endfunction
2018-10-21 19:44:20 -04:00
function ! fugitive #Find ( object , ...) abort
2018-08-20 19:12:17 -04:00
if type ( a :object ) = = type ( 0 )
let name = bufname ( a :object )
return s :PlatformSlash ( name = ~ # '^$\|^/\|^\a\+:' ? name : getcwd ( ) . '/' . name )
elseif a :object = ~ # '^[~$]'
2018-08-02 20:53:15 -04:00
let prefix = matchstr ( a :object , '^[~$]\i*' )
let owner = expand ( prefix )
return s :PlatformSlash ( ( len ( owner ) ? owner : prefix ) . strpart ( a :object , len ( prefix ) ) )
2018-08-19 17:49:45 -04:00
elseif s :Slash ( a :object ) = ~ # '^$\|^/\|^\%(\a\a\+:\).*\%(//\|::\)' . ( has ( 'win32' ) ? '\|^\a:/' : '' )
2018-08-02 20:53:15 -04:00
return s :PlatformSlash ( a :object )
2018-08-15 19:24:35 -04:00
elseif s :Slash ( a :object ) = ~ # '^\.\.\=\%(/\|$\)'
return s :PlatformSlash ( simplify ( getcwd ( ) . '/' . a :object ) )
2018-08-02 20:53:15 -04:00
endif
2019-02-25 17:10:54 -05:00
let dir = a :0 ? a :1 : s :Dir ( )
2018-08-15 19:24:35 -04:00
if empty ( dir )
2018-08-11 00:52:48 -04:00
let file = matchstr ( a :object , '^\%(:\d:\|[^:]*:\)\zs.*' , '' , '' )
let dir = FugitiveExtractGitDir ( file )
if empty ( dir )
return fnamemodify ( len ( file ) ? file : a :object , ':p' )
endif
endif
2018-08-19 16:52:58 -04:00
let rev = s :Slash ( a :object )
2018-08-02 20:53:15 -04:00
let tree = s :Tree ( dir )
let base = len ( tree ) ? tree : 'fugitive://' . dir . '//0'
2018-08-19 16:52:58 -04:00
if rev = = # '.git'
let f = len ( tree ) ? tree . '/.git' : dir
elseif rev = ~ # '^\.git/'
let f = substitute ( rev , '^\.git' , '' , '' )
2018-08-02 20:53:15 -04:00
let cdir = fugitive #CommonDir ( dir )
2018-08-19 16:52:58 -04:00
if f = ~ # '^/\.\./\.\.\%(/\|$\)'
let f = simplify ( len ( tree ) ? tree . f [3 :-1 ] : dir . f )
elseif f = ~ # '^/\.\.\%(/\|$\)'
let f = base . f [3 :-1 ]
elseif cdir ! = # dir && (
\ f = ~ # '^/\%(config\|hooks\|info\|logs/refs\|objects\|refs\|worktrees\)\%(/\|$\)' | |
2019-06-02 16:19:09 -04:00
\ f ! ~ # '^/\%(index$\|index\.lock$\|\w*MSG$\|\w*HEAD$\|logs/\w*HEAD$\|logs$\|rebase-\w\+\)\%(/\|$\)' && getftime ( dir . f ) < 0 && getftime ( cdir . f ) > = 0 )
2018-08-19 16:52:58 -04:00
let f = simplify ( cdir . f )
2018-08-02 20:53:15 -04:00
else
2018-08-19 16:52:58 -04:00
let f = simplify ( dir . f )
2018-08-02 20:53:15 -04:00
endif
2018-08-19 17:49:45 -04:00
elseif rev = = # ':/'
2018-08-02 20:53:15 -04:00
let f = base
elseif rev = ~ # '^\.\%(/\|$\)'
let f = base . rev [1 :-1 ]
2018-08-11 00:52:48 -04:00
elseif rev = ~ # '^::\%(/\|\a\+\:\)'
let f = rev [2 :-1 ]
elseif rev = ~ # '^::\.\.\=\%(/\|$\)'
let f = simplify ( getcwd ( ) . '/' . rev [2 :-1 ])
elseif rev = ~ # '^::'
let f = base . '/' . rev [2 :-1 ]
elseif rev = ~ # '^:\%([0-3]:\)\=\.\.\=\%(/\|$\)\|^:[0-3]:\%(/\|\a\+:\)'
let f = rev = ~ # '^:\%([0-3]:\)\=\.' ? simplify ( getcwd ( ) . '/' . matchstr ( rev , '\..*' ) ) : rev [3 :-1 ]
if s :cpath ( base . '/' , ( f . '/' ) [0 : len ( base ) ])
let f = 'fugitive://' . dir . '//' . + matchstr ( rev , '^:\zs\d\ze:' ) . '/' . strpart ( f , len ( base ) + 1 )
else
let altdir = FugitiveExtractGitDir ( f )
if len ( altdir ) && ! s :cpath ( dir , altdir )
2018-10-21 19:44:20 -04:00
return fugitive #Find ( a :object , altdir )
2018-08-11 00:52:48 -04:00
endif
endif
elseif rev = ~ # '^:[0-3]:'
2018-08-02 20:53:15 -04:00
let f = 'fugitive://' . dir . '//' . rev [1 ] . '/' . rev [3 :-1 ]
elseif rev = = # ':'
if $GIT_INDEX_FILE = ~ # '/[^/]*index[^/]*\.lock$' && s :cpath ( fnamemodify ( $GIT_INDEX_FILE , ':p' ) [0 :strlen ( dir ) ]) = = # s :cpath ( dir . '/' ) && filereadable ( $GIT_INDEX_FILE )
let f = fnamemodify ( $GIT_INDEX_FILE , ':p' )
else
2019-06-02 16:19:09 -04:00
let f = fugitive #Find ( '.git/index' , dir )
2018-08-02 20:53:15 -04:00
endif
elseif rev = ~ # '^:(\%(top\|top,literal\|literal,top\|literal\))'
2019-07-08 08:33:39 -04:00
let f = matchstr ( rev , ')\zs.*' )
if f = ~ # '^\.\.\=\%(/\|$\)'
let f = simplify ( getcwd ( ) . '/' . f )
elseif f ! ~ # '^/\|^\%(\a\a\+:\).*\%(//\|::\)' . ( has ( 'win32' ) ? '\|^\a:/' : '' )
let f = base . '/' . f
endif
2018-08-02 20:53:15 -04:00
elseif rev = ~ # '^:/\@!'
let f = 'fugitive://' . dir . '//0/' . rev [1 :-1 ]
else
if ! exists ( 'f' )
2018-09-12 12:32:43 -04:00
let commit = substitute ( matchstr ( rev , '^[^:]\+\|^:.*' ) , '^@\%($\|[~^]\|@{\)\@=' , 'HEAD' , '' )
2018-08-02 20:53:15 -04:00
let file = substitute ( matchstr ( rev , '^[^:]\+\zs:.*' ) , '^:' , '/' , '' )
2018-08-11 00:52:48 -04:00
if file = ~ # '^/\.\.\=\%(/\|$\)\|^//\|^/\a\+:'
let file = file = ~ # '^/\.' ? simplify ( getcwd ( ) . file ) : file [1 :-1 ]
if s :cpath ( base . '/' , ( file . '/' ) [0 : len ( base ) ])
let file = '/' . strpart ( file , len ( base ) + 1 )
else
let altdir = FugitiveExtractGitDir ( file )
if len ( altdir ) && ! s :cpath ( dir , altdir )
2018-10-21 19:44:20 -04:00
return fugitive #Find ( a :object , altdir )
2018-08-11 00:52:48 -04:00
endif
return file
endif
endif
2019-07-01 21:19:47 -04:00
if commit ! ~ # '^[0-9a-f]\{40,\}$'
2019-07-16 14:47:20 -04:00
let commit = matchstr ( s :ChompDefault ( '' , [dir , 'rev-parse' , '--verify' , commit , '--' ]) , '\<[0-9a-f]\{40,\}\>' )
2018-08-02 20:53:15 -04:00
endif
if len ( commit )
let f = 'fugitive://' . dir . '//' . commit . file
else
2018-08-11 00:52:48 -04:00
let f = base . '/' . substitute ( rev , '^:/:\=\|^[^:]\+:' , '' , '' )
2018-08-02 20:53:15 -04:00
endif
endif
endif
return s :PlatformSlash ( f )
endfunction
function ! s :Generate ( rev , ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 ? a :1 : s :Dir ( )
2018-08-02 20:53:15 -04:00
let tree = s :Tree ( dir )
let object = a :rev
2018-08-11 00:52:48 -04:00
if a :rev = ~ # '^/\.git\%(/\|$\)'
let object = a :rev [1 :-1 ]
elseif a :rev = ~ # '^/' && len ( tree ) && getftime ( tree . a :rev ) > = 0 && getftime ( a :rev ) < 0
let object = ':(top)' . a :rev [1 :-1 ]
2018-08-02 20:53:15 -04:00
endif
2018-10-21 19:44:20 -04:00
return fugitive #Find ( object , dir )
2018-08-02 20:53:15 -04:00
endfunction
2019-07-05 04:24:52 -04:00
function ! s :DotRelative ( path , ...) abort
let cwd = a :0 ? a :1 : getcwd ( )
2018-08-28 00:35:06 -04:00
let path = substitute ( a :path , '^[~$]\i*' , '\=expand(submatch(0))' , '' )
2019-07-05 04:24:52 -04:00
if len ( cwd ) && s :cpath ( cwd . '/' , ( path . '/' ) [0 : len ( cwd ) ])
2018-08-28 00:35:06 -04:00
return '.' . strpart ( path , len ( cwd ) )
2018-07-31 19:44:03 -04:00
endif
2018-08-28 00:35:06 -04:00
return a :path
2018-07-31 19:44:03 -04:00
endfunction
2018-08-10 19:20:31 -04:00
function ! fugitive #Object ( ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 > 1 ? a :2 : s :Dir ( )
2018-08-10 19:20:31 -04:00
let [fdir , rev ] = s :DirRev ( a :0 ? a :1 : @%)
if s :cpath ( dir ) ! = # s :cpath ( fdir )
let rev = ''
endif
let tree = s :Tree ( dir )
if empty ( rev ) && empty ( tree )
elseif empty ( rev )
let rev = fugitive #Path ( a :0 ? a :1 : @%, './' , dir )
2019-07-23 15:29:12 -04:00
if rev = ~ # '^\./.git\%(/\|$\)'
return fnamemodify ( a :0 ? a :1 : @%, ':p' . ( rev = ~ # '/$' ? '' : ':s?/$??' ) )
2018-08-10 19:20:31 -04:00
endif
endif
if rev ! ~ # '^\.\%(/\|$\)' | | s :cpath ( getcwd ( ) , tree )
return rev
else
return tree . rev [1 :-1 ]
endif
endfunction
2018-08-28 00:35:06 -04:00
let s :var = '\%(%\|#<\=\d\+\|##\=\)'
let s :flag = '\%(:[p8~.htre]\|:g\=s\(.\).\{-\}\1.\{-\}\1\)'
let s :expand = '\%(\(' . s :var . '\)\(' . s :flag . '*\)\(:S\)\=\)'
function ! s :BufName ( var ) abort
if a :var = = # '%'
return bufname ( get ( b :, 'fugitive_blamed_bufnr' , '' ) )
elseif a :var = ~ # '^#\d*$'
let nr = getbufvar ( + a :var [1 :-1 ], 'fugitive_blamed_bufnr' , '' )
return bufname ( nr ? nr : + a :var [1 :-1 ])
else
return expand ( a :var )
endif
endfunction
2019-07-05 04:24:52 -04:00
function ! s :ExpandVarLegacy ( str ) abort
if get ( g :, 'fugitive_legacy_quoting' , 1 )
return substitute ( a :str , '\\\ze[%#!]' , '' , 'g' )
else
return a :str
endif
endfunction
function ! s :ExpandVar ( other , var , flags , esc , ...) abort
let cwd = a :0 ? a :1 : getcwd ( )
2018-08-28 00:35:06 -04:00
if a :other = ~ # '^\'
return a :other [1 :-1 ]
2019-07-05 04:24:52 -04:00
elseif a :other = ~ # '^'''
return s :ExpandVarLegacy ( substitute ( a :other [1 :-2 ], "''" , "'" , "g" ) )
elseif a :other = ~ # '^"'
return s :ExpandVarLegacy ( substitute ( a :other [1 :-2 ], '""' , '"' , "g" ) )
2018-08-28 00:35:06 -04:00
elseif a :other = ~ # '^!'
let buffer = s :BufName ( len ( a :other ) > 1 ? '#' . a :other [1 :-1 ] : '%' )
let owner = s :Owner ( buffer )
return len ( owner ) ? owner : '@'
endif
let flags = a :flags
2019-07-05 04:24:52 -04:00
let file = s :DotRelative ( fugitive #Real ( s :BufName ( a :var ) ) , cwd )
2018-08-28 00:35:06 -04:00
while len ( flags )
let flag = matchstr ( flags , s :flag )
let flags = strpart ( flags , len ( flag ) )
if flag = = # ':.'
2019-07-05 04:24:52 -04:00
let file = s :DotRelative ( file , cwd )
2018-08-28 00:35:06 -04:00
else
let file = fnamemodify ( file , flag )
endif
endwhile
let file = s :Slash ( file )
return ( len ( a :esc ) ? shellescape ( file ) : file )
endfunction
2019-07-05 04:24:52 -04:00
function ! s :Expand ( rev , ...) abort
2019-06-25 16:28:36 -04:00
if a :rev = ~ # '^:0$'
2019-06-25 04:18:19 -04:00
call s :throw ( 'Use ' . string ( ':%' ) . ' instead of ' . string ( a :rev ) )
elseif a :rev = ~ # '^:[1-3]$'
2019-06-25 04:32:59 -04:00
call s :throw ( 'Use ' . string ( a :rev . ':%' ) . ' instead of ' . string ( a :rev ) )
elseif a :rev = ~ # '^@{' | | a :rev = ~ # '^\^[0-9~^{]\|^\~[0-9~^]\|^\^$'
2019-06-25 04:02:24 -04:00
call s :throw ( 'Use ' . string ( '!' . a :rev . ':%' ) . ' instead of ' . string ( a :rev ) )
2019-06-25 04:32:59 -04:00
elseif a :rev = ~ # '^-'
call s :throw ( 'Use ' . string ( '!' . a :rev [1 :-1 ] . ':%' ) . ' instead of ' . string ( a :rev ) )
elseif a :rev = ~ # '^>[~^]\|^>@{\|^>:\d$'
2019-07-05 04:24:52 -04:00
let file = 'HEAD' . a :rev [1 :-1 ] . ':%'
2019-07-06 07:28:41 -04:00
elseif a :rev = ~ # '^>[> ]\@!'
2019-07-05 04:24:52 -04:00
let file = a :rev [1 :-1 ] . ':%'
2018-07-31 19:44:03 -04:00
else
let file = a :rev
endif
2018-08-28 00:35:06 -04:00
return substitute ( file ,
\ '\(\\[' . s :fnameescape . ']\|^\\[>+-]\|!\d*\)\|' . s :expand ,
2019-07-05 04:24:52 -04:00
\ '\=s:ExpandVar(submatch(1),submatch(2),submatch(3),"", a:0 ? a:1 : getcwd())' , 'g' )
2018-08-28 00:35:06 -04:00
endfunction
function ! fugitive #Expand ( object ) abort
return substitute ( a :object ,
\ '\(\\[' . s :fnameescape . ']\|^\\[>+-]\|!\d*\)\|' . s :expand ,
\ '\=s:ExpandVar(submatch(1),submatch(2),submatch(3),submatch(5))' , 'g' )
2018-07-31 19:44:03 -04:00
endfunction
2019-07-05 04:24:52 -04:00
function ! s :ExpandSplit ( string , ...) abort
let list = []
let string = a :string
let handle_bar = a :0 && a :1
let dquote = handle_bar ? '"\%([^"]\|""\|\\"\)*"\|' : ''
2019-07-09 12:26:45 -04:00
let cwd = a :0 > 1 ? a :2 : getcwd ( )
2019-07-05 04:24:52 -04:00
while string = ~ # '\S'
if handle_bar && string = ~ # '^\s*|'
return [list , substitute ( string , '^\s*' , '' , '' ) ]
endif
2019-07-06 13:47:30 -04:00
let arg = matchstr ( string , '^\s*\%(' . dquote . '''[^'']*''\|\\.\|[^[:space:] ' . ( handle_bar ? '|' : '' ) . ']\)\+' )
2019-07-05 04:24:52 -04:00
let string = strpart ( string , len ( arg ) )
2019-07-09 12:26:45 -04:00
let arg = substitute ( arg , '^\s\+' , '' , '' )
2019-07-09 13:28:27 -04:00
if ! exists ( 'seen_separator' )
let arg = substitute ( arg , '^\%([^:.][^:]*:\|^:\|^:[0-3]:\)\=\zs\.\.\=\%(/.*\)\=$' ,
\ '\=s:DotRelative(s:Slash(simplify(getcwd() . "/" . submatch(0))), cwd)' , '' )
2019-07-09 12:26:45 -04:00
endif
let arg = substitute ( arg ,
2019-07-05 04:24:52 -04:00
\ '\(' . dquote . '''\%(''''\|[^'']\)*''\|\\[' . s :fnameescape . ']\|^\\[>+-]\|!\d*\)\|' . s :expand ,
2019-07-09 12:26:45 -04:00
\ '\=s:ExpandVar(submatch(1),submatch(2),submatch(3),submatch(5), cwd)' , 'g' )
2019-07-05 04:24:52 -04:00
call add ( list , arg )
2019-07-09 13:28:27 -04:00
if arg = = # '--'
let seen_separator = 1
endif
2019-07-05 04:24:52 -04:00
endwhile
return handle_bar ? [list , '' ] : list
endfunction
2019-07-06 10:19:38 -04:00
function ! s :SplitExpand ( string , ...) abort
return s :ExpandSplit ( a :string , 0 , a :0 ? a :1 : getcwd ( ) )
endfunction
function ! s :SplitExpandChain ( string , ...) abort
return s :ExpandSplit ( a :string , 1 , a :0 ? a :1 : getcwd ( ) )
endfunction
2018-06-20 17:25:12 -04:00
let s :trees = {}
let s :indexes = {}
function ! s :TreeInfo ( dir , commit ) abort
if a :commit = ~ # '^:\=[0-3]$'
let index = get ( s :indexes , a :dir , [])
2019-06-02 16:19:09 -04:00
let newftime = getftime ( fugitive #Find ( '.git/index' , a :dir ) )
2018-06-20 17:25:12 -04:00
if get ( index , 0 , -1 ) < newftime
2019-07-01 05:52:45 -04:00
let [lines , exec_error ] = s :LinesError ( [a :dir , 'ls-files' , '--stage' , '--' ])
2018-06-20 17:25:12 -04:00
let s :indexes [a :dir ] = [newftime , {'0' : {}, '1' : {}, '2' : {}, '3' : {}}]
2019-07-01 05:52:45 -04:00
if exec_error
2018-06-20 17:25:12 -04:00
return [{}, -1 ]
endif
2019-07-01 05:52:45 -04:00
for line in lines
2018-06-20 17:25:12 -04:00
let [info , filename ] = split ( line , "\t" )
let [mode , sha , stage ] = split ( info , '\s\+' )
let s :indexes [a :dir ][1 ][stage ][filename ] = [newftime , mode , 'blob' , sha , -2 ]
while filename = ~ # '/'
let filename = substitute ( filename , '/[^/]*$' , '' , '' )
let s :indexes [a :dir ][1 ][stage ][filename ] = [newftime , '040000' , 'tree' , '' , 0 ]
endwhile
endfor
endif
return [get ( s :indexes [a :dir ][1 ], a :commit [-1 :-1 ], {}) , newftime ]
2019-07-01 21:19:47 -04:00
elseif a :commit = ~ # '^\x\{40,\}$'
2018-06-20 17:25:12 -04:00
if ! has_key ( s :trees , a :dir )
2018-08-06 16:38:30 -04:00
let s :trees [a :dir ] = {}
endif
if ! has_key ( s :trees [a :dir ], a :commit )
2019-07-01 05:52:45 -04:00
let [ftime , exec_error ] = s :ChompError ( [a :dir , 'log' , '-1' , '--pretty=format:%ct' , a :commit , '--' ])
if exec_error
2018-08-06 16:38:30 -04:00
let s :trees [a :dir ][a :commit ] = [{}, -1 ]
return s :trees [a :dir ][a :commit ]
2018-06-20 17:25:12 -04:00
endif
2018-08-06 16:38:30 -04:00
let s :trees [a :dir ][a :commit ] = [{}, + ftime ]
2019-07-01 05:52:45 -04:00
let [lines , exec_error ] = s :LinesError ( [a :dir , 'ls-tree' , '-rtl' , '--full-name' , a :commit , '--' ])
if exec_error
2018-08-06 16:38:30 -04:00
return s :trees [a :dir ][a :commit ]
2018-06-20 17:25:12 -04:00
endif
2019-07-01 05:52:45 -04:00
for line in lines
2018-06-20 17:25:12 -04:00
let [info , filename ] = split ( line , "\t" )
let [mode , type , sha , size ] = split ( info , '\s\+' )
2019-07-01 05:52:45 -04:00
let s :trees [a :dir ][a :commit ][0 ][filename ] = [+ ftime , mode , type , sha , + size , filename ]
2018-06-20 17:25:12 -04:00
endfor
endif
2018-08-06 16:38:30 -04:00
return s :trees [a :dir ][a :commit ]
2018-06-20 17:25:12 -04:00
endif
return [{}, -1 ]
endfunction
function ! s :PathInfo ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
if empty ( dir ) | | ! get ( g :, 'fugitive_file_api' , 1 )
return [-1 , '000000' , '' , '' , -1 ]
endif
let path = substitute ( file [1 :-1 ], '/*$' , '' , '' )
let [tree , ftime ] = s :TreeInfo ( dir , commit )
let entry = empty ( path ) ? [ftime , '040000' , 'tree' , '' , -1 ] : get ( tree , path , [])
2019-06-08 02:42:32 -04:00
if empty ( entry ) | | file = ~ # '/$' && entry [2 ] ! = # 'tree'
2018-06-20 17:25:12 -04:00
return [-1 , '000000' , '' , '' , -1 ]
else
return entry
endif
endfunction
function ! fugitive #simplify ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
if empty ( dir )
return ''
endif
if file = ~ # '/\.\.\%(/\|$\)'
2018-07-27 00:56:21 -04:00
let tree = s :Tree ( dir )
2018-06-20 17:25:12 -04:00
if len ( tree )
let path = simplify ( tree . file )
if strpart ( path . '/' , 0 , len ( tree ) + 1 ) ! = # tree . '/'
return s :PlatformSlash ( path )
endif
endif
endif
return s :PlatformSlash ( 'fugitive://' . simplify ( dir ) . '//' . commit . simplify ( file ) )
endfunction
function ! fugitive #resolve ( url ) abort
let url = fugitive #simplify ( a :url )
if url = ~ ? '^fugitive:'
return url
else
return resolve ( url )
endif
endfunction
function ! fugitive #getftime ( url ) abort
return s :PathInfo ( a :url ) [0 ]
endfunction
function ! fugitive #getfsize ( url ) abort
let entry = s :PathInfo ( a :url )
if entry [4 ] = = -2 && entry [2 ] = = # 'blob' && len ( entry [3 ])
let dir = s :DirCommitFile ( a :url ) [0 ]
2019-07-01 05:52:45 -04:00
let entry [4 ] = + s :ChompDefault ( -1 , [dir , 'cat-file' , '-s' , entry [3 ]])
2018-06-20 17:25:12 -04:00
endif
return entry [4 ]
endfunction
function ! fugitive #getftype ( url ) abort
return get ( {'tree' : 'dir' , 'blob' : 'file' }, s :PathInfo ( a :url ) [2 ], '' )
endfunction
function ! fugitive #filereadable ( url ) abort
return s :PathInfo ( a :url ) [2 ] = = # 'blob'
endfunction
2018-07-26 18:09:47 -04:00
function ! fugitive #filewritable ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
2019-06-02 16:19:09 -04:00
if commit ! ~ # '^\d$' | | ! filewritable ( fugitive #Find ( '.git/index' , dir ) )
2018-07-26 18:09:47 -04:00
return 0
endif
return s :PathInfo ( a :url ) [2 ] = = # 'blob' ? 1 : 2
endfunction
2018-06-20 17:25:12 -04:00
function ! fugitive #isdirectory ( url ) abort
return s :PathInfo ( a :url ) [2 ] = = # 'tree'
endfunction
2018-07-26 20:55:47 -04:00
function ! fugitive #getfperm ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
let perm = getfperm ( dir )
let fperm = s :PathInfo ( a :url ) [1 ]
if fperm = = # '040000'
let fperm = '000755'
endif
if fperm ! ~ # '[15]'
let perm = tr ( perm , 'x' , '-' )
endif
if fperm ! ~ # '[45]$'
let perm = tr ( perm , 'rw' , '--' )
endif
if commit ! ~ # '^\d$'
let perm = tr ( perm , 'w' , '-' )
endif
return perm = = # '---------' ? '' : perm
endfunction
function ! fugitive #setfperm ( url , perm ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
let entry = s :PathInfo ( a :url )
let perm = fugitive #getfperm ( a :url )
if commit ! ~ # '^\d$' | | entry [2 ] ! = # 'blob' | |
\ substitute ( perm , 'x' , '-' , 'g' ) ! = # substitute ( a :perm , 'x' , '-' , 'g' )
return -2
endif
2019-07-01 02:38:16 -04:00
let exec_error = s :SystemError ( [dir , 'update-index' , '--index-info' ],
\ ( a :perm = ~ # 'x' ? '000755 ' : '000644 ' ) . entry [3 ] . ' ' . commit . "\t" . file [1 :-1 ]) [1 ]
return exec_error ? -1 : 0
2018-07-26 20:55:47 -04:00
endfunction
2018-07-22 22:37:28 -04:00
function ! s :TempCmd ( out , cmd ) abort
let prefix = ''
try
2019-07-01 05:52:45 -04:00
let cmd = ( type ( a :cmd ) = = type ( []) ? fugitive #Prepare ( a :cmd ) : a :cmd )
2018-07-22 22:37:28 -04:00
let redir = ' > ' . a :out
if s :winshell ( )
let cmd_escape_char = &shellxquote = = '(' ? '^' : '^^^'
2019-07-01 02:38:16 -04:00
return s :SystemError ( 'cmd /c "' . prefix . s :gsub ( cmd , '[<>]' , cmd_escape_char . '&' ) . redir . '"' )
2018-07-22 22:37:28 -04:00
elseif &shell = ~ # 'fish'
2019-07-01 02:38:16 -04:00
return s :SystemError ( ' begin;' . prefix . cmd . redir . ';end ' )
2018-07-22 22:37:28 -04:00
else
2019-07-01 02:38:16 -04:00
return s :SystemError ( ' (' . prefix . cmd . redir . ') ' )
2018-07-22 22:37:28 -04:00
endif
endtry
endfunction
2018-07-16 23:34:02 -04:00
if ! exists ( 's:blobdirs' )
let s :blobdirs = {}
endif
function ! s :BlobTemp ( url ) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
if empty ( file )
return ''
endif
if ! has_key ( s :blobdirs , dir )
2018-08-18 23:12:09 -04:00
let s :blobdirs [dir ] = tempname ( )
2018-07-16 23:34:02 -04:00
endif
2018-08-18 23:12:09 -04:00
let tempfile = s :blobdirs [dir ] . '/' . commit . file
2018-07-16 23:34:02 -04:00
let tempparent = fnamemodify ( tempfile , ':h' )
if ! isdirectory ( tempparent )
call mkdir ( tempparent , 'p' )
endif
if commit = ~ # '^\d$' | | ! filereadable ( tempfile )
let rev = s :DirRev ( a :url ) [1 ]
2019-07-01 05:52:45 -04:00
let exec_error = s :TempCmd ( tempfile , [dir , 'cat-file' , 'blob' , rev ]) [1 ]
if exec_error
2018-07-16 23:34:02 -04:00
call delete ( tempfile )
return ''
endif
endif
2018-08-18 23:12:09 -04:00
return s :Resolve ( tempfile )
2018-07-16 23:34:02 -04:00
endfunction
2018-06-20 17:25:12 -04:00
function ! fugitive #readfile ( url , ...) abort
let entry = s :PathInfo ( a :url )
if entry [2 ] ! = # 'blob'
return []
endif
2018-07-16 23:34:02 -04:00
let temp = s :BlobTemp ( a :url )
if empty ( temp )
2018-06-20 17:25:12 -04:00
return []
endif
2018-07-16 23:34:02 -04:00
return call ( 'readfile' , [temp ] + a :000 )
2018-06-20 17:25:12 -04:00
endfunction
2018-07-26 18:09:47 -04:00
function ! fugitive #writefile ( lines , url , ...) abort
let url = type ( a :url ) = = # type ( '' ) ? a :url : ''
let [dir , commit , file ] = s :DirCommitFile ( url )
let entry = s :PathInfo ( url )
if commit = ~ # '^\d$' && entry [2 ] ! = # 'tree'
2018-08-18 23:12:09 -04:00
let temp = tempname ( )
2018-07-26 18:09:47 -04:00
if a :0 && a :1 = ~ # 'a' && entry [2 ] = = # 'blob'
call writefile ( fugitive #readfile ( url , 'b' ) , temp , 'b' )
endif
call call ( 'writefile' , [a :lines , temp ] + a :000 )
2019-07-01 05:52:45 -04:00
let [hash , exec_error ] = s :ChompError ( [dir , 'hash-object' , '-w' , temp ])
2018-07-26 18:09:47 -04:00
let mode = len ( entry [1 ]) ? entry [1 ] : '100644'
2019-07-01 21:19:47 -04:00
if ! exec_error && hash = ~ # '^\x\{40,\}$'
2019-07-01 02:38:16 -04:00
let exec_error = s :SystemError ( [dir , 'update-index' , '--index-info' ],
\ mode . ' ' . hash . ' ' . commit . "\t" . file [1 :-1 ]) [1 ]
if ! exec_error
2018-07-26 18:09:47 -04:00
return 0
endif
endif
endif
return call ( 'writefile' , [a :lines , a :url ] + a :000 )
endfunction
2018-08-10 03:14:47 -04:00
let s :globsubs = {
\ '/**/' : '/\%([^./][^/]*/\)*' ,
\ '/**' : '/\%([^./][^/]\+/\)*[^./][^/]*' ,
\ '**/' : '[^/]*\%(/[^./][^/]*\)*' ,
\ '**' : '.*' ,
\ '/*' : '/[^/.][^/]*' ,
\ '*' : '[^/]*' ,
\ '?' : '[^/]' }
2018-06-20 17:25:12 -04:00
function ! fugitive #glob ( url , ...) abort
let [dirglob , commit , glob ] = s :DirCommitFile ( a :url )
let append = matchstr ( glob , '/*$' )
let glob = substitute ( glob , '/*$' , '' , '' )
2019-05-04 18:47:27 -04:00
let pattern = '^' . substitute ( glob , '/\=\*\*/\=\|/\=\*\|[.?\$]\|^^' , '\=get(s:globsubs, submatch(0), "\\" . submatch(0))' , 'g' ) [1 :-1 ] . '$'
2018-06-20 17:25:12 -04:00
let results = []
for dir in dirglob = ~ # '[*?]' ? split ( glob ( dirglob ) , "\n" ) : [dirglob ]
2019-06-02 16:19:09 -04:00
if empty ( dir ) | | ! get ( g :, 'fugitive_file_api' , 1 ) | | ! filereadable ( fugitive #Find ( '.git/HEAD' , dir ) )
2018-06-20 17:25:12 -04:00
continue
endif
let files = items ( s :TreeInfo ( dir , commit ) [0 ])
if len ( append )
call filter ( files , 'v:val[1][2] ==# "tree"' )
endif
call map ( files , 'v:val[0]' )
call filter ( files , 'v:val =~# pattern' )
let prepend = 'fugitive://' . dir . '//' . substitute ( commit , '^:' , '' , '' ) . '/'
call sort ( files )
call map ( files , 's:PlatformSlash(prepend . v:val . append)' )
call extend ( results , files )
endfor
if a :0 > 1 && a :2
return results
else
return join ( results , "\n" )
endif
endfunction
2018-07-26 17:12:14 -04:00
function ! fugitive #delete ( url , ...) abort
let [dir , commit , file ] = s :DirCommitFile ( a :url )
if a :0 && len ( a :1 ) | | commit ! ~ # '^\d$'
return -1
endif
let entry = s :PathInfo ( a :url )
if entry [2 ] ! = # 'blob'
return -1
endif
2019-07-01 02:38:16 -04:00
let exec_error = s :SystemError ( [dir , 'update-index' , '--index-info' ],
\ '000000 0000000000000000000000000000000000000000 ' . commit . "\t" . file [1 :-1 ]) [1 ]
return exec_error ? -1 : 0
2018-07-26 17:12:14 -04:00
endfunction
2018-08-06 02:01:32 -04:00
" Section: Buffer Object
2018-06-01 13:46:22 -04:00
let s :buffer_prototype = {}
2018-07-28 20:26:31 -04:00
function ! fugitive #buffer ( ...) abort
2018-06-01 13:46:22 -04:00
let buffer = {'#' : bufnr ( a :0 ? a :1 : '%' ) }
2018-08-06 02:01:32 -04:00
call extend ( buffer , s :buffer_prototype , 'keep' )
2018-12-28 17:10:45 -05:00
return buffer
2018-06-01 13:46:22 -04:00
endfunction
function ! s :buffer_getvar ( var ) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().getvar() which has been removed. Replace it with the local variable or getbufvar()"
2018-06-01 13:46:22 -04:00
endfunction
function ! s :buffer_getline ( lnum ) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().getline() which has been removed. Replace it with getline() or getbufline()"
2018-06-01 13:46:22 -04:00
endfunction
function ! s :buffer_repo ( ) dict abort
2019-07-03 18:32:47 -04:00
return fugitive #repo ( self ['#' ])
2018-06-01 13:46:22 -04:00
endfunction
function ! s :buffer_type ( ...) dict abort
2019-07-03 18:32:47 -04:00
return getbufvar ( self ['#' ], 'fugitive_type' )
2018-06-01 13:46:22 -04:00
endfunction
2018-12-28 17:10:45 -05:00
function ! s :buffer_spec ( ) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().spec() which has been removed. Replace it with bufname(), expand('%:p'), etc"
2018-12-28 17:10:45 -05:00
endfunction
2018-06-01 13:46:22 -04:00
function ! s :buffer_name ( ) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().name() which has been removed. Replace it with bufname(), expand('%:p'), etc"
2018-06-01 13:46:22 -04:00
endfunction
function ! s :buffer_commit ( ) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().commit() which has been removed. Replace it with matchstr(FugitiveParse()[0], '^\x\+')"
2018-06-01 13:46:22 -04:00
endfunction
2018-06-25 16:43:00 -04:00
function ! s :buffer_relative ( ...) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().relative() which has been removed. Replace it with FugitivePath(@%, " . string ( a :0 ? a :1 : '' ) . ")"
2018-06-01 13:46:22 -04:00
endfunction
2018-06-27 17:11:59 -04:00
function ! s :buffer_path ( ...) dict abort
2019-01-07 11:29:46 -05:00
throw "fugitive: A third-party plugin or vimrc is calling fugitive#buffer().path() which has been removed. Replace it with FugitivePath(@%, " . string ( a :0 ? a :1 : '' ) . ")"
2018-06-27 17:11:59 -04:00
endfunction
2018-08-10 19:20:31 -04:00
call s :add_methods ( 'buffer' , ['getvar' , 'getline' , 'repo' , 'type' , 'spec' , 'name' , 'commit' , 'path' , 'relative' ])
2018-06-01 13:46:22 -04:00
2018-07-29 14:24:05 -04:00
" Section: Completion
2018-06-01 13:46:22 -04:00
2019-07-08 05:04:35 -04:00
function ! s :FilterEscape ( items , ...) abort
let items = copy ( a :items )
if a :0 && type ( a :1 ) = = type ( '' )
call filter ( items , 'strpart(v:val, 0, strlen(a:1)) ==# a:1' )
endif
return map ( items , 's:fnameescape(v:val)' )
endfunction
2018-07-28 21:08:56 -04:00
function ! s :GlobComplete ( lead , pattern ) abort
2019-07-06 12:05:52 -04:00
if a :lead = = # '/'
return []
elseif v :version > = 704
2018-07-28 21:08:56 -04:00
let results = glob ( a :lead . a :pattern , 0 , 1 )
else
let results = split ( glob ( a :lead . a :pattern ) , "\n" )
endif
call map ( results , 'v:val !~# "/$" && isdirectory(v:val) ? v:val."/" : v:val' )
call map ( results , 'v:val[ strlen(a:lead) : -1 ]' )
return results
endfunction
2019-02-27 22:01:25 -05:00
function ! fugitive #CompletePath ( base , ...) abort
let dir = a :0 = = 1 ? a :1 : a :0 = = 3 ? a :3 : s :Dir ( )
2018-08-15 19:24:35 -04:00
let tree = s :Tree ( dir ) . '/'
let strip = '^\%(:/:\=\|:(top)\|:(top,literal)\|:(literal,top)\|:(literal)\)'
let base = substitute ( a :base , strip , '' , '' )
2018-07-28 21:08:56 -04:00
if base = ~ # '^\.git/'
let pattern = s :gsub ( base [5 :-1 ], '/' , '*&' ) .'*'
let matches = s :GlobComplete ( dir . '/' , pattern )
let cdir = fugitive #CommonDir ( dir )
if len ( cdir ) && s :cpath ( dir ) ! = # s :cpath ( cdir )
call extend ( matches , s :GlobComplete ( cdir . '/' , pattern ) )
endif
call s :Uniq ( matches )
call map ( matches , "'.git/' . v:val" )
2018-08-05 23:45:50 -04:00
elseif base = ~ # '^\~/'
let matches = map ( s :GlobComplete ( expand ( '~/' ) , base [2 :-1 ] . '*' ) , '"~/" . v:val' )
2018-08-15 19:24:35 -04:00
elseif a :base = ~ # '^/\|^\a\+:\|^\.\.\=/\|^:(literal)'
let matches = s :GlobComplete ( '' , base . '*' )
2018-08-02 18:17:54 -04:00
elseif len ( tree ) > 1
2018-07-28 21:08:56 -04:00
let matches = s :GlobComplete ( tree , s :gsub ( base , '/' , '*&' ) .'*' )
2018-08-02 18:17:54 -04:00
else
let matches = []
2018-07-28 21:08:56 -04:00
endif
2018-07-30 01:35:11 -04:00
call map ( matches , 's:fnameescape(s:Slash(matchstr(a:base, strip) . v:val))' )
2018-07-29 14:24:05 -04:00
return matches
endfunction
2018-06-01 13:46:22 -04:00
2019-02-27 22:01:25 -05:00
function ! fugitive #PathComplete ( ...) abort
return call ( 'fugitive#CompletePath' , a :000 )
endfunction
function ! fugitive #CompleteObject ( base , ...) abort
let dir = a :0 = = 1 ? a :1 : a :0 = = 3 ? a :3 : s :Dir ( )
2019-07-09 13:28:27 -04:00
let cwd = getcwd ( )
2018-07-28 21:08:56 -04:00
let tree = s :Tree ( dir ) . '/'
2018-08-12 21:28:21 -04:00
let subdir = ''
if len ( tree ) > 1 && s :cpath ( tree , cwd [0 : len ( tree ) - 1 ])
let subdir = strpart ( cwd , len ( tree ) ) . '/'
endif
2018-08-02 18:51:12 -04:00
if a :base = ~ # '^\.\=/\|^:(' | | a :base ! ~ # ':'
2018-07-29 14:24:05 -04:00
let results = []
2018-07-28 21:08:56 -04:00
if a :base = ~ # '^refs/'
2018-07-30 01:35:11 -04:00
let results + = map ( s :GlobComplete ( fugitive #CommonDir ( dir ) . '/' , a :base . '*' ) , 's:Slash(v:val)' )
2018-08-02 18:51:12 -04:00
elseif a :base ! ~ # '^\.\=/\|^:('
2018-07-28 21:08:56 -04:00
let heads = ['HEAD' , 'ORIG_HEAD' , 'FETCH_HEAD' , 'MERGE_HEAD' , 'refs/' ]
2019-07-06 12:05:52 -04:00
let heads + = sort ( s :LinesError ( ["rev-parse" , "--symbolic" , "--branches" , "--tags" , "--remotes" ], dir ) [0 ])
2018-07-28 21:08:56 -04:00
if filereadable ( fugitive #CommonDir ( dir ) . '/refs/stash' )
2018-07-29 14:24:05 -04:00
let heads + = ["stash" ]
2019-07-06 12:05:52 -04:00
let heads + = sort ( s :LinesError ( ["stash" , "list" , "--pretty=format:%gd" ], dir ) [0 ])
2018-07-29 14:24:05 -04:00
endif
call filter ( heads , 'v:val[ 0 : strlen(a:base)-1 ] ==# a:base' )
let results + = heads
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
call map ( results , 's:fnameescape(v:val)' )
2018-07-28 21:08:56 -04:00
if ! empty ( tree )
2019-02-27 22:01:25 -05:00
let results + = a :0 = = 1 ? fugitive #CompletePath ( a :base , dir ) : fugitive #CompletePath ( a :base )
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
return results
2018-07-27 01:30:41 -04:00
2018-07-29 14:24:05 -04:00
elseif a :base = ~ # '^:'
2019-07-06 12:05:52 -04:00
let entries = s :LinesError ( ['ls-files' , '--stage' ], dir ) [0 ]
2018-08-11 00:52:48 -04:00
if a :base = ~ # ':\./'
call map ( entries , 'substitute(v:val, "\\M\t\\zs" . subdir, "./", "")' )
endif
2018-07-29 14:24:05 -04:00
call map ( entries , 's:sub(v:val,".*(\\d)\\t(.*)",":\\1:\\2")' )
if a :base ! ~ # '^:[0-3]\%(:\|$\)'
call filter ( entries , 'v:val[1] == "0"' )
call map ( entries , 'v:val[2:-1]' )
endif
2018-06-01 13:46:22 -04:00
else
2018-08-11 00:52:48 -04:00
let tree = matchstr ( a :base , '.*[:/]' )
2019-07-06 12:05:52 -04:00
let entries = s :LinesError ( ['ls-tree' , substitute ( tree , ':\zs\./' , '\=subdir' , '' ) ], dir ) [0 ]
2018-07-29 14:24:05 -04:00
call map ( entries , 's:sub(v:val,"^04.*\\zs$","/")' )
call map ( entries , 'tree.s:sub(v:val,".*\t","")' )
2018-08-11 00:52:48 -04:00
2018-06-01 13:46:22 -04:00
endif
2019-07-08 05:04:35 -04:00
return s :FilterEscape ( entries , a :base )
endfunction
function ! s :CompleteSubcommand ( subcommand , A , L , P , ...) abort
let pre = strpart ( a :L , 0 , a :P )
if pre = ~ # ' -- '
return fugitive #CompletePath ( a :A )
elseif a :A = ~ # '^-' | | a :A is # 0
return s :FilterEscape ( split ( s :ChompDefault ( '' , a :subcommand , '--git-completion-helper' ) , ' ' ) , a :A )
elseif ! a :0
2019-07-09 13:26:07 -04:00
return fugitive #CompleteObject ( a :A , s :Dir ( ) )
2019-07-08 05:04:35 -04:00
elseif type ( a :1 ) = = type ( function ( 'tr' ) )
return call ( a :1 , [a :A , a :L , a :P ])
else
return s :FilterEscape ( a :1 , a :A )
endif
endfunction
function ! s :CompleteRevision ( A , L , P ) abort
return s :FilterEscape ( ['HEAD' , 'FETCH_HEAD' , 'MERGE_HEAD' , 'ORIG_HEAD' ] +
\ s :LinesError ( 'rev-parse' , '--symbolic' , '--branches' , '--tags' , '--remotes' ) [0 ], a :A )
endfunction
function ! s :CompleteRemote ( A , L , P ) abort
let remote = matchstr ( a :L , '\u\w*[! ] *\zs\S\+\ze ' )
if ! empty ( remote )
let matches = s :LinesError ( 'ls-remote' , remote ) [0 ]
call filter ( matches , 'v:val =~# "\t" && v:val !~# "{"' )
call map ( matches , 's:sub(v:val, "^.*\t%(refs/%(heads/|tags/)=)=", "")' )
else
let matches = s :LinesError ( 'remote' ) [0 ]
endif
return s :FilterEscape ( matches , a :A )
2018-06-01 13:46:22 -04:00
endfunction
2018-08-06 02:01:32 -04:00
" Section: Buffer auto-commands
2018-06-01 13:46:22 -04:00
2019-05-02 23:43:41 -04:00
function ! s :ReplaceCmd ( cmd ) abort
2018-08-18 23:12:09 -04:00
let temp = tempname ( )
2019-07-01 05:52:45 -04:00
let [err , exec_error ] = s :TempCmd ( temp , a :cmd )
if exec_error
2018-08-18 23:12:09 -04:00
call s :throw ( ( len ( err ) ? err : filereadable ( temp ) ? join ( readfile ( temp ) , ' ' ) : 'unknown error running ' . a :cmd ) )
2018-06-01 13:46:22 -04:00
endif
2018-08-18 23:12:09 -04:00
let temp = s :Resolve ( temp )
2018-07-29 14:24:05 -04:00
let fn = expand ( '%:p' )
2018-08-18 23:12:09 -04:00
silent exe 'keepalt file ' .temp
2018-12-23 14:30:34 -05:00
let modelines = &modelines
2018-06-01 13:46:22 -04:00
try
2018-12-23 14:30:34 -05:00
set modelines = 0
2019-05-02 23:43:41 -04:00
silent keepjumps noautocmd edit !
2018-07-29 14:24:05 -04:00
finally
2018-12-23 14:30:34 -05:00
let &modelines = modelines
2018-07-29 14:24:05 -04:00
try
silent exe 'keepalt file ' .s :fnameescape ( fn )
catch /^Vim\%((\a\+)\)\=:E302:/
endtry
2018-08-18 23:12:09 -04:00
call delete ( temp )
if s :cpath ( fnamemodify ( bufname ( '$' ) , ':p' ) , temp )
2018-07-29 14:24:05 -04:00
silent execute 'bwipeout ' .bufnr ( '$' )
endif
2018-06-01 13:46:22 -04:00
endtry
endfunction
2018-12-25 14:07:17 -05:00
function ! s :QueryLog ( refspec ) abort
2019-07-01 05:52:45 -04:00
let lines = s :LinesError ( ['log' , '-n' , '256' , '--format=%h%x09%s' , a :refspec , '--' ]) [0 ]
2018-12-25 14:07:17 -05:00
call map ( lines , 'split(v:val, "\t")' )
call map ( lines , '{"type": "Log", "commit": v:val[0], "subject": v:val[-1]}' )
return lines
endfunction
function ! s :FormatLog ( dict ) abort
return a :dict .commit . ' ' . a :dict .subject
endfunction
2018-12-31 00:15:10 -05:00
function ! s :FormatRebase ( dict ) abort
return a :dict .status . ' ' . a :dict .commit . ' ' . a :dict .subject
endfunction
2018-12-25 14:07:17 -05:00
function ! s :FormatFile ( dict ) abort
return a :dict .status . ' ' . a :dict .filename
endfunction
function ! s :Format ( val ) abort
if type ( a :val ) = = type ( {})
return s :Format {a :val .type }( a :val )
elseif type ( a :val ) = = type ( [])
return map ( copy ( a :val ) , 's:Format(v:val)' )
else
return '' . a :val
endif
endfunction
function ! s :AddHeader ( key , value ) abort
if empty ( a :value )
return
endif
let before = 1
while ! empty ( getline ( before ) )
let before + = 1
endwhile
call append ( before - 1 , [a :key . ':' . ( len ( a :value ) ? ' ' . a :value : '' ) ])
if before = = 1 && line ( '$' ) = = 2
silent 2 delete _
endif
endfunction
function ! s :AddSection ( label , lines , ...) abort
let note = a :0 ? a :1 : ''
if empty ( a :lines ) && empty ( note )
return
endif
call append ( line ( '$' ) , ['' , a :label . ( len ( note ) ? ': ' . note : ' (' . len ( a :lines ) . ')' ) ] + s :Format ( a :lines ) )
endfunction
2018-07-29 14:24:05 -04:00
function ! fugitive #BufReadStatus ( ) abort
2018-07-30 01:35:11 -04:00
let amatch = s :Slash ( expand ( '%:p' ) )
2018-07-29 14:24:05 -04:00
let b :fugitive_type = 'index'
2019-07-02 02:02:37 -04:00
unlet ! b :fugitive_reltime
2018-07-29 14:24:05 -04:00
try
2018-12-23 16:54:27 -05:00
silent doautocmd BufReadPre
2018-08-31 15:36:44 -04:00
let cmd = [fnamemodify ( amatch , ':h' ) ]
2018-12-25 14:07:17 -05:00
setlocal noro ma nomodeline buftype = nowrite
2019-06-02 16:19:09 -04:00
if s :cpath ( fnamemodify ( $GIT_INDEX_FILE ! = # '' ? $GIT_INDEX_FILE : fugitive #Find ( '.git/index' ) , ':p' ) ) ! = # s :cpath ( amatch )
2018-08-31 15:36:44 -04:00
let cmd + = ['-c' , 'GIT_INDEX_FILE=' . amatch ]
2018-07-29 14:24:05 -04:00
endif
2018-12-25 14:07:17 -05:00
let cmd + = ['status' , '--porcelain' , '-bz' ]
2019-07-01 02:11:20 -04:00
let [output , message , exec_error ] = s :NullError ( cmd )
if exec_error
throw 'fugitive: ' . message
2018-12-25 14:07:17 -05:00
endif
let head = matchstr ( output [0 ], '^## \zs\S\+\ze\%($\| \[\)' )
let pull = ''
if head = ~ # '\.\.\.'
let [head , pull ] = split ( head , '\.\.\.' )
let branch = head
elseif head = = # 'HEAD' | | empty ( head )
let head = FugitiveHead ( 11 )
let branch = ''
2018-07-29 14:24:05 -04:00
else
2018-12-25 14:07:17 -05:00
let branch = head
2018-07-29 14:24:05 -04:00
endif
2018-12-25 14:07:17 -05:00
2019-02-14 17:06:12 -05:00
let b :fugitive_status = {'Staged' : {}, 'Unstaged' : {}}
2019-02-18 15:04:31 -05:00
let [staged , unstaged , untracked ] = [[], [], []]
2018-12-25 14:07:17 -05:00
let i = 0
while i < len ( output )
let line = output [i ]
let file = line [3 :-1 ]
let files = file
let i + = 1
2019-01-09 14:01:54 -05:00
if line [2 ] ! = # ' '
continue
endif
2018-12-25 14:07:17 -05:00
if line [0 :1 ] = ~ # '[RC]'
let files = output [i ] . ' -> ' . file
let i + = 1
2018-07-29 14:24:05 -04:00
endif
2018-12-25 14:07:17 -05:00
if line [0 ] ! ~ # '[ ?!#]'
2019-02-14 17:06:12 -05:00
call add ( staged , {'type' : 'File' , 'status' : line [0 ], 'filename' : files })
let b :fugitive_status ['Staged' ][files ] = line [0 ]
2018-12-25 14:07:17 -05:00
endif
2019-02-18 15:04:31 -05:00
if line [1 ] = ~ # '?'
call add ( untracked , {'type' : 'File' , 'status' : line [1 ], 'filename' : files })
let b :fugitive_status ['Unstaged' ][files ] = line [1 ]
elseif line [1 ] ! ~ # '[ !#]'
2019-02-14 17:06:12 -05:00
call add ( unstaged , {'type' : 'File' , 'status' : line [1 ], 'filename' : files })
let b :fugitive_status ['Unstaged' ][files ] = line [1 ]
2018-07-29 14:24:05 -04:00
endif
2018-12-25 14:07:17 -05:00
endwhile
2019-02-14 17:06:12 -05:00
for dict in staged
let b :fugitive_status ['Staged' ][dict .filename ] = dict .status
endfor
for dict in unstaged
let b :fugitive_status ['Unstaged' ][dict .filename ] = dict .status
endfor
2018-12-25 14:07:17 -05:00
let config = fugitive #Config ( )
2018-12-25 16:35:00 -05:00
let pull_type = 'Pull'
2018-12-25 14:07:17 -05:00
if len ( pull )
let rebase = fugitive #Config ( 'branch.' . branch . '.rebase' , config )
if empty ( rebase )
let rebase = fugitive #Config ( 'pull.rebase' , config )
endif
if rebase = ~ # '^\%(true\|yes\|on\|1\|interactive\)$'
let pull_type = 'Rebase'
elseif rebase = ~ # '^\%(false\|no|off\|0\|\)$'
let pull_type = 'Merge'
endif
endif
let push_remote = fugitive #Config ( 'branch.' . branch . '.pushRemote' , config )
if empty ( push_remote )
let push_remote = fugitive #Config ( 'remote.pushDefault' , config )
2018-07-29 14:24:05 -04:00
endif
2018-12-25 14:07:17 -05:00
let push = len ( push_remote ) && len ( branch ) ? push_remote . '/' . branch : ''
if empty ( push )
let push = pull
endif
if len ( pull )
let unpulled = s :QueryLog ( head . '..' . pull )
else
let unpulled = []
endif
if len ( push )
let unpushed = s :QueryLog ( push . '..' . head )
else
let unpushed = []
endif
2018-12-31 00:15:10 -05:00
if isdirectory ( fugitive #Find ( '.git/rebase-merge/' ) )
let rebasing_dir = fugitive #Find ( '.git/rebase-merge/' )
elseif isdirectory ( fugitive #Find ( '.git/rebase-apply/' ) )
let rebasing_dir = fugitive #Find ( '.git/rebase-apply/' )
endif
let rebasing = []
let rebasing_head = 'detached HEAD'
if exists ( 'rebasing_dir' ) && filereadable ( rebasing_dir . 'git-rebase-todo' )
let rebasing_head = substitute ( readfile ( rebasing_dir . 'head-name' ) [0 ], '\C^refs/heads/' , '' , '' )
let len = 11
let lines = readfile ( rebasing_dir . 'git-rebase-todo' )
for line in lines
let hash = matchstr ( line , '^[^a-z].*\s\zs[0-9a-f]\{4,\}\ze\.\.' )
if len ( hash )
let len = len ( hash )
break
endif
endfor
if getfsize ( rebasing_dir . 'done' ) > 0
let done = readfile ( rebasing_dir . 'done' )
call map ( done , 'substitute(v:val, ''^\l\+\>'', "done", "")' )
let done [-1 ] = substitute ( done [-1 ], '^\l\+\>' , 'stop' , '' )
let lines = done + lines
endif
call reverse ( lines )
for line in lines
let match = matchlist ( line , '^\(\l\+\)\s\+\(\x\{4,\}\)\s\+\(.*\)' )
if len ( match ) && match [1 ] ! ~ # 'exec\|merge\|label'
call add ( rebasing , {'type' : 'Rebase' , 'status' : get ( s :rebase_abbrevs , match [1 ], match [1 ]) , 'commit' : strpart ( match [2 ], 0 , len ) , 'subject' : match [3 ]})
endif
endfor
endif
2019-01-03 00:19:21 -05:00
let b :fugitive_diff = {
2019-07-01 05:52:45 -04:00
\ 'Staged' : s :LinesError ( ['diff' , '--color=never' , '--no-ext-diff' , '--no-prefix' , '--cached' ]) [0 ],
\ 'Unstaged' : s :LinesError ( ['diff' , '--color=never' , '--no-ext-diff' , '--no-prefix' ]) [0 ]}
2019-01-03 00:19:21 -05:00
let expanded = get ( b :, 'fugitive_expanded' , {'Staged' : {}, 'Unstaged' : {}})
let b :fugitive_expanded = {'Staged' : {}, 'Unstaged' : {}}
2018-12-25 14:07:17 -05:00
silent keepjumps %delete_
call s :AddHeader ( 'Head' , head )
call s :AddHeader ( pull_type , pull )
if push ! = # pull
call s :AddHeader ( 'Push' , push )
endif
2018-12-31 00:15:10 -05:00
call s :AddSection ( 'Rebasing ' . rebasing_head , rebasing )
2019-07-04 07:17:36 -04:00
call s :AddSection ( 'Untracked' , untracked )
2018-12-25 14:07:17 -05:00
call s :AddSection ( 'Unstaged' , unstaged )
2019-01-03 00:19:21 -05:00
let unstaged_end = len ( unstaged ) ? line ( '$' ) : 0
2018-12-25 14:07:17 -05:00
call s :AddSection ( 'Staged' , staged )
2019-01-03 00:19:21 -05:00
let staged_end = len ( staged ) ? line ( '$' ) : 0
2018-12-25 14:07:17 -05:00
call s :AddSection ( 'Unpushed to ' . push , unpushed )
call s :AddSection ( 'Unpulled from ' . pull , unpulled )
2019-02-28 20:08:09 -05:00
setlocal nomodified readonly noswapfile
2018-12-25 14:07:17 -05:00
silent doautocmd BufReadPost
setlocal nomodifiable
2018-07-29 14:24:05 -04:00
if &bufhidden = = # ''
setlocal bufhidden = delete
endif
2018-12-25 19:43:35 -05:00
let b :dispatch = ':Gfetch --all'
2018-07-29 14:24:05 -04:00
call fugitive #MapJumps ( )
2018-08-11 02:36:53 -04:00
let nowait = v :version > = 704 ? '<nowait>' : ''
2018-07-29 14:24:05 -04:00
nunmap < buffer > P
nunmap < buffer > ~
2019-07-08 14:41:59 -04:00
nnoremap < buffer > < silent > [[ :< C - U > execute < SID > PreviousSection ( v :count1 ) < CR >
nnoremap < buffer > < silent > ]] :< C - U > execute < SID > NextSection ( v :count1 ) < CR >
2019-02-14 16:23:13 -05:00
exe "nnoremap <buffer> <silent>" nowait "- :<C-U>execute <SID>Do('Toggle',0)<CR>"
exe "xnoremap <buffer> <silent>" nowait "- :<C-U>execute <SID>Do('Toggle',1)<CR>"
exe "nnoremap <buffer> <silent>" nowait "s :<C-U>execute <SID>Do('Stage',0)<CR>"
exe "xnoremap <buffer> <silent>" nowait "s :<C-U>execute <SID>Do('Stage',1)<CR>"
exe "nnoremap <buffer> <silent>" nowait "u :<C-U>execute <SID>Do('Unstage',0)<CR>"
exe "xnoremap <buffer> <silent>" nowait "u :<C-U>execute <SID>Do('Unstage',1)<CR>"
2019-07-20 23:43:19 -04:00
nnoremap < buffer > < silent > U :exe < SID > EchoExec ( 'reset' , '-q' ) < CR >
2019-07-07 14:29:37 -04:00
nnoremap < buffer > < silent > gu :< C - U > exe < SID > StageJump ( v :count , 'Unstaged' ) < CR >
nnoremap < buffer > < silent > gU :< C - U > exe < SID > StageJump ( v :count , 'Untracked' ) < CR >
nnoremap < buffer > < silent > gs :< C - U > exe < SID > StageJump ( v :count , 'Staged' ) < CR >
nnoremap < buffer > < silent > gp :< C - U > exe < SID > StageJump ( v :count , 'Unpushed' ) < CR >
nnoremap < buffer > < silent > gP :< C - U > exe < SID > StageJump ( v :count , 'Unpulled' ) < CR >
2019-07-21 15:26:58 -04:00
nnoremap < buffer > < silent > gr :< C - U > exe < SID > StageJump ( v :count , 'Rebasing' ) < CR >
2018-07-29 14:24:05 -04:00
nnoremap < buffer > < silent > C :< C - U > Gcommit < CR > :echohl WarningMsg < Bar > echo ':Gstatus C is deprecated in favor of cc' < Bar > echohl NONE < CR >
2019-02-25 14:16:45 -05:00
nnoremap < buffer > < silent > a :< C - U > execute < SID > Do ( 'Toggle' , 0 ) < CR >
2019-07-23 19:36:18 -04:00
nnoremap < buffer > < silent > i :< C - U > execute < SID > NextExpandedHunk ( v :count1 ) < CR >
2019-01-03 00:19:21 -05:00
exe 'nnoremap <buffer> <silent>' nowait "= :<C-U>execute <SID>StageInline('toggle',line('.'),v:count)<CR>"
2019-07-24 16:17:03 -04:00
exe 'nnoremap <buffer> <silent>' nowait "< :<C-U>execute <SID>StageInline('hide', line('.'),v:count)<CR>"
exe 'nnoremap <buffer> <silent>' nowait "> :<C-U>execute <SID>StageInline('show', line('.'),v:count)<CR>"
2019-01-03 00:19:21 -05:00
exe 'xnoremap <buffer> <silent>' nowait "= :<C-U>execute <SID>StageInline('toggle',line(\"'<\"),line(\"'>\")-line(\"'<\")+1)<CR>"
2019-07-24 16:17:03 -04:00
exe 'xnoremap <buffer> <silent>' nowait "< :<C-U>execute <SID>StageInline('hide', line(\"'<\"),line(\"'>\")-line(\"'<\")+1)<CR>"
exe 'xnoremap <buffer> <silent>' nowait "> :<C-U>execute <SID>StageInline('show', line(\"'<\"),line(\"'>\")-line(\"'<\")+1)<CR>"
2019-07-07 10:34:04 -04:00
nnoremap < buffer > < silent > D :< C - U > execute < SID > StageDiff ( 'Gdiffsplit' ) < CR >
nnoremap < buffer > < silent > dd :< C - U > execute < SID > StageDiff ( 'Gdiffsplit' ) < CR >
nnoremap < buffer > < silent > dh :< C - U > execute < SID > StageDiff ( 'Ghdiffsplit' ) < CR >
nnoremap < buffer > < silent > ds :< C - U > execute < SID > StageDiff ( 'Ghdiffsplit' ) < CR >
2018-07-29 14:24:05 -04:00
nnoremap < buffer > < silent > dp :< C - U > execute < SID > StageDiffEdit ( ) < CR >
2019-07-07 10:34:04 -04:00
nnoremap < buffer > < silent > dv :< C - U > execute < SID > StageDiff ( 'Gvdiffsplit' ) < CR >
2018-07-29 14:24:05 -04:00
nnoremap < buffer > < silent > P :< C - U > execute < SID > StagePatch ( line ( '.' ) , line ( '.' ) + v :count1 -1 ) < CR >
xnoremap < buffer > < silent > P :< C - U > execute < SID > StagePatch ( line ( "'<" ) , line ( "'>" ) ) < CR >
2019-07-18 00:02:28 -04:00
if empty ( mapcheck ( 'q' , 'n' ) )
2019-07-07 14:26:03 -04:00
nnoremap < buffer > < silent > q :< C - U > if bufnr ( '$' ) = = 1 < Bar > quit < Bar > else < Bar > bdelete < Bar > endif < CR >
endif
exe 'nnoremap <buffer> <silent>' s :nowait "gq :<C-U>if bufnr('$') == 1<Bar>quit<Bar>else<Bar>bdelete<Bar>endif<CR>"
2019-07-07 13:15:29 -04:00
nnoremap < buffer > < silent > R :echohl WarningMsg < Bar > echo 'Reloading is automatic. Use :e to force' < Bar > echohl NONE < CR >
2019-07-07 16:13:53 -04:00
nnoremap < buffer > < silent > g < Bar > :< C - U > echoerr 'Changed to X' < CR >
xnoremap < buffer > < silent > g < Bar > :< C - U > echoerr 'Changed to X' < CR >
2019-07-23 18:31:55 -04:00
nnoremap < buffer > < silent > X :< C - U > execute < SID > StageDelete ( line ( '.' ) , 0 , v :count ) < CR >
xnoremap < buffer > < silent > X :< C - U > execute < SID > StageDelete ( line ( "'<" ) , line ( "'>" ) , v :count ) < CR >
2019-07-23 20:42:34 -04:00
nnoremap < buffer > < silent > gI :< C - U > execute < SID > StageIgnore ( line ( '.' ) , line ( '.' ) , v :count ) < CR >
xnoremap < buffer > < silent > gI :< C - U > execute < SID > StageIgnore ( line ( "'<" ) , line ( "'>" ) , v :count ) < CR >
2019-02-18 17:28:49 -05:00
nnoremap < buffer > . :< C - U > < C - R > = < SID > StageArgs ( 0 ) < CR > < Home >
xnoremap < buffer > . :< C - U > < C - R > = < SID > StageArgs ( 1 ) < CR > < Home >
2019-02-10 19:00:40 -05:00
nnoremap < buffer > < silent > < F1 > :help fugitive - mappings < CR >
2019-02-28 20:08:09 -05:00
setlocal filetype = fugitive
2019-01-03 00:19:21 -05:00
for [lnum , section ] in [[staged_end , 'Staged' ], [unstaged_end , 'Unstaged' ]]
while len ( getline ( lnum ) )
let filename = matchstr ( getline ( lnum ) , '^[A-Z?] \zs.*' )
if has_key ( expanded [section ], filename )
call s :StageInline ( 'show' , lnum )
endif
let lnum - = 1
endwhile
endfor
2019-07-02 02:02:37 -04:00
let b :fugitive_reltime = reltime ( )
2018-12-24 11:35:03 -05:00
return ''
2018-07-29 14:24:05 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-07-29 14:24:05 -04:00
endtry
endfunction
function ! fugitive #FileReadCmd ( ...) abort
let amatch = a :0 ? a :1 : expand ( '<amatch>' )
let [dir , rev ] = s :DirRev ( amatch )
let line = a :0 > 1 ? a :2 : line ( "'[" )
if empty ( dir )
return 'noautocmd ' . line . 'read ' . s :fnameescape ( amatch )
endif
if rev ! ~ # ':'
2019-07-01 18:37:26 -04:00
let cmd = fugitive #Prepare ( dir , 'log' , '--pretty=format:%B' , '-1' , rev , '--' )
2018-07-29 14:24:05 -04:00
else
2019-07-01 18:37:26 -04:00
let cmd = fugitive #Prepare ( dir , 'cat-file' , '-p' , rev )
2018-07-29 14:24:05 -04:00
endif
return line . 'read !' . escape ( cmd , '!#%' )
endfunction
function ! fugitive #FileWriteCmd ( ...) abort
let tmp = tempname ( )
let amatch = a :0 ? a :1 : expand ( '<amatch>' )
let autype = a :0 > 1 ? 'Buf' : 'File'
if exists ( '#' . autype . 'WritePre' )
execute 'doautocmd ' . autype . 'WritePre ' . s :fnameescape ( amatch )
endif
try
let [dir , commit , file ] = s :DirCommitFile ( amatch )
if commit ! ~ # '^[0-3]$' | | ! v :cmdbang && ( line ( "'[" ) ! = 1 | | line ( "']" ) ! = line ( '$' ) )
return "noautocmd '[,']write" . ( v :cmdbang ? '!' : '' ) . ' ' . s :fnameescape ( amatch )
endif
2019-07-01 18:37:26 -04:00
silent execute "'[,']write !" .fugitive #Prepare ( dir , 'hash-object' , '-w' , '--stdin' , '--' ) .' > ' .tmp
2018-07-29 14:24:05 -04:00
let sha1 = readfile ( tmp ) [0 ]
2019-07-01 02:38:16 -04:00
let old_mode = matchstr ( s :SystemError ( [dir , 'ls-files' , '--stage' , '.' . file ]) [0 ], '^\d\+' )
2018-08-19 20:52:29 -04:00
if empty ( old_mode )
2018-07-29 14:24:05 -04:00
let old_mode = executable ( s :Tree ( dir ) . file ) ? '100755' : '100644'
endif
let info = old_mode .' ' .sha1 .' ' .commit ."\t" .file [1 :-1 ]
2019-07-01 02:38:16 -04:00
let [error , exec_error ] = s :SystemError ( [dir , 'update-index' , '--index-info' ], info . "\n" )
if ! exec_error
2018-07-29 14:24:05 -04:00
setlocal nomodified
if exists ( '#' . autype . 'WritePost' )
execute 'doautocmd ' . autype . 'WritePost ' . s :fnameescape ( amatch )
endif
return ''
else
return 'echoerr ' .string ( 'fugitive: ' .error )
endif
finally
call delete ( tmp )
endtry
endfunction
function ! fugitive #BufReadCmd ( ...) abort
let amatch = a :0 ? a :1 : expand ( '<amatch>' )
try
let [dir , rev ] = s :DirRev ( amatch )
if empty ( dir )
return 'echo "Invalid Fugitive URL"'
endif
2018-07-29 14:22:33 -04:00
if rev = ~ # '^:\d$'
let b :fugitive_type = 'stage'
else
2019-07-01 05:52:45 -04:00
let [b :fugitive_type , exec_error ] = s :ChompError ( [dir , 'cat-file' , '-t' , rev ])
if exec_error && rev = ~ # '^:0'
2019-07-05 10:32:17 -04:00
let sha = s :ChompDefault ( '' , dir , 'write-tree' , '--prefix=' . rev [3 :-1 ])
let exec_error = empty ( sha )
let b :fugitive_type = exec_error ? '' : 'tree'
2018-07-29 14:22:33 -04:00
endif
2019-07-01 05:52:45 -04:00
if exec_error
2018-09-15 16:47:20 -04:00
let error = b :fugitive_type
2018-07-29 14:22:33 -04:00
unlet b :fugitive_type
2019-06-03 21:06:59 -04:00
setlocal noswapfile
if empty ( &bufhidden )
setlocal bufhidden = delete
endif
2018-07-29 14:22:33 -04:00
if rev = ~ # '^:\d:'
2019-06-02 16:19:09 -04:00
let &l :readonly = ! filewritable ( fugitive #Find ( '.git/index' , dir ) )
2018-12-23 16:54:27 -05:00
return 'silent doautocmd BufNewFile'
2018-07-29 14:22:33 -04:00
else
setlocal readonly nomodifiable
2019-06-03 21:06:59 -04:00
return 'silent doautocmd BufNewFile|echo ' . string ( error )
2018-07-29 14:22:33 -04:00
endif
elseif b :fugitive_type ! ~ # '^\%(tag\|commit\|tree\|blob\)$'
return "echoerr " .string ( "fugitive: unrecognized git type '" .b :fugitive_type ."'" )
endif
if ! exists ( 'b:fugitive_display_format' ) && b :fugitive_type ! = 'blob'
let b :fugitive_display_format = + getbufvar ( '#' , 'fugitive_display_format' )
endif
2018-07-29 14:24:05 -04:00
endif
if b :fugitive_type ! = # 'blob'
setlocal nomodeline
endif
setlocal noreadonly modifiable
let pos = getpos ( '.' )
silent keepjumps %delete_
setlocal endofline
try
2018-12-23 16:54:27 -05:00
silent doautocmd BufReadPre
2018-07-29 14:24:05 -04:00
if b :fugitive_type = = # 'tree'
let b :fugitive_display_format = b :fugitive_display_format % 2
if b :fugitive_display_format
2018-07-29 14:22:33 -04:00
call s :ReplaceCmd ( [dir , 'ls-tree' , exists ( 'sha' ) ? sha : rev ])
2018-07-29 14:24:05 -04:00
else
2018-07-29 14:22:33 -04:00
if ! exists ( 'sha' )
2019-07-01 00:48:18 -04:00
let sha = s :TreeChomp ( dir , 'rev-parse' , '--verify' , rev , '--' )
2018-07-29 14:22:33 -04:00
endif
2018-07-29 14:24:05 -04:00
call s :ReplaceCmd ( [dir , 'show' , '--no-color' , sha ])
endif
elseif b :fugitive_type = = # 'tag'
let b :fugitive_display_format = b :fugitive_display_format % 2
if b :fugitive_display_format
call s :ReplaceCmd ( [dir , 'cat-file' , b :fugitive_type , rev ])
else
call s :ReplaceCmd ( [dir , 'cat-file' , '-p' , rev ])
endif
elseif b :fugitive_type = = # 'commit'
let b :fugitive_display_format = b :fugitive_display_format % 2
if b :fugitive_display_format
call s :ReplaceCmd ( [dir , 'cat-file' , b :fugitive_type , rev ])
else
call s :ReplaceCmd ( [dir , 'show' , '--no-color' , '--pretty=format:tree%x20%T%nparent%x20%P%nauthor%x20%an%x20<%ae>%x20%ad%ncommitter%x20%cn%x20<%ce>%x20%cd%nencoding%x20%e%n%n%s%n%n%b' , rev ])
keepjumps call search ( '^parent ' )
if getline ( '.' ) = = # 'parent '
silent keepjumps delete_
else
2018-09-14 12:45:22 -04:00
silent exe ( exists ( ':keeppatterns' ) ? 'keeppatterns' : '' ) 'keepjumps s/\m\C\%(^parent\)\@<! /\rparent /e' . ( &gdefault ? '' : 'g' )
2018-07-29 14:24:05 -04:00
endif
keepjumps let lnum = search ( '^encoding \%(<unknown>\)\=$' , 'W' , line ( '.' ) + 3 )
if lnum
silent keepjumps delete_
end
2018-10-28 19:48:15 -04:00
silent exe ( exists ( ':keeppatterns' ) ? 'keeppatterns' : '' ) 'keepjumps 1,/^diff --git\|\%$/s/\r$//e'
2018-07-29 14:24:05 -04:00
keepjumps 1
endif
2018-07-29 14:22:33 -04:00
elseif b :fugitive_type = = # 'stage'
call s :ReplaceCmd ( [dir , 'ls-files' , '--stage' ])
2018-07-29 14:24:05 -04:00
elseif b :fugitive_type = = # 'blob'
call s :ReplaceCmd ( [dir , 'cat-file' , b :fugitive_type , rev ])
endif
finally
keepjumps call setpos ( '.' , pos )
setlocal nomodified noswapfile
2018-12-23 16:54:27 -05:00
let modifiable = rev = ~ # '^:.:' && b :fugitive_type ! = # 'tree'
2019-06-02 16:19:09 -04:00
let &l :readonly = ! modifiable | | ! filewritable ( fugitive #Find ( '.git/index' , dir ) )
2019-06-03 21:06:59 -04:00
if empty ( &bufhidden )
2018-07-29 14:24:05 -04:00
setlocal bufhidden = delete
endif
2019-01-06 01:57:33 -05:00
let &l :modifiable = modifiable
2018-07-29 14:24:05 -04:00
if b :fugitive_type ! = # 'blob'
setlocal filetype = git foldmethod = syntax
nnoremap < buffer > < silent > a :< C - U > let b :fugitive_display_format + = v :count1 < Bar > exe fugitive #BufReadCmd ( @%) < CR >
nnoremap < buffer > < silent > i :< C - U > let b :fugitive_display_format - = v :count1 < Bar > exe fugitive #BufReadCmd ( @%) < CR >
endif
2019-02-27 23:27:00 -05:00
call fugitive #MapJumps ( )
2018-07-29 14:24:05 -04:00
endtry
2019-01-05 01:43:59 -05:00
setlocal modifiable
2018-12-23 16:54:27 -05:00
return 'silent doautocmd' . ( v :version > = 704 ? ' <nomodeline>' : '' ) .
\ ' BufReadPost' . ( modifiable ? '' : '|setl nomodifiable' )
2018-07-29 14:24:05 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-07-29 14:24:05 -04:00
endtry
endfunction
function ! fugitive #BufWriteCmd ( ...) abort
return fugitive #FileWriteCmd ( a :0 ? a :1 : expand ( '<amatch>' ) , 1 )
endfunction
function ! fugitive #SourceCmd ( ...) abort
let amatch = a :0 ? a :1 : expand ( '<amatch>' )
let temp = s :BlobTemp ( amatch )
if empty ( temp )
return 'noautocmd source ' . s :fnameescape ( amatch )
endif
if ! exists ( 'g:virtual_scriptnames' )
let g :virtual_scriptnames = {}
endif
let g :virtual_scriptnames [temp ] = amatch
return 'source ' . s :fnameescape ( temp )
endfunction
" Section: Temp files
if ! exists ( 's:temp_files' )
let s :temp_files = {}
endif
2018-08-03 22:50:32 -04:00
function ! s :SetupTemp ( file ) abort
if has_key ( s :temp_files , s :cpath ( a :file ) )
let dict = s :temp_files [s :cpath ( a :file ) ]
if has_key ( dict , 'filetype' ) && dict .filetype ! = # &l :filetype
let &l :filetype = dict .filetype
endif
setlocal foldmarker = < < < < < < < , > > > > > > >
setlocal bufhidden = delete nobuflisted
setlocal buftype = nowrite
2019-07-18 00:02:28 -04:00
if empty ( mapcheck ( 'q' , 'n' ) )
2019-07-07 14:26:03 -04:00
nnoremap < buffer > < silent > q :< C - U > bdelete < CR >
endif
exe 'nnoremap <buffer> <silent>' s :nowait "gq :<C-U>bdelete<CR>"
2018-08-03 22:50:32 -04:00
if getline ( 1 ) ! ~ # '^diff '
setlocal nomodifiable
endif
2019-07-06 11:26:12 -04:00
if len ( dict .dir )
let b :git_dir = dict .dir
call extend ( b :, {'fugitive_type' : 'temp' }, 'keep' )
call FugitiveDetect ( a :file )
if &filetype = = # 'git'
call fugitive #MapJumps ( )
endif
2019-01-03 13:46:16 -05:00
endif
2018-08-03 22:50:32 -04:00
endif
return ''
endfunction
2018-07-29 14:24:05 -04:00
augroup fugitive_temp
autocmd !
2018-08-03 22:50:32 -04:00
autocmd BufNewFile , BufReadPost * exe s :SetupTemp ( expand ( '<amatch>:p' ) )
2018-07-29 14:24:05 -04:00
augroup END
2018-08-06 02:01:32 -04:00
" Section: :Git
2018-07-29 14:24:05 -04:00
2019-07-06 10:37:57 -04:00
function ! s :GitExec ( line1 , line2 , range , count , bang , mods , reg , args , dir ) abort
if empty ( a :args )
2019-07-17 17:24:26 -04:00
let cmd = s :StatusCommand ( a :line1 , a :line2 , a :range , a :count , a :bang , a :mods , a :reg , '' , [])
return empty ( cmd ) ? 'exe' : cmd
2019-07-06 10:37:57 -04:00
endif
2019-07-06 04:02:54 -04:00
if a :bang
2019-07-06 10:37:57 -04:00
return s :OpenExec ( ( a :count > 0 ? a :count : '' ) . ( a :count ? 'split' : 'edit' ) , a :mods , a :args , a :dir )
2019-07-06 04:02:54 -04:00
endif
2019-07-06 10:37:57 -04:00
let git = s :UserCommandList ( a :dir )
2019-07-06 09:44:31 -04:00
if s :HasOpt ( a :args , ['add' , 'checkout' , 'commit' , 'stage' , 'stash' , 'reset' ], '-p' , '--patch' ) | |
2019-07-17 14:10:55 -04:00
\ s :HasOpt ( a :args , ['add' , 'clean' , 'stage' ], '-i' , '--interactive' ) | |
\ index ( ['fetch' , 'pull' , 'push' ], a :args [0 ]) > = 0
2019-07-06 09:44:31 -04:00
let mods = substitute ( s :Mods ( a :mods ) , '\<tab\>' , '-tab' , 'g' )
if has ( 'nvim' )
2019-07-12 14:38:28 -04:00
if &autowrite | | &autowriteall | silent ! wall | endif
2019-07-06 09:44:31 -04:00
return mods . ( a :count ? 'split' : 'edit' ) . ' term://' . s :fnameescape ( s :shellesc ( git + a :args ) ) . '|startinsert'
elseif has ( 'terminal' )
2019-07-12 14:38:28 -04:00
if &autowrite | | &autowriteall | silent ! wall | endif
2019-07-06 09:44:31 -04:00
return 'exe ' . string ( mods . 'terminal ' . ( a :count ? '' : '++curwin ' ) . join ( map ( git + a :args , 's:fnameescape(v:val)' ) ) )
endif
endif
2018-07-29 14:24:05 -04:00
if has ( 'gui_running' ) && ! has ( 'win32' )
2019-07-06 10:37:57 -04:00
call add ( git , '--no-pager' )
2018-07-29 14:24:05 -04:00
endif
2019-07-06 10:37:57 -04:00
let pre = ''
2019-07-01 18:36:55 -04:00
if has ( 'nvim' ) && executable ( 'env' )
2019-07-06 10:37:57 -04:00
let pre .= 'env GIT_TERMINAL_PROMPT=0 '
2019-07-01 18:36:55 -04:00
endif
2019-07-06 10:37:57 -04:00
return 'exe ' . string ( '!' . escape ( pre . s :shellesc ( git + a :args ) , '!#%' ) )
endfunction
function ! s :GitCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
let dir = s :Dir ( )
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( dir ) )
return s :GitExec ( a :line1 , a :line2 , a :range , a :count , a :bang , a :mods , a :reg , args , dir ) . after
endfunction
function ! s :Command ( line1 , line2 , range , count , bang , mods , reg , arg , args , ...) abort
let dir = a :0 ? s :Dir ( a :1 ) : s :Dir ( )
2019-07-11 15:33:52 -04:00
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( dir ) )
return s :GitExec ( a :line1 , a :line2 , a :range , a :count , a :bang , a :mods , a :reg , args , dir ) . after
2018-07-29 14:24:05 -04:00
endfunction
let s :exec_paths = {}
2019-07-18 16:04:44 -04:00
function ! s :ExecPath ( ) abort
2018-07-29 14:24:05 -04:00
if ! has_key ( s :exec_paths , g :fugitive_git_executable )
let s :exec_paths [g :fugitive_git_executable ] = s :sub ( system ( g :fugitive_git_executable .' --exec-path' ) , '\n$' , '' )
endif
2019-07-18 16:04:44 -04:00
return s :exec_paths [g :fugitive_git_executable ]
endfunction
function ! s :Subcommands ( ) abort
let exec_path = s :ExecPath ( )
2018-07-29 14:24:05 -04:00
return map ( split ( glob ( exec_path .'/git-*' ) , "\n" ) , 's:sub(v:val[strlen(exec_path)+5 : -1],"\\.exe$","")' )
endfunction
let s :aliases = {}
2019-02-27 22:01:25 -05:00
function ! s :Aliases ( dir ) abort
if ! has_key ( s :aliases , a :dir )
let s :aliases [a :dir ] = {}
2019-07-01 02:11:20 -04:00
let lines = s :NullError ( [a :dir , 'config' , '-z' , '--get-regexp' , '^alias[.]' ]) [0 ]
for line in lines
2019-02-27 22:01:25 -05:00
let s :aliases [a :dir ][matchstr ( line , '\.\zs.\{-}\ze\n' ) ] = matchstr ( line , '\n\zs.*' )
2018-07-29 14:24:05 -04:00
endfor
endif
2019-02-27 22:01:25 -05:00
return s :aliases [a :dir ]
2018-07-29 14:24:05 -04:00
endfunction
2019-02-27 22:01:25 -05:00
function ! fugitive #CompleteGit ( lead , ...) abort
let dir = a :0 = = 1 ? a :1 : a :0 = = 3 ? a :3 : s :Dir ( )
let pre = a :0 > 1 ? strpart ( a :1 , 0 , a :2 ) : ''
2019-07-07 12:46:44 -04:00
let subcmd = matchstr ( pre , '\u\w*[! ] *\zs[[:alnum:]-]\+\ze ' )
if empty ( subcmd )
let results = sort ( s :Subcommands ( ) + keys ( s :Aliases ( dir ) ) )
2018-07-29 14:24:05 -04:00
elseif pre = ~ # ' -- '
2019-02-27 22:01:25 -05:00
return fugitive #CompletePath ( a :lead , dir )
2019-07-07 12:46:44 -04:00
elseif a :lead = ~ # '^-'
let results = split ( s :ChompDefault ( '' , dir , subcmd , '--git-completion-helper' ) , ' ' )
2018-07-29 14:24:05 -04:00
else
2019-02-27 22:01:25 -05:00
return fugitive #CompleteObject ( a :lead , dir )
2018-07-29 14:24:05 -04:00
endif
2019-07-07 12:46:44 -04:00
return filter ( results , 'strpart(v:val, 0, strlen(a:lead)) ==# a:lead' )
2018-07-29 14:24:05 -04:00
endfunction
2019-07-06 10:37:57 -04:00
function ! fugitive #Complete ( ...) abort
return call ( 'fugitive#CompleteGit' , a :000 )
endfunction
2019-07-11 15:33:52 -04:00
call s :command ( "-bang -nargs=? -range=-1 -complete=customlist,fugitive#CompleteGit Git" , "Git" )
call s :command ( "-bang -nargs=? -range=-1 -complete=customlist,fugitive#CompleteGit G" , "" )
2018-08-06 02:01:32 -04:00
" Section: :Gcd, :Glcd
2018-07-29 14:24:05 -04:00
function ! s :DirComplete ( A , L , P ) abort
2019-02-27 22:01:25 -05:00
return filter ( fugitive #CompletePath ( a :A ) , 'v:val =~# "/$"' )
2018-08-10 22:01:43 -04:00
endfunction
function ! s :DirArg ( path ) abort
let path = substitute ( a :path , '^:/:\=\|^:(\%(top\|top,literal\|literal,top\|literal\))' , '' , '' )
2018-08-15 19:24:35 -04:00
if path = ~ # '^/\|^\a\+:\|^\.\.\=\%(/\|$\)'
2018-08-10 22:01:43 -04:00
return path
else
2019-02-25 17:10:54 -05:00
return ( empty ( s :Tree ( ) ) ? s :Dir ( ) : s :Tree ( ) ) . '/' . path
2018-08-10 22:01:43 -04:00
endif
2018-07-29 14:24:05 -04:00
endfunction
2018-08-10 22:01:43 -04:00
call s :command ( "-bar -bang -nargs=? -complete=customlist,s:DirComplete Gcd :exe 'cd<bang>' s:fnameescape(s:DirArg(<q-args>))" )
call s :command ( "-bar -bang -nargs=? -complete=customlist,s:DirComplete Glcd :exe 'lcd<bang>' s:fnameescape(s:DirArg(<q-args>))" )
2018-07-29 14:24:05 -04:00
2018-08-06 02:01:32 -04:00
" Section: :Gstatus
2018-07-29 14:24:05 -04:00
2019-03-15 20:18:03 -04:00
call s :command ( "-bar -bang -range=-1 Gstatus" , "Status" )
2018-07-29 14:24:05 -04:00
2019-07-06 11:26:12 -04:00
function ! s :StatusCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args , ...) abort
let dir = a :0 ? a :1 : s :Dir ( )
exe s :DirCheck ( dir )
2018-07-29 14:24:05 -04:00
try
2019-06-27 23:22:36 -04:00
let mods = s :Mods ( a :mods , &splitbelow ? 'botright' : 'topleft' )
2019-07-06 11:26:12 -04:00
let file = fugitive #Find ( ':' , dir )
2019-01-09 15:00:36 -05:00
let arg = ' +setl\ foldmethod=syntax\ foldlevel=1\|let\ w:fugitive_status=FugitiveGitDir() ' .
\ s :fnameescape ( file )
2019-01-03 00:23:02 -05:00
for winnr in range ( 1 , winnr ( '$' ) )
if s :cpath ( file , fnamemodify ( bufname ( winbufnr ( winnr ) ) , ':p' ) )
2019-07-18 16:57:24 -04:00
if winnr = = winnr ( )
call s :ReloadStatus ( )
else
call s :ExpireStatus ( dir )
exe winnr . 'wincmd w'
endif
2019-07-06 11:26:12 -04:00
let w :fugitive_status = dir
2019-07-17 14:33:29 -04:00
return 1
2019-01-03 00:23:02 -05:00
endif
endfor
if a :count = = # 0
2019-01-09 15:00:36 -05:00
return mods . 'edit' . ( a :bang ? '!' : '' ) . arg
2019-01-03 00:23:02 -05:00
elseif a :bang
2019-01-09 15:00:36 -05:00
return mods . 'pedit' . arg . '|wincmd P'
2019-01-03 00:23:02 -05:00
else
2019-01-09 15:00:36 -05:00
return mods . ( a :count > 0 ? a :count : '' ) . 'split' . arg
2019-01-03 00:23:02 -05:00
endif
2018-07-29 14:24:05 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-07-29 14:24:05 -04:00
endtry
return ''
endfunction
2019-07-07 14:29:37 -04:00
function ! s :StageJump ( offset , section , ...) abort
let line = search ( '^' . a :section , 'nw' )
if line
exe line
2019-07-08 15:40:47 -04:00
return s :NextFileHunk ( a :offset ? a :offset : 1 )
2019-07-07 14:29:37 -04:00
endif
return ''
endfunction
2019-01-03 00:19:21 -05:00
function ! s :StageSeek ( info , fallback ) abort
let info = a :info
if empty ( info .section )
return a :fallback
endif
let line = search ( '^' . info .section , 'wn' )
if ! line
2019-07-04 07:17:36 -04:00
for section in get ( {'Staged' : ['Unstaged' , 'Untracked' ], 'Unstaged' : ['Untracked' , 'Staged' ]}, info .section , [])
2019-01-03 00:19:21 -05:00
let line = search ( '^' . section , 'wn' )
if line
return line + ( info .index > 0 ? 1 : 0 )
endif
endfor
return 1
endif
let i = 0
while len ( getline ( line ) )
let filename = matchstr ( getline ( line ) , '^[A-Z?] \zs.*' )
if len ( filename ) &&
\ ( ( info .filename [-1 :-1 ] = = # '/' && filename [0 : len ( info .filename ) - 1 ] = = # info .filename ) | |
\ ( filename [-1 :-1 ] = = # '/' && filename = = # info .filename [0 : len ( filename ) - 1 ]) | |
\ filename = = # info .filename )
if info .offset < 0
return line
else
if getline ( line + 1 ) ! ~ # '^@'
exe s :StageInline ( 'show' , line )
endif
if getline ( line + 1 ) ! ~ # '^@'
return line
endif
let type = info .sigil = = # '-' ? '-' : '+'
let offset = -1
while offset < info .offset
let line + = 1
if getline ( line ) = ~ # '^@'
let offset = + matchstr ( getline ( line ) , type . '\zs\d\+' ) - 1
elseif getline ( line ) = ~ # '^[ ' . type . ']'
let offset + = 1
2019-01-03 18:06:26 -05:00
elseif getline ( line ) ! ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
return line - 1
endif
endwhile
return line
endif
endif
let commit = matchstr ( getline ( line ) , '^\%(\%(\x\x\x\)\@!\l\+\s\+\)\=\zs[0-9a-f]\+' )
if len ( commit ) && commit = = # info .commit
return line
endif
if i = = # info .index
let backup = line
endif
2019-01-03 18:06:26 -05:00
let i + = getline ( line ) ! ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let line + = 1
endwhile
return exists ( 'backup' ) ? backup : line - 1
endfunction
function ! s :ReloadStatus ( ...) abort
2019-07-02 02:02:37 -04:00
call s :ExpireStatus ( -1 )
2019-02-03 01:57:24 -05:00
if get ( b :, 'fugitive_type' , '' ) ! = # 'index'
return ''
endif
2019-01-03 00:19:21 -05:00
let original_lnum = a :0 ? a :1 : line ( '.' )
let info = s :StageInfo ( original_lnum )
2019-01-02 00:42:22 -05:00
call fugitive #BufReadStatus ( )
2019-01-03 00:19:21 -05:00
exe s :StageSeek ( info , original_lnum )
normal ! 0
2019-01-02 00:42:22 -05:00
return ''
endfunction
2019-07-02 02:02:37 -04:00
let s :last_time = reltime ( )
if ! exists ( 's:last_times' )
let s :last_times = {}
endif
function ! s :ExpireStatus ( bufnr ) abort
if a :bufnr = = -2
let s :last_time = reltime ( )
return ''
endif
let dir = s :Dir ( a :bufnr )
if len ( dir )
let s :last_times [s :cpath ( dir ) ] = reltime ( )
endif
return ''
endfunction
function ! FugitiveReloadCheck ( ) abort
let t = b :fugitive_reltime
return [t , reltimestr ( reltime ( s :last_time , t ) ) ,
\ reltimestr ( reltime ( get ( s :last_times , s :cpath ( s :Dir ( ) ) , t ) , t ) ) ]
endfunction
function ! s :ReloadWinStatus ( ...) abort
if get ( b :, 'fugitive_type' , '' ) ! = # 'index' | | &modified
2018-06-01 13:46:22 -04:00
return
endif
2019-07-02 02:02:37 -04:00
if ! exists ( 'b:fugitive_reltime' )
exe s :ReloadStatus ( )
return
endif
let t = b :fugitive_reltime
2019-07-09 03:49:03 -04:00
if reltimestr ( reltime ( s :last_time , t ) ) = ~ # '-\|\d\{10\}\.' | |
\ reltimestr ( reltime ( get ( s :last_times , s :cpath ( s :Dir ( ) ) , t ) , t ) ) = ~ # '-\|\d\{10\}\.'
2019-07-02 02:02:37 -04:00
exe s :ReloadStatus ( )
endif
endfunction
function ! s :ReloadTabStatus ( ...) abort
let mytab = tabpagenr ( )
let tab = a :0 ? a :1 : mytab
for winnr in range ( 1 , tabpagewinnr ( tab , '$' ) )
if getbufvar ( tabpagebuflist ( tab ) [winnr -1 ], 'fugitive_type' ) = = # 'index'
execute 'tabnext ' .tab
if winnr ! = winnr ( )
execute winnr .'wincmd w'
let restorewinnr = 1
endif
try
call s :ReloadWinStatus ( )
finally
if exists ( 'restorewinnr' )
unlet restorewinnr
wincmd p
2018-06-01 13:46:22 -04:00
endif
2019-07-02 02:02:37 -04:00
execute 'tabnext ' .mytab
endtry
endif
endfor
unlet ! t :fugitive_reload_status
endfunction
function ! fugitive #ReloadStatus ( ...) abort
call s :ExpireStatus ( a :0 ? a :1 : -2 )
if a :0 > 1 ? a :2 : s :CanAutoReloadStatus ( )
let t = reltime ( )
2019-07-06 07:08:05 -04:00
let t :fugitive_reload_status = t
for tabnr in exists ( '*settabvar' ) ? range ( 1 , tabpagenr ( '$' ) ) : []
2019-07-02 02:02:37 -04:00
call settabvar ( tabnr , 'fugitive_reload_status' , t )
2018-06-01 13:46:22 -04:00
endfor
2019-07-02 02:02:37 -04:00
call s :ReloadTabStatus ( )
else
call s :ReloadWinStatus ( )
endif
2018-06-01 13:46:22 -04:00
endfunction
2019-02-21 13:20:36 -05:00
function ! s :CanAutoReloadStatus ( ) abort
return get ( g :, 'fugitive_autoreload_status' , ! has ( 'win32' ) )
endfunction
augroup fugitive_status
autocmd !
2019-07-02 02:02:37 -04:00
autocmd BufWritePost * call fugitive #ReloadStatus ( -1 , 0 )
autocmd ShellCmdPost * call fugitive #ReloadStatus ( )
autocmd BufDelete term :// * call fugitive #ReloadStatus ( )
2019-02-23 15:21:30 -05:00
if ! has ( 'win32' )
2019-07-02 02:02:37 -04:00
autocmd FocusGained * call fugitive #ReloadStatus ( -2 , 0 )
2019-02-23 15:21:30 -05:00
endif
2019-07-02 02:02:37 -04:00
autocmd BufEnter index , index .lock
\ call s :ReloadWinStatus ( )
autocmd TabEnter *
\ if exists ( 't:fugitive_reload_status' ) |
\ call s :ReloadTabStatus ( ) |
\ endif
2019-02-21 13:20:36 -05:00
augroup END
2018-12-25 14:07:17 -05:00
function ! s :StageInfo ( ...) abort
let lnum = a :0 ? a :1 : line ( '.' )
2019-02-10 11:39:28 -05:00
let sigil = matchstr ( getline ( lnum ) , '^[ @\+-]' )
2019-01-03 00:19:21 -05:00
let offset = -1
2019-02-10 11:39:28 -05:00
if len ( sigil )
2019-01-03 00:19:21 -05:00
let type = sigil = = # '-' ? '-' : '+'
while lnum > 0 && getline ( lnum ) ! ~ # '^@'
if getline ( lnum ) = ~ # '^[ ' .type .']'
let offset + = 1
endif
let lnum - = 1
endwhile
let offset + = matchstr ( getline ( lnum ) , type .'\zs\d\+' )
2019-01-03 18:06:26 -05:00
while getline ( lnum ) = ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let lnum - = 1
endwhile
endif
2018-12-27 17:34:51 -05:00
let slnum = lnum + 1
2018-12-25 14:07:17 -05:00
let section = ''
2019-01-03 00:19:21 -05:00
let index = 0
2018-12-25 14:07:17 -05:00
while len ( getline ( slnum - 1 ) ) && empty ( section )
let slnum - = 1
let section = matchstr ( getline ( slnum ) , '^\u\l\+\ze.* (\d\+)$' )
2019-01-03 18:06:26 -05:00
if empty ( section ) && getline ( slnum ) ! ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let index + = 1
endif
2018-12-25 14:07:17 -05:00
endwhile
2019-06-27 23:30:19 -04:00
let text = matchstr ( getline ( lnum ) , '^[A-Z?] \zs.*' )
2018-12-25 14:07:17 -05:00
return {'section' : section ,
\ 'heading' : getline ( slnum ) ,
2019-01-03 00:19:21 -05:00
\ 'sigil' : sigil ,
\ 'offset' : offset ,
2019-06-27 23:30:19 -04:00
\ 'filename' : text ,
2019-07-04 08:39:34 -04:00
\ 'relative' : reverse ( split ( text , ' -> ' ) ) ,
2019-07-04 07:28:52 -04:00
\ 'paths' : map ( reverse ( split ( text , ' -> ' ) ) , 's:Tree() . "/" . v:val' ) ,
2018-12-31 00:15:10 -05:00
\ 'commit' : matchstr ( getline ( lnum ) , '^\%(\%(\x\x\x\)\@!\l\+\s\+\)\=\zs[0-9a-f]\{4,\}\ze ' ) ,
\ 'status' : matchstr ( getline ( lnum ) , '^[A-Z?]\ze \|^\%(\x\x\x\)\@!\l\+\ze [0-9a-f]' ) ,
2019-01-03 00:19:21 -05:00
\ 'index' : index }
2018-06-01 13:46:22 -04:00
endfunction
2019-02-14 16:23:13 -05:00
function ! s :Selection ( arg1 , ...) abort
if a :arg1 = = # 'n'
let arg1 = line ( '.' )
2019-07-04 06:50:37 -04:00
let arg2 = - v :count
2019-02-14 16:23:13 -05:00
elseif a :arg1 = = # 'v'
let arg1 = line ( "'<" )
let arg2 = line ( "'>" )
else
let arg1 = a :arg1
let arg2 = a :0 ? a :1 : 0
endif
let first = arg1
if arg2 < 0
let last = first - arg2 + 1
elseif arg2 > 0
let last = arg2
else
let last = first
endif
while getline ( first ) = ~ # '^$\|^[A-Z][a-z]'
let first + = 1
endwhile
if first > last | | &filetype ! = # 'fugitive'
return []
endif
let flnum = first
while getline ( flnum ) = ~ # '^[ @\+-]'
let flnum - = 1
endwhile
let slnum = flnum + 1
let section = ''
let index = 0
while len ( getline ( slnum - 1 ) ) && empty ( section )
let slnum - = 1
let heading = matchstr ( getline ( slnum ) , '^\u\l\+.* (\d\+)$' )
if empty ( heading ) && getline ( slnum ) ! ~ # '^[ @\+-]'
let index + = 1
endif
endwhile
let results = []
let template = {
\ 'heading' : heading ,
\ 'section' : matchstr ( heading , '^\u\l\+\ze.* (\d\+)$' ) ,
\ 'filename' : '' ,
2019-07-04 08:39:34 -04:00
\ 'relative' : [],
2019-02-14 16:23:13 -05:00
\ 'paths' : [],
\ 'commit' : '' ,
\ 'status' : '' ,
\ 'patch' : 0 ,
\ 'index' : index }
let line = getline ( flnum )
let lnum = first - ( arg1 = = flnum ? 0 : 1 )
let root = s :Tree ( ) . '/'
while lnum < = last
if line = ~ # '^\u\l\+\ze.* (\d\+)$'
let template .heading = getline ( lnum )
let template .section = matchstr ( template .heading , '^\u\l\+\ze.* (\d\+)$' )
let template .index = 0
elseif line = ~ # '^[ @\+-]'
let template .index - = 1
if ! results [-1 ].patch
let results [-1 ].patch = lnum
endif
let results [-1 ].lnum = lnum
elseif line = ~ # '^[A-Z?] '
let filename = matchstr ( line , '^[A-Z?] \zs.*' )
call add ( results , extend ( deepcopy ( template ) , {
\ 'lnum' : lnum ,
\ 'filename' : filename ,
2019-07-04 08:39:34 -04:00
\ 'relative' : reverse ( split ( filename , ' -> ' ) ) ,
2019-02-14 16:23:13 -05:00
\ 'paths' : map ( reverse ( split ( filename , ' -> ' ) ) , 'root . v:val' ) ,
\ 'status' : matchstr ( line , '^[A-Z?]' ) ,
\ }) )
elseif line = ~ # '^\x\x\x\+ '
call add ( results , extend ( {
\ 'lnum' : lnum ,
\ 'commit' : matchstr ( line , '^\x\x\x\+' ) ,
\ }, template , 'keep' ) )
elseif line = ~ # '^\l\+ \x\x\x\+ '
call add ( results , extend ( {
\ 'lnum' : lnum ,
\ 'commit' : matchstr ( line , '^\l\+ \zs\x\x\x\+' ) ,
\ 'status' : matchstr ( line , '^\l\+' ) ,
\ }, template , 'keep' ) )
endif
let lnum + = 1
let template .index + = 1
let line = getline ( lnum )
endwhile
if len ( results ) && results [0 ].patch && arg2 = = 0
while getline ( results [0 ].patch ) = ~ # '^[ \+-]'
let results [0 ].patch - = 1
endwhile
while getline ( results [0 ].lnum + 1 ) = ~ # '^[ \+-]'
let results [0 ].lnum + = 1
endwhile
endif
return results
endfunction
2019-02-18 17:28:49 -05:00
function ! s :StageArgs ( visual ) abort
let commits = []
let paths = []
for record in s :Selection ( a :visual ? 'v' : 'n' )
if len ( record .commit )
call add ( commits , record .commit )
endif
call extend ( paths , record .paths )
endfor
if s :cpath ( s :Tree ( ) , getcwd ( ) )
call map ( paths , 'fugitive#Path(v:val, "./")' )
endif
return join ( map ( commits + paths , 's:fnameescape(v:val)' ) , ' ' )
endfunction
2019-02-14 16:23:13 -05:00
function ! s :Do ( action , visual ) abort
let line = getline ( '.' )
2019-07-06 03:50:40 -04:00
let reload = 0
2019-02-14 16:23:13 -05:00
if ! a :0 && ! v :count && line = ~ # '^[A-Z][a-z]'
let header = matchstr ( line , '^\S\+\ze:' )
if len ( header ) && exists ( '*s:Do' . a :action . header . 'Header' )
2019-07-06 03:50:40 -04:00
let reload = s :Do {a :action }{header }Header ( matchstr ( line , ': \zs.*' ) ) > 0
else
let section = matchstr ( line , '^\S\+' )
if exists ( '*s:Do' . a :action . section . 'Heading' )
let reload = s :Do {a :action }{section }Heading ( line ) > 0
endif
2019-02-14 16:23:13 -05:00
endif
2019-07-06 03:50:40 -04:00
return reload ? s :ReloadStatus ( ) : ''
2019-02-14 16:23:13 -05:00
endif
let selection = s :Selection ( a :visual ? 'v' : 'n' )
if empty ( selection )
return ''
endif
call filter ( selection , 'v:val.section ==# selection[0].section' )
let status = 0
let err = ''
try
for record in selection
if exists ( '*s:Do' . a :action . record .section )
let status = s :Do {a :action }{record .section }( record )
else
continue
endif
if ! status
return ''
endif
let reload = reload | | ( status > 0 )
endfor
if status < 0
execute record .lnum + 1
endif
2019-06-29 19:19:09 -04:00
let success = 1
2019-02-14 16:23:13 -05:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2019-02-14 16:23:13 -05:00
finally
if reload
execute s :ReloadStatus ( )
endif
2019-06-29 19:19:09 -04:00
if exists ( 'success' )
call s :StageReveal ( )
endif
2019-02-14 16:23:13 -05:00
endtry
return ''
endfunction
2019-01-03 16:33:44 -05:00
function ! s :StageReveal ( ...) abort
let begin = a :0 ? a :1 : line ( '.' )
if getline ( begin ) = ~ # '^@'
2019-02-13 21:01:19 -05:00
let end = begin + 1
2019-01-03 16:33:44 -05:00
while getline ( end ) = ~ # '^[ \+-]'
let end + = 1
endwhile
2019-06-29 20:50:14 -04:00
while line ( 'w$' ) < line ( '$' ) && end > line ( 'w$' ) && line ( '.' ) > line ( 'w0' ) + &scrolloff
2019-01-03 16:33:44 -05:00
execute "normal! \<C-E>"
endwhile
endif
endfunction
2019-07-08 15:40:47 -04:00
function ! s :NextFileHunk ( count ) abort
2018-06-01 13:46:22 -04:00
for i in range ( a :count )
2019-07-21 15:26:58 -04:00
call search ( '^[A-Z?] .\|^diff --\|^\%(\l\{3,\} \)\=[0-9a-f]\{4,\} \|^@' , 'W' )
2018-06-01 13:46:22 -04:00
endfor
2019-01-03 16:33:44 -05:00
call s :StageReveal ( )
2018-06-01 13:46:22 -04:00
return '.'
endfunction
2019-07-08 15:40:47 -04:00
function ! s :PreviousFileHunk ( count ) abort
for i in range ( a :count )
call search ( '^[A-Z?] .\|^diff --\|^[0-9a-f]\{4,\} \|^@' , 'Wbe' )
endfor
call s :StageReveal ( )
return '.'
2018-06-01 13:46:22 -04:00
endfunction
2019-07-08 14:41:59 -04:00
function ! s :NextSection ( count ) abort
for i in range ( a :count )
if ! search ( '^[A-Z][a-z][^:]*$' , 'W' )
return '.'
endif
+
endfor
call s :StageReveal ( )
return '.'
endfunction
function ! s :PreviousSection ( count ) abort
-
for i in range ( a :count )
if ! search ( '^[A-Z][a-z][^:]*$\|\%^' , 'bW' ) | | line ( '.' ) = = 1
return '.'
endif
+
endfor
call s :StageReveal ( )
return '.'
endfunction
2019-01-03 00:19:21 -05:00
function ! s :StageInline ( mode , ...) abort
let lnum1 = a :0 ? a :1 : line ( '.' )
let lnum = lnum1 + 1
if a :0 > 1 && a :2 = = 0
let info = s :StageInfo ( lnum - 1 )
2019-06-27 23:30:19 -04:00
if empty ( info .paths ) && len ( info .section )
2019-01-03 00:19:21 -05:00
while len ( getline ( lnum ) )
let lnum + = 1
endwhile
endif
elseif a :0 > 1
let lnum + = a :2 - 1
endif
while lnum > lnum1
let lnum - = 1
2019-01-03 18:06:26 -05:00
while lnum > 0 && getline ( lnum ) = ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let lnum - = 1
endwhile
let info = s :StageInfo ( lnum )
if ! has_key ( b :fugitive_diff , info .section )
continue
endif
2019-01-03 18:06:26 -05:00
if getline ( lnum + 1 ) = ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let lnum2 = lnum + 1
2019-01-03 18:06:26 -05:00
while getline ( lnum2 + 1 ) = ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
let lnum2 + = 1
endwhile
if a :mode ! = # 'show'
setlocal modifiable noreadonly
exe 'silent keepjumps ' . ( lnum + 1 ) . ',' . lnum2 . 'delete _'
call remove ( b :fugitive_expanded [info .section ], info .filename )
setlocal nomodifiable readonly nomodified
endif
continue
endif
2019-06-27 23:30:19 -04:00
if ! has_key ( b :fugitive_diff , info .section ) | | info .status ! ~ # '^[ADMR]$' | | a :mode = = # 'hide'
2019-01-03 00:19:21 -05:00
continue
endif
let mode = ''
let diff = []
let index = 0
let start = -1
for line in b :fugitive_diff [info .section ]
if mode = = # 'await' && line [0 ] = = # '@'
let mode = 'capture'
endif
2019-01-03 18:06:26 -05:00
if mode ! = # 'head' && line ! ~ # '^[ @\+-]'
2019-01-03 00:19:21 -05:00
if len ( diff )
break
endif
let start = index
let mode = 'head'
2019-07-04 08:39:34 -04:00
elseif mode = = # 'head' && substitute ( line , "\t$" , '' , '' ) = = # '--- ' . info .relative [-1 ]
2019-01-03 00:19:21 -05:00
let mode = 'await'
2019-07-04 08:39:34 -04:00
elseif mode = = # 'head' && substitute ( line , "\t$" , '' , '' ) = = # '+++ ' . info .relative [0 ]
2019-01-03 00:19:21 -05:00
let mode = 'await'
elseif mode = = # 'capture'
call add ( diff , line )
elseif line [0 ] = = # '@'
let mode = ''
endif
let index + = 1
endfor
if len ( diff )
setlocal modifiable noreadonly
silent call append ( lnum , diff )
let b :fugitive_expanded [info .section ][info .filename ] = [start , len ( diff ) ]
setlocal nomodifiable readonly nomodified
endif
endwhile
return lnum
endfunction
2019-07-23 19:36:18 -04:00
function ! s :NextExpandedHunk ( count ) abort
2019-02-18 17:20:52 -05:00
for i in range ( a :count )
2019-07-23 20:10:31 -04:00
call s :StageInline ( 'show' , line ( '.' ) , 1 )
2019-07-23 19:36:18 -04:00
call search ( '^[A-Z?] .\|^diff --\|^@' , 'W' )
2019-02-18 17:20:52 -05:00
endfor
return '.'
endfunction
2018-06-01 13:46:22 -04:00
function ! s :StageDiff ( diff ) abort
2019-01-03 00:19:21 -05:00
let lnum = line ( '.' )
let info = s :StageInfo ( lnum )
let prefix = info .offset > 0 ? '+' . info .offset : ''
2019-06-27 23:30:19 -04:00
if empty ( info .paths ) && info .section = = # 'Staged'
2018-06-01 13:46:22 -04:00
return 'Git! diff --no-ext-diff --cached'
2019-06-27 23:30:19 -04:00
elseif empty ( info .paths )
2018-06-01 13:46:22 -04:00
return 'Git! diff --no-ext-diff'
2019-06-27 23:30:19 -04:00
elseif len ( info .paths ) > 1
execute 'Gedit' . prefix s :fnameescape ( ':0:' . info .paths [0 ])
return a :diff .' HEAD:' .s :fnameescape ( info .paths [1 ])
2019-01-03 00:19:21 -05:00
elseif info .section = = # 'Staged' && info .sigil = = # '-'
2019-06-27 23:30:19 -04:00
execute 'Gedit' prefix s :fnameescape ( '@:' .info .paths [0 ])
2019-06-28 14:31:37 -04:00
return a :diff .'! :0:%'
2019-01-03 00:19:21 -05:00
elseif info .section = = # 'Staged'
2019-06-27 23:30:19 -04:00
execute 'Gedit' prefix s :fnameescape ( ':0:' .info .paths [0 ])
2019-06-28 14:42:01 -04:00
return a :diff . ( info .sigil = = # '+' ? '!' : '' ) . ' @:%'
2019-01-03 00:19:21 -05:00
elseif info .sigil = = # '-'
2019-06-27 23:30:19 -04:00
execute 'Gedit' prefix s :fnameescape ( ':0:' .info .paths [0 ])
2019-01-03 00:19:21 -05:00
return a :diff . '!'
2018-06-01 13:46:22 -04:00
else
2019-06-27 23:30:19 -04:00
execute 'Gedit' prefix s :fnameescape ( ':(top)' .info .paths [0 ])
2019-01-03 00:19:21 -05:00
return a :diff . ( info .sigil = = # '+' ? '!' : '' )
2018-06-01 13:46:22 -04:00
endif
endfunction
function ! s :StageDiffEdit ( ) abort
2018-12-27 18:05:29 -05:00
let info = s :StageInfo ( line ( '.' ) )
2019-07-04 07:28:52 -04:00
let arg = ( empty ( info .paths ) ? s :Tree ( ) : info .paths [0 ])
2018-12-27 18:05:29 -05:00
if info .section = = # 'Staged'
2019-07-06 02:17:25 -04:00
return 'Git! diff --no-ext-diff --cached ' .s :fnameescape ( arg )
2018-12-27 18:05:29 -05:00
elseif info .status = = # '?'
2019-07-04 07:28:52 -04:00
call s :TreeChomp ( 'add' , '--intent-to-add' , '--' , arg )
2019-02-10 11:15:03 -05:00
return s :ReloadStatus ( )
2018-06-01 13:46:22 -04:00
else
2019-07-06 02:17:25 -04:00
return 'Git! diff --no-ext-diff ' .s :fnameescape ( arg )
2018-06-01 13:46:22 -04:00
endif
endfunction
2019-02-14 16:23:13 -05:00
function ! s :StageApply ( info , reverse , extra ) abort
2019-06-27 23:30:19 -04:00
if a :info .status = = # 'R'
call s :throw ( 'fugitive: patching renamed file not yet supported' )
endif
2019-02-14 16:23:13 -05:00
let cmd = ['apply' , '-p0' , '--recount' ] + a :extra
2019-01-02 22:01:07 -05:00
let info = a :info
2019-02-14 16:23:13 -05:00
let start = info .patch
let end = info .lnum
2019-01-02 22:01:07 -05:00
let lines = getline ( start , end )
if empty ( filter ( copy ( lines ) , 'v:val =~# "^[+-]"' ) )
2019-02-14 16:23:13 -05:00
return -1
2019-01-02 22:01:07 -05:00
endif
while getline ( end ) = ~ # '^[-+ ]'
let end + = 1
if getline ( end ) = ~ # '^[' . ( a :reverse ? '+' : '-' ) . ' ]'
call add ( lines , ' ' . getline ( end ) [1 :-1 ])
endif
endwhile
while start > 0 && getline ( start ) ! ~ # '^@'
let start - = 1
if getline ( start ) = ~ # '^[' . ( a :reverse ? '+' : '-' ) . ' ]'
call insert ( lines , ' ' . getline ( start ) [1 :-1 ])
elseif getline ( start ) = ~ # '^@'
call insert ( lines , getline ( start ) )
endif
endwhile
if start = = 0 | | getline ( start ) ! ~ # '^@@ '
2019-02-14 16:23:13 -05:00
call s :throw ( "could not find hunk" )
2019-01-02 22:01:07 -05:00
endif
let i = b :fugitive_expanded [info .section ][info .filename ][0 ]
let head = []
while get ( b :fugitive_diff [info .section ], i , '@' ) ! ~ # '^@'
call add ( head , b :fugitive_diff [info .section ][i ])
let i + = 1
endwhile
call extend ( lines , head , 'keep' )
let temp = tempname ( )
call writefile ( lines , temp )
if a :reverse
call add ( cmd , '--reverse' )
endif
call extend ( cmd , ['--' , temp ])
2019-07-01 05:52:45 -04:00
let [output , exec_error ] = s :ChompError ( cmd )
if ! exec_error
2019-02-14 16:23:13 -05:00
return 1
endif
call s :throw ( output )
2019-01-02 22:01:07 -05:00
endfunction
2019-07-23 18:31:55 -04:00
function ! s :StageDelete ( lnum1 , lnum2 , count ) abort
let info = get ( s :Selection ( a :lnum1 , a :lnum2 ) , 0 , {'filename' : '' })
2019-01-02 23:49:12 -05:00
if empty ( info .filename )
return ''
endif
2019-02-14 16:23:13 -05:00
let hash = s :TreeChomp ( 'hash-object' , '-w' , '--' , info .paths [0 ])
2019-07-23 18:13:08 -04:00
try
if empty ( hash )
return ''
elseif info .patch
2019-07-23 18:31:55 -04:00
call s :StageApply ( info , 1 , info .section = = # 'Staged' ? ['--index' ] : [])
2019-07-23 18:13:08 -04:00
elseif info .status = = # '?'
call s :TreeChomp ( 'clean' , '-f' , '--' , info .paths [0 ])
elseif a :count = = 2
call s :TreeChomp ( 'checkout' , '--ours' , '--' , info .paths [0 ])
elseif a :count = = 3
call s :TreeChomp ( 'checkout' , '--theirs' , '--' , info .paths [0 ])
elseif info .status = ~ # '[ADU]' &&
\ get ( b :fugitive_status [info .section = = # 'Staged' ? 'Unstaged' : 'Staged' ], info .filename , '' ) = ~ # '[AU]'
call s :TreeChomp ( 'checkout' , info .section = = # 'Staged' ? '--ours' : '--theirs' , '--' , info .paths [0 ])
elseif info .status = = # 'U'
call s :TreeChomp ( 'rm' , '--' , info .paths [0 ])
elseif info .status = = # 'A'
call s :TreeChomp ( 'rm' , '-f' , '--' , info .paths [0 ])
elseif info .section = = # 'Unstaged'
call s :TreeChomp ( 'checkout' , '--' , info .paths [0 ])
else
call s :TreeChomp ( 'checkout' , 'HEAD^{}' , '--' , info .paths [0 ])
endif
catch /^fugitive:/
return 'echoerr ' . string ( v :exception )
endtry
2019-01-02 23:49:12 -05:00
exe s :ReloadStatus ( )
2019-06-29 20:50:14 -04:00
call s :StageReveal ( )
2019-01-02 23:49:12 -05:00
let @@ = hash
2019-01-03 19:21:35 -05:00
return 'checktime|redraw|echomsg ' .
2019-07-05 03:58:36 -04:00
\ string ( 'To restore, :Gedit ' . info .relative [0 ] . '|Gread ' . hash [0 :6 ])
2019-01-02 23:49:12 -05:00
endfunction
2019-07-23 20:42:34 -04:00
function ! s :StageIgnore ( lnum1 , lnum2 , count ) abort
let paths = []
for info in s :Selection ( a :lnum1 , a :lnum2 )
call extend ( paths , info .relative )
endfor
call map ( paths , '"/" . v:val' )
exe 'Gsplit' ( a :count ? '.gitignore' : '.git/info/exclude' )
let last = line ( '$' )
if last = = 1 && empty ( getline ( 1 ) )
call setline ( last , paths )
else
call append ( last , paths )
exe last + 1
endif
return ''
endfunction
2019-02-14 16:23:13 -05:00
function ! s :DoToggleHeadHeader ( value ) abort
2019-02-25 17:10:54 -05:00
exe 'edit' s :fnameescape ( s :Dir ( ) )
2019-02-14 16:23:13 -05:00
call search ( '\C^index$' , 'wc' )
endfunction
function ! s :DoToggleUnpushedHeading ( heading ) abort
let remote = matchstr ( a :heading , 'to \zs[^/]\+\ze/' )
if empty ( remote )
let remote = '.'
2018-06-01 13:46:22 -04:00
endif
2019-02-14 16:23:13 -05:00
let branch = matchstr ( a :heading , 'to \%([^/]\+/\)\=\zs\S\+' )
call feedkeys ( ':Gpush ' . remote . ' ' . 'HEAD:' . branch )
endfunction
function ! s :DoToggleUnpushed ( record ) abort
let remote = matchstr ( a :record .heading , 'to \zs[^/]\+\ze/' )
if empty ( remote )
let remote = '.'
endif
let branch = matchstr ( a :record .heading , 'to \%([^/]\+/\)\=\zs\S\+' )
call feedkeys ( ':Gpush ' . remote . ' ' . a :record .commit . ':' . branch )
endfunction
function ! s :DoToggleUnpulledHeading ( heading ) abort
call feedkeys ( ':Grebase' )
2018-06-01 13:46:22 -04:00
endfunction
2019-02-14 16:23:13 -05:00
function ! s :DoToggleUnpulled ( record ) abort
call feedkeys ( ':Grebase ' . a :record .commit )
endfunction
function ! s :DoToggleStagedHeading ( ...) abort
call s :TreeChomp ( 'reset' , '-q' )
return 1
endfunction
function ! s :DoUnstageStagedHeading ( heading ) abort
return s :DoToggleStagedHeading ( a :heading )
endfunction
function ! s :DoToggleUnstagedHeading ( ...) abort
call s :TreeChomp ( 'add' , '-u' )
return 1
endfunction
function ! s :DoStageUnstagedHeading ( heading ) abort
return s :DoToggleUnstagedHeading ( a :heading )
endfunction
2019-07-04 08:40:23 -04:00
function ! s :DoToggleUntrackedHeading ( ...) abort
call s :TreeChomp ( 'add' , '.' )
return 1
endfunction
function ! s :DoStageUntrackedHeading ( heading ) abort
return s :DoToggleUntrackedHeading ( a :heading )
endfunction
2019-02-14 16:23:13 -05:00
function ! s :DoToggleStaged ( record ) abort
if a :record .patch
return s :StageApply ( a :record , 1 , ['--cached' ])
else
call s :TreeChomp ( ['reset' , '-q' , '--' ] + a :record .paths )
return 1
endif
endfunction
function ! s :DoUnstageStaged ( record ) abort
return s :DoToggleStaged ( a :record )
endfunction
function ! s :DoToggleUnstaged ( record ) abort
if a :record .patch
return s :StageApply ( a :record , 0 , ['--cached' ])
else
call s :TreeChomp ( ['add' , '-A' , '--' ] + a :record .paths )
return 1
endif
endfunction
function ! s :DoStageUnstaged ( record ) abort
return s :DoToggleUnstaged ( a :record )
endfunction
function ! s :DoUnstageUnstaged ( record ) abort
if a :record .status = = # 'A'
call s :TreeChomp ( ['reset' , '-q' , '--' ] + a :record .paths )
return 1
2019-01-03 12:18:53 -05:00
else
2019-02-14 16:23:13 -05:00
return -1
2019-01-03 12:18:53 -05:00
endif
endfunction
2019-07-04 08:40:23 -04:00
function ! s :DoToggleUntracked ( record ) abort
call s :TreeChomp ( ['add' , '--' ] + a :record .paths )
return 1
endfunction
function ! s :DoStageUntracked ( record ) abort
return s :DoToggleUntracked ( a :record )
endfunction
2018-06-01 13:46:22 -04:00
function ! s :StagePatch ( lnum1 , lnum2 ) abort
let add = []
let reset = []
2019-07-23 20:30:55 -04:00
let intend = []
2018-06-01 13:46:22 -04:00
for lnum in range ( a :lnum1 , a :lnum2 )
2019-01-03 00:19:21 -05:00
let info = s :StageInfo ( lnum )
2019-06-27 23:30:19 -04:00
if empty ( info .paths ) && info .section = = # 'Staged'
2018-06-01 13:46:22 -04:00
return 'Git reset --patch'
2019-06-27 23:30:19 -04:00
elseif empty ( info .paths ) && info .section = = # 'Unstaged'
2018-06-01 13:46:22 -04:00
return 'Git add --patch'
2019-07-04 07:17:36 -04:00
elseif empty ( info .paths ) && info .section = = # 'Untracked'
return 'Git add --interactive'
2019-07-03 17:14:18 -04:00
elseif empty ( info .paths )
2018-06-01 13:46:22 -04:00
continue
endif
execute lnum
2019-06-27 23:30:19 -04:00
if info .section = = # 'Staged'
2019-07-04 08:39:34 -04:00
let reset + = info .relative
2019-07-23 20:30:55 -04:00
elseif info .section = = # 'Untracked'
let intend + = info .paths
2019-01-03 00:19:21 -05:00
elseif info .status ! ~ # '^D'
2019-07-04 08:39:34 -04:00
let add + = info .relative
2018-06-01 13:46:22 -04:00
endif
endfor
try
2019-07-23 20:30:55 -04:00
if ! empty ( intend )
call s :TreeChomp ( ['add' , '--intent-to-add' , '--' ] + intend )
endif
2018-06-01 13:46:22 -04:00
if ! empty ( add )
2019-07-06 02:17:25 -04:00
execute "Git add --patch -- " .join ( map ( add , 's:fnameescape(v:val)' ) )
2018-06-01 13:46:22 -04:00
endif
if ! empty ( reset )
2019-07-06 02:17:25 -04:00
execute "Git reset --patch -- " .join ( map ( reset , 's:fnameescape(v:val)' ) )
2018-06-01 13:46:22 -04:00
endif
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
2019-01-03 00:19:21 -05:00
return s :ReloadStatus ( )
2018-06-01 13:46:22 -04:00
endfunction
2018-08-06 02:01:32 -04:00
" Section: :Gcommit
2018-06-01 13:46:22 -04:00
2019-03-15 20:18:03 -04:00
function ! s :CommitCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args , ...) abort
2019-06-27 23:22:36 -04:00
let mods = substitute ( s :Mods ( a :mods ) , '\C\<tab\>' , '-tab' , 'g' )
2019-02-25 17:10:54 -05:00
let dir = a :0 ? a :1 : s :Dir ( )
2018-07-27 00:56:21 -04:00
let tree = s :Tree ( dir )
2019-06-02 16:19:09 -04:00
let msgfile = fugitive #Find ( '.git/COMMIT_EDITMSG' , dir )
2018-06-01 13:46:22 -04:00
let outfile = tempname ( )
try
2018-06-25 12:51:34 -04:00
let guioptions = &guioptions
2018-06-01 13:46:22 -04:00
try
2018-06-25 12:51:34 -04:00
if &guioptions = ~ # '!'
setglobal guioptions - = !
endif
2018-06-01 13:46:22 -04:00
if s :winshell ( )
2019-07-01 17:58:33 -04:00
let command = 'set GIT_EDITOR=false& '
2018-06-01 13:46:22 -04:00
else
let command = 'env GIT_EDITOR=false '
endif
2019-07-07 05:40:02 -04:00
if type ( a :arg ) = = type ( [])
let [argv , after ] = [a :arg , '' ]
2019-07-05 04:24:52 -04:00
else
2019-07-07 05:40:02 -04:00
let [argv , after ] = s :SplitExpandChain ( a :arg , tree )
2019-07-05 04:24:52 -04:00
endif
2019-07-07 05:40:02 -04:00
let i = 0
while get ( argv , i , '--' ) ! = # '--'
if argv [i ] = ~ # '^-[apzsneiovq].'
call insert ( argv , argv [i ][0 :1 ])
let argv [i + 1 ] = '-' . argv [i + 1 ][2 :-1 ]
else
let i + = 1
endif
endwhile
let command .= s :UserCommand ( dir ) . ' commit ' . s :shellesc ( argv )
if s :HasOpt ( argv , '-i' , '--interactive' , '-p' , '--patch' ) && &shell ! ~ # 'csh'
2019-06-30 21:37:17 -04:00
let errorfile = tempname ( )
2018-06-01 13:46:22 -04:00
noautocmd execute '!' .command .' 2> ' .errorfile
2019-06-30 21:37:17 -04:00
let errors = readfile ( errorfile )
2019-07-01 05:52:45 -04:00
let exec_error = v :shell_error
2019-06-30 21:37:17 -04:00
call delete ( errorfile )
2018-06-01 13:46:22 -04:00
else
2019-07-12 14:38:28 -04:00
if ( &autowrite | | &autowriteall ) && ! a :0
silent ! wall
2019-07-01 05:52:02 -04:00
endif
2019-07-01 05:52:45 -04:00
let [error_string , exec_error ] = s :TempCmd ( outfile , command )
let errors = split ( error_string , "\n" )
2018-06-01 13:46:22 -04:00
endif
finally
2018-06-25 12:51:34 -04:00
let &guioptions = guioptions
2018-06-01 13:46:22 -04:00
endtry
if ! has ( 'gui_running' )
redraw !
endif
2019-07-01 05:52:45 -04:00
if ! exec_error
2019-07-11 11:58:00 -04:00
echo join ( errors , "\n" )
2018-06-01 13:46:22 -04:00
if filereadable ( outfile )
2019-07-11 11:58:00 -04:00
echo join ( readfile ( outfile ) , "\n" )
2018-06-01 13:46:22 -04:00
endif
2019-07-02 02:02:37 -04:00
call fugitive #ReloadStatus ( dir , 1 )
2019-07-05 04:24:52 -04:00
return after [1 :-1 ]
2018-06-01 13:46:22 -04:00
else
let error = get ( errors , -2 , get ( errors , -1 , '!' ) )
if error = ~ # 'false''\=\.$'
2019-07-07 05:40:02 -04:00
let i = 0
while get ( argv , i , '--' ) ! = # '--'
if argv [i ] = ~ # '^\%(-[eips]\|-[CcFm].\+\|--edit\|--interactive\|--patch\|--signoff\|--reedit-message=.*\|--reuse-message=.*\|--file=.*\|--message=.*\)$'
call remove ( argv , i )
elseif argv [i ] = ~ # '^\%(-[CcFm]\|--reedit-message\|--reuse-message\|--file\|--message\)$'
call remove ( argv , i , i + 1 )
else
if argv [i ] = ~ # '^--cleanup\>'
let cleanup = 1
endif
let i + = 1
endif
endwhile
call insert ( argv , '--no-signoff' , i )
call insert ( argv , '--no-interactive' , i )
call insert ( argv , '--no-edit' , i )
if ! exists ( 'cleanup' )
call insert ( argv , '--cleanup=strip' )
2018-06-01 13:46:22 -04:00
endif
2019-07-07 05:40:02 -04:00
call extend ( argv , ['-F' , msgfile ], 'keep' )
2019-06-27 23:22:36 -04:00
if bufname ( '%' ) = = '' && line ( '$' ) = = 1 && getline ( 1 ) = = '' && ! &modified
execute mods . 'keepalt edit' s :fnameescape ( msgfile )
2019-07-07 05:40:02 -04:00
elseif s :HasOpt ( argv , '-v' ) | | mods = ~ # '\<tab\>'
2019-06-27 23:22:36 -04:00
execute mods . 'keepalt -tabedit' s :fnameescape ( msgfile )
2018-06-01 13:46:22 -04:00
else
2019-06-27 23:22:36 -04:00
execute mods . 'keepalt split' s :fnameescape ( msgfile )
2018-06-01 13:46:22 -04:00
endif
2019-07-07 05:40:02 -04:00
let b :fugitive_commit_arguments = argv
2018-06-01 13:46:22 -04:00
setlocal bufhidden = wipe filetype = gitcommit
2019-07-05 04:24:52 -04:00
return '1' . after
2019-07-11 11:58:00 -04:00
elseif empty ( errors )
let out = readfile ( outfile )
2019-07-26 21:22:19 -04:00
echo get ( out , -1 , '' ) = ~ # 'stash\|\d' ? get ( out , -2 , '' ) : get ( out , -1 , '' )
2019-07-05 04:24:52 -04:00
return after [1 :-1 ]
2018-06-01 13:46:22 -04:00
else
2019-07-11 11:58:00 -04:00
echo join ( errors , "\n" )
return after [1 :-1 ]
2018-06-01 13:46:22 -04:00
endif
endif
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
finally
call delete ( outfile )
endtry
endfunction
2019-07-08 05:04:35 -04:00
function ! s :CommitComplete ( A , L , P ) abort
2018-07-28 17:28:30 -04:00
if a :A = ~ # '^--fixup=\|^--squash='
2019-07-01 05:52:45 -04:00
let commits = s :LinesError ( ['log' , '--pretty=format:%s' , '@{upstream}..' ]) [0 ]
2019-07-08 05:04:35 -04:00
let pre = matchstr ( a :A , '^--\w*=''\=' ) . ':/^'
if pre = ~ # "'"
call map ( commits , 'pre . string(tr(v:val, "|\"^$*[]", "......."))[1:-1]' )
call filter ( commits , 'strpart(v:val, 0, strlen(a:A)) ==# a:A' )
return commits
else
return s :FilterEscape ( map ( commits , 'pre . tr(v:val, "\\ !^$*?[]()''\"`&;<>|#", "....................")' ) , a :A )
endif
2018-06-01 13:46:22 -04:00
else
2019-07-08 05:04:35 -04:00
return s :CompleteSubcommand ( 'commit' , a :A , a :L , a :P , function ( 'fugitive#CompletePath' ) )
2018-06-01 13:46:22 -04:00
endif
2018-07-28 17:28:30 -04:00
return []
2018-06-01 13:46:22 -04:00
endfunction
function ! s :FinishCommit ( ) abort
2018-12-31 12:52:51 -05:00
let buf = + expand ( '<abuf>' )
let args = getbufvar ( buf , 'fugitive_commit_arguments' )
2018-06-01 13:46:22 -04:00
if ! empty ( args )
2019-07-07 05:40:02 -04:00
call setbufvar ( buf , 'fugitive_commit_arguments' , [])
2018-12-31 12:52:51 -05:00
if getbufvar ( buf , 'fugitive_commit_rebase' )
call setbufvar ( buf , 'fugitive_commit_rebase' , 0 )
2019-02-25 17:10:54 -05:00
let s :rebase_continue = s :Dir ( buf )
2018-12-31 12:52:51 -05:00
endif
2019-03-15 20:18:03 -04:00
return s :CommitCommand ( -1 , -1 , 0 , -1 , 0 , '' , '' , args , [], s :Dir ( buf ) )
2018-06-01 13:46:22 -04:00
endif
return ''
endfunction
2019-07-08 05:04:35 -04:00
call s :command ( "-nargs=? -complete=customlist,s:CommitComplete Gcommit" , "Commit" )
2018-08-06 02:01:32 -04:00
" Section: :Gmerge, :Grebase, :Gpull
2018-06-01 13:46:22 -04:00
2019-07-08 05:04:35 -04:00
function ! s :MergeComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'merge' , a :A , a :L , a :P , function ( 's:CompleteRevision' ) )
endfunction
2018-06-01 13:46:22 -04:00
2019-07-08 05:04:35 -04:00
function ! s :RebaseComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'rebase' , a :A , a :L , a :P , function ( 's:CompleteRevision' ) )
2018-06-01 13:46:22 -04:00
endfunction
2019-07-08 05:04:35 -04:00
function ! s :PullComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'pull' , a :A , a :L , a :P , function ( 's:CompleteRemote' ) )
2018-06-01 13:46:22 -04:00
endfunction
2018-12-31 12:52:51 -05:00
function ! s :RebaseSequenceAborter ( ) abort
if ! exists ( 's:rebase_sequence_aborter' )
let temp = tempname ( ) . '.sh'
call writefile (
\ ['#!/bin/sh' ,
\ 'echo exec false | cat - "$1" > "$1.fugitive"' ,
\ 'mv "$1.fugitive" "$1"' ],
\ temp )
let s :rebase_sequence_aborter = temp
2018-12-26 08:39:34 -05:00
endif
2018-12-31 12:52:51 -05:00
return s :rebase_sequence_aborter
2018-12-26 08:39:34 -05:00
endfunction
2018-06-01 13:47:48 -04:00
function ! fugitive #Cwindow ( ) abort
2018-06-01 13:46:22 -04:00
if &buftype = = 'quickfix'
cwindow
else
botright cwindow
if &buftype = = 'quickfix'
wincmd p
endif
endif
endfunction
let s :common_efm = ''
\ . '%+Egit:%.%#,'
\ . '%+Eusage:%.%#,'
\ . '%+Eerror:%.%#,'
\ . '%+Efatal:%.%#,'
\ . '%-G%.%#%\e[K%.%#,'
\ . '%-G%.%#%\r%.%\+'
2018-12-31 00:15:10 -05:00
let s :rebase_abbrevs = {
\ 'p' : 'pick' ,
\ 'r' : 'reword' ,
\ 'e' : 'edit' ,
\ 's' : 'squash' ,
\ 'f' : 'fixup' ,
\ 'x' : 'exec' ,
\ 'd' : 'drop' ,
\ 'l' : 'label' ,
\ 't' : 'reset' ,
\ 'm' : 'merge' ,
\ 'b' : 'break' ,
\ }
2018-12-31 12:52:51 -05:00
function ! s :RebaseEdit ( cmd , dir ) abort
2019-06-02 16:19:09 -04:00
let rebase_todo = s :fnameescape ( fugitive #Find ( '.git/rebase-merge/git-rebase-todo' , a :dir ) )
2019-04-13 09:54:38 -04:00
if filereadable ( rebase_todo )
let new = readfile ( rebase_todo )
let sha_length = 0
let shas = {}
for i in range ( len ( new ) )
2019-07-01 21:19:47 -04:00
if new [i ] = ~ # '^\l\+\s\+[0-9a-f]\{5,\}\>'
let sha = matchstr ( new [i ], '\C\<[a-f0-9]\{5,\}\>' )
2019-04-13 09:54:38 -04:00
if ! sha_length
let sha_length = len ( s :TreeChomp ( a :dir , 'rev-parse' , '--short' , sha ) )
endif
let shortened_sha = strpart ( sha , 0 , sha_length )
let shas [shortened_sha ] = sha
let new [i ] = substitute ( new [i ], sha , shortened_sha , '' )
endif
endfor
call writefile ( new , rebase_todo )
endif
return a :cmd . ' +setlocal\ bufhidden=wipe\|' . escape ( 'let b:fugitive_rebase_shas = ' . string ( shas ) , ' ' ) . ' ' . rebase_todo
2018-12-31 12:52:51 -05:00
endfunction
2019-07-11 15:33:52 -04:00
function ! s :MergeRebase ( cmd , bang , mods , args , ...) abort
2019-02-25 17:10:54 -05:00
let dir = a :0 ? a :1 : s :Dir ( )
2019-07-11 15:33:52 -04:00
let args = a :args
2019-06-27 23:22:36 -04:00
let mods = s :Mods ( a :mods )
2019-07-06 11:19:08 -04:00
if a :cmd = ~ # '^rebase' && s :HasOpt ( args , '-i' , '--interactive' )
let cmd = fugitive #Prepare ( dir , '-c' , 'sequence.editor=sh ' . s :RebaseSequenceAborter ( ) , 'rebase' ) . ' ' . s :shellesc ( args )
2018-12-31 12:52:51 -05:00
let out = system ( cmd ) [0 :-2 ]
for file in ['end' , 'msgnum' ]
let file = fugitive #Find ( '.git/rebase-merge/' . file , dir )
if ! filereadable ( file )
return 'echoerr ' . string ( "fugitive: " . out )
endif
call writefile ( [readfile ( file ) [0 ] - 1 ], file )
endfor
call writefile ( [], fugitive #Find ( '.git/rebase-merge/done' , dir ) )
if a :bang
2019-07-11 15:33:52 -04:00
return 'exe'
2018-12-31 12:52:51 -05:00
endif
return s :RebaseEdit ( mods . 'split' , dir )
2019-07-06 11:19:08 -04:00
elseif a :cmd = ~ # '^rebase' && s :HasOpt ( args , '--edit-todo' ) && filereadable ( fugitive #Find ( '.git/rebase-merge/git-rebase-todo' , dir ) )
2018-12-31 12:52:51 -05:00
return s :RebaseEdit ( mods . 'split' , dir )
2019-07-06 11:19:08 -04:00
elseif a :cmd = ~ # '^rebase' && s :HasOpt ( args , '--continue' ) && ! a :0
2019-06-02 16:19:09 -04:00
let rdir = fugitive #Find ( '.git/rebase-merge' , dir )
2019-07-01 05:52:45 -04:00
let exec_error = s :ChompError ( [dir , 'diff-index' , '--cached' , '--quiet' , 'HEAD' , '--' ]) [1 ]
if exec_error && isdirectory ( rdir )
2019-04-05 21:01:43 -04:00
if getfsize ( rdir . '/amend' ) < = 0
2019-07-10 14:51:44 -04:00
return 'exe ' . string ( mods . 'Gcommit -n -F ' . s :fnameescape ( rdir .'/message' ) . ' -e' ) . '|let b:fugitive_commit_rebase = 1'
2019-04-05 21:01:43 -04:00
elseif readfile ( rdir . '/amend' ) [0 ] = = # fugitive #Head ( -1 , dir )
2019-07-10 14:51:44 -04:00
return 'exe ' . string ( mods . 'Gcommit --amend -n -F ' . s :fnameescape ( rdir . '/message' ) . ' -e' ) . '|let b:fugitive_commit_rebase = 1'
2019-04-05 21:01:43 -04:00
endif
endif
2018-06-01 13:46:22 -04:00
endif
let [mp , efm ] = [&l :mp , &l :efm ]
2019-06-02 16:19:09 -04:00
let had_merge_msg = filereadable ( fugitive #Find ( '.git/MERGE_MSG' , dir ) )
2018-06-01 13:46:22 -04:00
try
2018-12-31 12:52:51 -05:00
let cdback = s :Cd ( s :Tree ( dir ) )
2018-06-01 13:46:22 -04:00
let &l :errorformat = ''
\ . '%-Gerror:%.%#false''.,'
\ . '%-G%.%# ''git commit'' %.%#,'
\ . '%+Emerge:%.%#,'
\ . s :common_efm . ','
\ . '%+ECannot %.%#: You have unstaged changes.,'
\ . '%+ECannot %.%#: Your index contains uncommitted changes.,'
\ . '%+EThere is no tracking information for the current branch.,'
\ . '%+EYou are not currently on a branch. Please specify which,'
2018-12-31 12:52:51 -05:00
\ . '%+I %#git rebase --continue,'
2018-06-01 13:46:22 -04:00
\ . 'CONFLICT (%m): %f deleted in %.%#,'
\ . 'CONFLICT (%m): Merge conflict in %f,'
\ . 'CONFLICT (%m): Rename \"%f\"->%.%#,'
\ . 'CONFLICT (%m): Rename %.%#->%f %.%#,'
\ . 'CONFLICT (%m): There is a directory with name %f in %.%#,'
\ . '%+ECONFLICT %.%#,'
\ . '%+EKONFLIKT %.%#,'
\ . '%+ECONFLIT %.%#,'
\ . "%+EXUNG \u0110\u1ed8T %.%#,"
\ . "%+E\u51b2\u7a81 %.%#,"
\ . 'U%\t%f'
2019-07-05 04:24:52 -04:00
if a :cmd = ~ # '^merge' && empty ( args ) &&
2019-06-02 16:19:09 -04:00
\ ( had_merge_msg | | isdirectory ( fugitive #Find ( '.git/rebase-apply' , dir ) ) | |
2018-12-31 12:52:51 -05:00
\ ! empty ( s :TreeChomp ( dir , 'diff-files' , '--diff-filter=U' ) ) )
2018-06-01 13:46:22 -04:00
let &l :makeprg = g :fugitive_git_executable .' diff-files --name-status --diff-filter=U'
else
2018-07-27 00:19:44 -04:00
let &l :makeprg = s :sub ( s :UserCommand ( ) . ' ' . a :cmd .
2019-07-06 11:19:08 -04:00
\ ( s :HasOpt ( args , '--no-edit' , '--abort' , '-m' ) | | a :cmd = ~ # '^rebase' ? '' : ' --edit' ) .
\ ( s :HasOpt ( args , '--autosquash' ) && a :cmd = ~ # '^rebase' ? ' --interactive' : '' ) .
\ ' ' . s :shellesc ( args ) , ' *$' , '' )
2018-06-01 13:46:22 -04:00
endif
2018-12-30 22:13:06 -05:00
if ! empty ( $GIT_SEQUENCE_EDITOR ) | | has ( 'win32' )
let old_sequence_editor = $GIT_SEQUENCE_EDITOR
let $GIT_SEQUENCE_EDITOR = 'true'
else
let &l :makeprg = 'env GIT_SEQUENCE_EDITOR=true ' . &l :makeprg
endif
2018-06-01 13:46:22 -04:00
if ! empty ( $GIT_EDITOR ) | | has ( 'win32' )
let old_editor = $GIT_EDITOR
let $GIT_EDITOR = 'false'
else
2018-12-30 22:13:06 -05:00
let &l :makeprg = 'env GIT_EDITOR=false ' . substitute ( &l :makeprg , '^env ' , '' , '' )
2018-06-01 13:46:22 -04:00
endif
2019-07-12 14:38:28 -04:00
if ! has ( 'patch-8.1.0334' ) && has ( 'terminal' ) && &autowrite
let autowrite_was_set = 1
set noautowrite
silent ! wall
endif
silent noautocmd make !
2019-07-14 14:28:28 -04:00
catch /^Vim\%((\a\+)\)\=:E211/
2018-06-01 13:46:22 -04:00
let err = v :exception
finally
2019-07-12 14:38:28 -04:00
if exists ( 'autowrite_was_set' )
set autowrite
endif
2018-06-01 13:46:22 -04:00
redraw !
let [&l :mp , &l :efm ] = [mp , efm ]
if exists ( 'old_editor' )
let $GIT_EDITOR = old_editor
endif
2018-12-30 22:13:06 -05:00
if exists ( 'old_sequence_editor' )
2019-03-07 20:01:28 -05:00
let $GIT_SEQUENCE_EDITOR = old_sequence_editor
2018-12-30 22:13:06 -05:00
endif
2018-12-16 22:13:12 -05:00
execute cdback
2018-06-01 13:46:22 -04:00
endtry
2019-07-02 02:02:37 -04:00
call fugitive #ReloadStatus ( dir , 1 )
2018-12-26 08:39:34 -05:00
if empty ( filter ( getqflist ( ) , 'v:val.valid && v:val.type !=# "I"' ) )
2018-12-31 12:52:51 -05:00
if a :cmd = ~ # '^rebase' &&
2019-06-02 16:19:09 -04:00
\ filereadable ( fugitive #Find ( '.git/rebase-merge/amend' , dir ) ) &&
\ filereadable ( fugitive #Find ( '.git/rebase-merge/done' , dir ) ) &&
\ get ( readfile ( fugitive #Find ( '.git/rebase-merge/done' , dir ) ) , -1 , '' ) = ~ # '^[^e]'
2018-06-01 13:46:22 -04:00
cclose
2019-07-10 14:51:44 -04:00
return 'exe ' . string ( mods . 'Gcommit --amend -n -F ' . s :fnameescape ( fugitive #Find ( '.git/rebase-merge/message' , dir ) ) . ' -e' ) . '|let b:fugitive_commit_rebase = 1'
2019-06-02 16:19:09 -04:00
elseif ! had_merge_msg && filereadable ( fugitive #Find ( '.git/MERGE_MSG' , dir ) )
2018-12-26 08:39:34 -05:00
cclose
2019-07-10 14:51:44 -04:00
return mods . 'Gcommit --no-status -n -t ' .s :fnameescape ( fugitive #Find ( '.git/MERGE_MSG' , dir ) )
2018-06-01 13:46:22 -04:00
endif
endif
let qflist = getqflist ( )
let found = 0
for e in qflist
if ! empty ( e .bufnr )
let found = 1
let e .pattern = '^<<<<<<<'
endif
endfor
2018-06-01 13:47:48 -04:00
call fugitive #Cwindow ( )
2018-06-01 13:46:22 -04:00
if found
call setqflist ( qflist , 'r' )
if ! a :bang
2019-07-16 16:24:17 -04:00
call s :BlurStatus ( )
2018-06-01 13:46:22 -04:00
return 'cfirst'
endif
endif
2019-07-11 15:33:52 -04:00
return exists ( 'err' ) ? 'echoerr ' .string ( err ) : 'exe'
2018-06-01 13:46:22 -04:00
endfunction
2018-12-31 12:52:51 -05:00
function ! s :RebaseClean ( file ) abort
if ! filereadable ( a :file )
return ''
endif
let old = readfile ( a :file )
let new = copy ( old )
for i in range ( len ( new ) )
let new [i ] = substitute ( new [i ], '^\l\>' , '\=get(s:rebase_abbrevs,submatch(0),submatch(0))' , '' )
2019-04-13 09:54:38 -04:00
2019-07-01 21:19:47 -04:00
let sha = matchstr ( new [i ], '\C\<[a-f0-9]\{5,\}\>' )
2019-04-13 09:54:38 -04:00
let rebase_shas = getbufvar ( a :file , 'fugitive_rebase_shas' )
if len ( sha ) && type ( rebase_shas ) = = type ( {}) && has_key ( rebase_shas , sha )
2019-07-01 21:19:47 -04:00
let new [i ] = substitute ( new [i ], '\C\<' . sha . '\>' , rebase_shas [sha ], '' )
2019-04-13 09:54:38 -04:00
endif
2018-12-31 12:52:51 -05:00
endfor
if new ! = # old
call writefile ( new , a :file )
endif
return ''
endfunction
2019-07-11 15:33:52 -04:00
function ! s :MergeCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( ) )
return s :MergeRebase ( 'merge' , a :bang , a :mods , args ) . after
endfunction
function ! s :RebaseCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( ) )
return s :MergeRebase ( 'rebase' , a :bang , a :mods , args ) . after
endfunction
function ! s :PullCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( ) )
return s :MergeRebase ( 'pull --progress' , a :bang , a :mods , args ) . after
endfunction
2018-12-31 12:52:51 -05:00
augroup fugitive_merge
autocmd !
autocmd VimLeavePre , BufDelete git - rebase - todo
2019-01-01 19:27:47 -05:00
\ if getbufvar ( + expand ( '<abuf>' ) , '&bufhidden' ) = = # 'wipe' |
2018-12-31 12:52:51 -05:00
\ call s :RebaseClean ( expand ( '<afile>' ) ) |
2019-01-01 19:27:47 -05:00
\ if getfsize ( FugitiveFind ( '.git/rebase-merge/done' , + expand ( '<abuf>' ) ) ) = = 0 |
\ let s :rebase_continue = FugitiveGitDir ( + expand ( '<abuf>' ) ) |
2018-12-31 12:52:51 -05:00
\ endif |
\ endif
2019-01-02 14:12:46 -05:00
autocmd BufEnter * nested
2018-12-31 12:52:51 -05:00
\ if exists ( 's:rebase_continue' ) |
2019-07-11 15:33:52 -04:00
\ exe s :MergeRebase ( 'rebase' , 0 , '' , [getfsize ( fugitive #Find ( '.git/rebase-merge/git-rebase-todo' , s :rebase_continue ) ) > 0 ? '--continue' : '--abort' ], remove ( s :, 'rebase_continue' ) ) |
2018-12-31 12:52:51 -05:00
\ endif
augroup END
2019-07-11 15:33:52 -04:00
call s :command ( "-nargs=? -bang -complete=customlist,s:MergeComplete Gmerge" , "Merge" )
call s :command ( "-nargs=? -bang -complete=customlist,s:RebaseComplete Grebase" , "Rebase" )
call s :command ( "-nargs=? -bang -complete=customlist,s:PullComplete Gpull" , "Pull" )
2019-07-08 05:04:35 -04:00
2018-08-06 02:01:32 -04:00
" Section: :Ggrep, :Glog
2018-06-01 13:46:22 -04:00
if ! exists ( 'g:fugitive_summary_format' )
let g :fugitive_summary_format = '%s'
endif
2018-07-28 19:09:05 -04:00
function ! s :GrepComplete ( A , L , P ) abort
2019-07-08 05:04:35 -04:00
return s :CompleteSubcommand ( 'grep' , a :A , a :L , a :P )
2018-07-28 19:09:05 -04:00
endfunction
2019-07-08 05:04:35 -04:00
function ! s :LogComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'log' , a :A , a :L , a :P )
endfunction
2018-06-01 13:46:22 -04:00
2019-07-15 20:41:33 -04:00
function ! s :GrepParseLine ( prefix , name_only , dir , line ) abort
2019-07-09 11:11:46 -04:00
let entry = {'valid' : 1 }
let match = matchlist ( a :line , '^\(.\{-\}\):\(\d\+\):\(\d\+:\)\=\(.*\)$' )
if len ( match )
let entry .module = match [1 ]
let entry .lnum = + match [2 ]
let entry .col = + match [3 ]
let entry .text = match [4 ]
2019-07-15 20:41:33 -04:00
elseif a :line = ~ # '^git: \|^usage: \|^error: \|^fatal: '
return {'text' : a :line }
2019-07-09 11:11:46 -04:00
else
let entry .module = matchstr ( a :line , '\CBinary file \zs.*\ze matches$' )
if len ( entry .module )
let entry .text = 'Binary file'
let entry .valid = 0
2018-06-01 13:46:22 -04:00
endif
2019-07-09 11:11:46 -04:00
endif
if empty ( entry .module ) && a :name_only
let entry .module = a :line
endif
if empty ( entry .module )
return {'text' : a :line }
endif
if entry .module ! ~ # ':'
2019-07-15 20:41:33 -04:00
let entry .filename = a :prefix . entry .module
2019-07-09 11:11:46 -04:00
else
let entry .filename = fugitive #Find ( entry .module , a :dir )
endif
return entry
endfunction
function ! s :Grep ( type , bang , arg ) abort
let dir = s :Dir ( )
let listnr = a :type = ~ # '^l' ? 0 : -1
let cmd = s :UserCommandList ( dir ) + ['--no-pager' , 'grep' , '-n' , '--no-color' , '--full-name' ]
if fugitive #GitVersion ( 2 , 19 )
call add ( cmd , '--column' )
endif
2019-07-15 20:41:33 -04:00
let tree = s :Tree ( dir )
let [args , after ] = s :SplitExpandChain ( a :arg , tree )
let prefix = s :PlatformSlash ( s :HasOpt ( args , '--cached' ) | | empty ( tree ) ? 'fugitive://' . dir . '//0/' : tree . '/' )
2019-07-14 16:44:05 -04:00
let name_only = s :HasOpt ( args , '-l' , '--files-with-matches' , '--name-only' , '-L' , '--files-without-match' )
let title = [listnr < 0 ? ':Ggrep' : ':Glgrep' ] + args
call s :QuickfixCreate ( listnr , {'title' : ( listnr < 0 ? ':Ggrep ' : ':Glgrep ' ) . s :fnameescape ( args ) })
2019-07-09 11:11:46 -04:00
let tempfile = tempname ( )
2019-07-19 11:57:16 -04:00
exe '!' . escape ( s :shellesc ( cmd + args ) , '%#!' )
2019-07-09 11:11:46 -04:00
\ printf ( &shellpipe . ( &shellpipe = ~ # '%s' ? '' : ' %s' ) , s :shellesc ( tempfile ) )
2019-07-15 20:41:33 -04:00
let list = map ( readfile ( tempfile ) , 's:GrepParseLine(prefix, name_only, dir, v:val)' )
2019-07-14 16:44:05 -04:00
call s :QuickfixSet ( listnr , list , 'a' )
2019-07-09 11:11:46 -04:00
if ! a :bang && ! empty ( list )
2019-07-16 16:24:17 -04:00
call s :BlurStatus ( )
2019-07-11 15:33:52 -04:00
return ( listnr < 0 ? 'c' : 'l' ) .'first' . after
2019-07-09 11:11:46 -04:00
else
2019-07-11 15:33:52 -04:00
return after [1 :-1 ]
2019-07-09 11:11:46 -04:00
endif
2018-06-01 13:46:22 -04:00
endfunction
2019-07-14 16:49:36 -04:00
function ! s :LogFlushQueue ( state ) abort
let queue = remove ( a :state , 'queue' )
if a :state .child_found
call remove ( queue , 0 )
endif
if len ( queue ) && queue [-1 ] = = # {'text' : '' }
call remove ( queue , -1 )
endif
return queue
endfunction
function ! s :LogParse ( state , target , dir , line ) abort
if a :state .context = = # 'hunk' && a :line = ~ # '^[-+ ]'
return []
endif
let list = matchlist ( a :line , '^\%(fugitive \(.\{-\}\)\t\|commit \|From \)\=\(\x\{40,\}\)\%( \(.*\)\)\=$' )
if len ( list )
let a :state .context = 'commit'
let a :state .base = 'fugitive://' . a :dir . '//' . list [2 ]
let a :state .base_module = len ( list [1 ]) ? list [1 ] : list [2 ]
let a :state .message = list [3 ]
if has_key ( a :state , 'diffing' )
call remove ( a :state , 'diffing' )
endif
let queue = s :LogFlushQueue ( a :state )
let a :state .queue = [{
\ 'valid' : 1 ,
\ 'filename' : a :state .base . a :target ,
\ 'module' : a :state .base_module . substitute ( a :target , '^/' , ':' , '' ) ,
\ 'text' : a :state .message }]
let a :state .child_found = 0
return queue
elseif type ( a :line ) = = type ( 0 )
return s :LogFlushQueue ( a :state )
elseif a :line = ~ # '^diff'
let a :state .context = 'diffhead'
elseif a :line = ~ # '^[+-]\{3\} \w/' && a :state .context = = # 'diffhead'
let a :state .diffing = a :line [5 :-1 ]
elseif a :line = ~ # '^@@[^@]*+\d' && has_key ( a :state , 'diffing' ) && has_key ( a :state , 'base' )
let a :state .context = 'hunk'
if empty ( a :target ) | | a :target = = # a :state .diffing
let a :state .child_found = 1
call add ( a :state .queue , {
\ 'valid' : 1 ,
\ 'filename' : a :state .base . a :state .diffing ,
\ 'module' : a :state .base_module . substitute ( a :state .diffing , '^/' , ':' , '' ) ,
\ 'lnum' : + matchstr ( a :line , '+\zs\d\+' ) ,
\ 'text' : a :state .message . matchstr ( a :line , ' @@\+ .\+' ) })
endif
elseif a :state .context = = # 'commit' | | a :state .context = = # 'init'
call add ( a :state .queue , {'text' : a :line })
endif
return []
endfunction
2019-07-10 08:21:41 -04:00
function ! s :Log ( type , bang , line1 , count , args ) abort
2019-07-09 06:33:57 -04:00
let dir = s :Dir ( )
2019-07-09 09:47:24 -04:00
let listnr = a :type = ~ # '^l' ? 0 : -1
2019-07-11 15:33:52 -04:00
let [args , after ] = s :SplitExpandChain ( a :args , s :Tree ( dir ) )
2019-07-09 06:33:57 -04:00
let split = index ( args , '--' )
if split > 0
let paths = args [split : -1 ]
let args = args [0 : split - 1 ]
elseif split = = 0
let paths = args
let args = []
else
let paths = []
endif
2019-07-14 16:49:36 -04:00
if a :line1 = = 0 && a :count
let path = fugitive #Path ( bufname ( a :count ) , '/' , dir )
elseif a :count > = 0
let path = fugitive #Path ( @%, '/' , dir )
else
let path = ''
endif
let range = ''
let extra = []
if path = ~ # '^/\.git\%(/\|$\)\|^$'
2018-06-01 13:46:22 -04:00
let path = ''
2019-07-14 16:49:36 -04:00
elseif a :line1 = = 0
let range = "0," . ( a :count ? a :count : bufnr ( '' ) )
2019-07-18 14:16:40 -04:00
let extra = ['.' . path ]
2019-07-10 08:21:41 -04:00
elseif a :count > 0
2019-07-14 16:49:36 -04:00
if ! s :HasOpt ( args , '--merges' , '--no-merges' )
call insert ( args , '--no-merges' )
2019-07-09 06:33:57 -04:00
endif
2019-07-14 16:49:36 -04:00
call add ( args , '-L' . a :line1 . ',' . a :count . ':' . path [1 :-1 ])
2018-06-01 13:46:22 -04:00
endif
2019-07-09 06:33:57 -04:00
if len ( path ) && empty ( filter ( copy ( args ) , 'v:val =~# "^[^-]"' ) )
let owner = s :Owner ( @%, dir )
2018-08-07 15:33:19 -04:00
if len ( owner )
2019-07-09 06:33:57 -04:00
call add ( args , owner )
2018-06-01 13:46:22 -04:00
endif
endif
2019-07-14 16:49:36 -04:00
if empty ( extra )
let path = ''
2019-07-09 04:42:01 -04:00
endif
2019-07-14 16:49:36 -04:00
if s :HasOpt ( args , '-g' , '--walk-reflogs' )
let format = "%gd\t%H %gs"
else
let format = "%h\t%H " . g :fugitive_summary_format
2019-07-09 04:42:01 -04:00
endif
2019-07-14 16:49:36 -04:00
let cmd = s :UserCommandList ( dir ) + ['--no-pager' ]
if fugitive #GitVersion ( 1 , 9 )
call extend ( cmd , ['-c' , 'diff.context=0' , 'log' ])
else
call extend ( cmd , ['log' , '-U0' , '--no-patch' ])
endif
call extend ( cmd ,
\ ['--no-color' , '--no-ext-diff' , '--pretty=format:fugitive ' . format ] +
\ args + paths + extra )
let state = {'context' : 'init' , 'child_found' : 0 , 'queue' : []}
let title = ( listnr < 0 ? ':Glog ' : ':Gllog ' ) . s :fnameescape ( args + paths )
return s :QuickfixStream ( listnr , title , cmd , ! a :bang , s :function ( 's:LogParse' ) , state , path , dir ) . after
2018-06-01 13:46:22 -04:00
endfunction
2019-07-11 15:33:52 -04:00
call s :command ( "-bang -nargs=? -complete=customlist,s:GrepComplete Ggrep :execute s:Grep('c',<bang>0,<q-args>)" )
call s :command ( "-bang -nargs=? -complete=customlist,s:GrepComplete Gcgrep :execute s:Grep('c',<bang>0,<q-args>)" )
call s :command ( "-bang -nargs=? -complete=customlist,s:GrepComplete Glgrep :execute s:Grep('l',<bang>0,<q-args>)" )
call s :command ( "-bang -nargs=? -range=-1 -complete=customlist,s:LogComplete Glog :exe s:Log('c',<bang>0,<line1>,<count>,<q-args>)" )
call s :command ( "-bang -nargs=? -range=-1 -complete=customlist,s:LogComplete Gclog :exe s:Log('c',<bang>0,<line1>,<count>,<q-args>)" )
call s :command ( "-bang -nargs=? -range=-1 -complete=customlist,s:LogComplete Gllog :exe s:Log('l',<bang>0,<line1>,<count>,<q-args>)" )
2019-07-08 05:04:35 -04:00
2018-08-06 02:01:32 -04:00
" Section: :Gedit, :Gpedit, :Gsplit, :Gvsplit, :Gtabedit, :Gread
2018-06-01 13:46:22 -04:00
function ! s :UsableWin ( nr ) abort
return a :nr && ! getwinvar ( a :nr , '&previewwindow' ) &&
2019-02-02 09:42:11 -05:00
\ ( empty ( getwinvar ( a :nr , 'fugitive_status' ) ) | | getbufvar ( winbufnr ( a :nr ) , 'fugitive_type' ) ! = # 'index' ) &&
2018-12-31 00:15:10 -05:00
\ index ( ['gitrebase' , 'gitcommit' ], getbufvar ( winbufnr ( a :nr ) , '&filetype' ) ) < 0 &&
2018-06-01 13:46:22 -04:00
\ index ( ['nofile' , 'help' , 'quickfix' ], getbufvar ( winbufnr ( a :nr ) , '&buftype' ) ) < 0
endfunction
2019-03-15 20:18:03 -04:00
function ! s :OpenParse ( args ) abort
2018-07-30 00:47:26 -04:00
let pre = []
let args = copy ( a :args )
while ! empty ( args ) && args [0 ] = ~ # '^+'
2018-08-20 01:11:29 -04:00
call add ( pre , ' ' . escape ( remove ( args , 0 ) , ' |"' ) )
2018-07-30 00:47:26 -04:00
endwhile
if len ( args )
let file = join ( args )
elseif empty ( expand ( '%' ) )
let file = ':'
2018-08-03 22:50:32 -04:00
elseif empty ( s :DirCommitFile ( @%) [1 ]) && s :Relative ( './' ) ! ~ # '^\./\.git\>'
2018-08-15 19:24:35 -04:00
let file = ':0:%'
2018-07-27 00:19:44 -04:00
else
2018-08-15 19:24:35 -04:00
let file = '%'
2018-07-27 00:19:44 -04:00
endif
2018-08-03 22:50:32 -04:00
return [s :Expand ( file ) , join ( pre ) ]
2018-07-27 00:19:44 -04:00
endfunction
2018-08-03 22:50:32 -04:00
function ! s :BlurStatus ( ) abort
2019-01-03 22:47:24 -05:00
if ( &previewwindow | | exists ( 'w:fugitive_status' ) ) && get ( b :, 'fugitive_type' , '' ) = = # 'index'
2018-07-27 00:19:44 -04:00
let winnrs = filter ( [winnr ( '#' ) ] + range ( 1 , winnr ( '$' ) ) , 's:UsableWin(v:val)' )
if len ( winnrs )
exe winnrs [0 ].'wincmd w'
else
2019-01-08 20:23:04 -05:00
belowright new
2018-07-27 00:19:44 -04:00
endif
if &diff
let mywinnr = winnr ( )
for winnr in range ( winnr ( '$' ) , 1 , -1 )
if winnr ! = mywinnr && getwinvar ( winnr , '&diff' )
execute winnr .'wincmd w'
close
if winnr ( '$' ) > 1
wincmd p
2018-06-01 13:46:22 -04:00
endif
2018-07-27 00:19:44 -04:00
endif
endfor
diffoff !
2018-06-01 13:46:22 -04:00
endif
endif
2018-08-03 22:50:32 -04:00
endfunction
2019-07-06 04:02:54 -04:00
function ! s :OpenExec ( cmd , mods , args , ...) abort
2019-07-09 06:45:50 -04:00
let dir = a :0 ? s :Dir ( a :1 ) : s :Dir ( )
2019-07-06 04:02:54 -04:00
let args = s :shellesc ( a :args )
let temp = tempname ( )
let git = s :UserCommand ( dir )
silent ! execute '!' . escape ( git . ' --no-pager ' . args , '!#%' ) .
\ ( &shell = ~ # 'csh' ? ' >& ' . temp : ' > ' . temp . ' 2>&1' )
redraw !
let temp = s :Resolve ( temp )
let s :temp_files [s :cpath ( temp ) ] = { 'dir' : dir , 'filetype' : 'git' }
if a :cmd = = # 'edit'
call s :BlurStatus ( )
endif
silent execute s :Mods ( a :mods ) . a :cmd temp
call fugitive #ReloadStatus ( dir , 1 )
return 'echo ' . string ( ':!' . git . ' ' . args )
endfunction
2018-06-01 13:46:22 -04:00
2019-07-06 04:02:54 -04:00
function ! s :Open ( cmd , bang , mods , arg , args ) abort
2018-06-01 13:46:22 -04:00
if a :bang
2019-07-06 04:02:54 -04:00
return s :OpenExec ( a :cmd , a :mods , s :SplitExpand ( a :arg , s :Tree ( ) ) )
2018-06-01 13:46:22 -04:00
endif
2019-07-06 04:02:54 -04:00
let mods = s :Mods ( a :mods )
2018-06-01 13:46:22 -04:00
try
2019-06-25 04:02:24 -04:00
let [file , pre ] = s :OpenParse ( a :args )
2018-08-03 22:50:32 -04:00
let file = s :Generate ( file )
2018-06-01 13:46:22 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
2018-08-06 10:52:41 -04:00
if file ! ~ # '^\a\a\+:'
2018-06-01 13:46:22 -04:00
let file = s :sub ( file , '/$' , '' )
endif
2018-08-03 22:50:32 -04:00
if a :cmd = = # 'edit'
call s :BlurStatus ( )
endif
2019-06-27 23:22:36 -04:00
return mods . a :cmd . pre . ' ' . s :fnameescape ( file )
2018-07-27 00:19:44 -04:00
endfunction
2019-04-24 03:57:04 -04:00
function ! s :ReadCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
2019-06-27 23:22:36 -04:00
let mods = s :Mods ( a :mods )
2019-07-10 08:21:41 -04:00
let after = a :count
2018-07-27 00:19:44 -04:00
if a :count < 0
let delete = 'silent 1,' . line ( '$' ) . 'delete_|'
let after = line ( '$' )
elseif a :range = = 2
2019-07-10 08:21:41 -04:00
let delete = 'silent ' . a :line1 . ',' . a :count . 'delete_|'
2018-06-01 13:46:22 -04:00
else
2018-07-27 00:19:44 -04:00
let delete = ''
2018-06-01 13:46:22 -04:00
endif
2018-07-27 00:19:44 -04:00
if a :bang
2019-07-09 10:08:01 -04:00
let dir = s :Dir ( )
let git = s :UserCommand ( dir )
let args = s :shellesc ( s :SplitExpand ( a :arg , s :Tree ( dir ) ) )
silent execute mods . after . 'read!' escape ( git . ' --no-pager ' . args , '!#%' )
2018-07-27 00:19:44 -04:00
execute delete . 'diffupdate'
call fugitive #ReloadStatus ( )
return 'redraw|echo ' .string ( ':!' .git .' ' .args )
endif
try
2019-06-25 04:02:24 -04:00
let [file , pre ] = s :OpenParse ( a :args )
2018-07-30 00:47:26 -04:00
let file = s :Generate ( file )
2018-07-27 00:19:44 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-07-27 00:19:44 -04:00
endtry
2018-08-20 01:11:29 -04:00
if file = ~ # '^fugitive:' && after is # 0
2019-06-27 23:22:36 -04:00
return 'exe ' .string ( mods . fugitive #FileReadCmd ( file , 0 , pre ) ) . '|diffupdate'
2018-08-20 01:11:29 -04:00
endif
2019-01-06 02:37:30 -05:00
if foldlevel ( after )
exe after . 'foldopen!'
endif
2019-06-27 23:22:36 -04:00
return mods . after . 'read' . pre . ' ' . s :fnameescape ( file ) . '|' . delete . 'diffupdate' . ( a :count < 0 ? '|' . line ( '.' ) : '' )
2018-06-01 13:46:22 -04:00
endfunction
2019-03-15 20:18:03 -04:00
function ! s :ReadComplete ( A , L , P ) abort
2018-06-01 13:46:22 -04:00
if a :L = ~ # '^\w\+!'
2019-02-27 22:01:25 -05:00
return fugitive #CompleteGit ( a :A , a :L , a :P )
2018-06-01 13:46:22 -04:00
else
2019-02-27 22:01:25 -05:00
return fugitive #CompleteObject ( a :A , a :L , a :P )
2018-06-01 13:46:22 -04:00
endif
endfunction
2019-03-15 20:18:03 -04:00
call s :command ( "-bar -bang -nargs=* -complete=customlist,fugitive#CompleteObject Ge execute s:Open('edit<bang>', 0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -complete=customlist,fugitive#CompleteObject Gedit execute s:Open('edit<bang>', 0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -complete=customlist,s:ReadComplete Gpedit execute s:Open('pedit', <bang>0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -range=-1 -complete=customlist,s:ReadComplete Gsplit execute s:Open((<count> > 0 ? <count> : '').(<count> ? 'split' : 'edit'), <bang>0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -range=-1 -complete=customlist,s:ReadComplete Gvsplit execute s:Open((<count> > 0 ? <count> : '').(<count> ? 'vsplit' : 'edit!'), <bang>0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -range=-1 -complete=customlist,s:ReadComplete" . ( has ( 'patch-7.4.542' ) ? ' -addr=tabs' : '' ) . " Gtabedit execute s:Open((<count> >= 0 ? <count> : '').'tabedit', <bang>0, '<mods>', <q-args>, [<f-args>])" )
call s :command ( "-bar -bang -nargs=* -range=-1 -complete=customlist,s:ReadComplete Gread" , "Read" )
2018-06-01 13:46:22 -04:00
2018-08-06 02:01:32 -04:00
" Section: :Gwrite, :Gwq
2018-06-01 13:46:22 -04:00
2019-03-15 20:18:03 -04:00
call s :command ( "-bar -bang -nargs=* -complete=customlist,fugitive#CompleteObject Gwrite" , "Write" )
call s :command ( "-bar -bang -nargs=* -complete=customlist,fugitive#CompleteObject Gw" , "Write" )
call s :command ( "-bar -bang -nargs=* -complete=customlist,fugitive#CompleteObject Gwq" , "Wq" )
2018-06-01 13:46:22 -04:00
2019-03-15 20:18:03 -04:00
function ! s :WriteCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
2018-06-01 13:46:22 -04:00
if exists ( 'b:fugitive_commit_arguments' )
return 'write|bdelete'
elseif expand ( '%:t' ) = = 'COMMIT_EDITMSG' && $GIT_INDEX_FILE ! = ''
return 'wq'
2018-07-27 00:14:47 -04:00
elseif get ( b :, 'fugitive_type' , '' ) = = # 'index'
2018-06-01 13:46:22 -04:00
return 'Gcommit'
2018-08-13 00:08:59 -04:00
elseif &buftype = = # 'nowrite' && getline ( 4 ) = ~ # '^+++ '
2018-06-01 13:46:22 -04:00
let filename = getline ( 4 ) [6 :-1 ]
setlocal buftype =
silent write
setlocal buftype = nowrite
2018-07-28 20:24:15 -04:00
if matchstr ( getline ( 2 ) , 'index [[:xdigit:]]\+\.\.\zs[[:xdigit:]]\{7\}' ) = = # fugitive #RevParse ( ':0:' .filename ) [0 :6 ]
2019-07-20 23:35:24 -04:00
let [message , exec_error ] = s :ChompError ( ['apply' , '--cached' , '--reverse' , '--' , expand ( '%:p' ) ])
2018-06-01 13:46:22 -04:00
else
2019-07-20 23:35:24 -04:00
let [message , exec_error ] = s :ChompError ( ['apply' , '--cached' , '--' , expand ( '%:p' ) ])
2018-06-01 13:46:22 -04:00
endif
2019-07-20 23:35:24 -04:00
if exec_error
echohl ErrorMsg
echo message
echohl NONE
return ''
2019-03-15 20:18:03 -04:00
elseif a :bang
2018-06-01 13:46:22 -04:00
return 'bdelete'
else
return 'Gedit ' .fnameescape ( filename )
endif
endif
let mytab = tabpagenr ( )
let mybufnr = bufnr ( '' )
2019-07-09 08:38:08 -04:00
try
let file = len ( a :args ) ? s :Generate ( s :Expand ( join ( a :args , ' ' ) ) ) : fugitive #Real ( @%)
catch /^fugitive:/
return 'echoerr ' . string ( v :exception )
endtry
2018-08-13 00:08:59 -04:00
if empty ( file )
2018-06-01 13:46:22 -04:00
return 'echoerr ' .string ( 'fugitive: cannot determine file path' )
endif
2018-08-13 00:08:59 -04:00
if file = ~ # '^fugitive:'
2019-03-15 20:18:03 -04:00
return 'write' . ( a :bang ? '! ' : ' ' ) . s :fnameescape ( file )
2018-06-01 13:46:22 -04:00
endif
2019-07-26 11:21:29 -04:00
let always_permitted = s :cpath ( fugitive #Real ( @%) , file ) && empty ( s :DirCommitFile ( @%) [1 ])
2019-03-15 20:18:03 -04:00
if ! always_permitted && ! a :bang && ( len ( s :TreeChomp ( 'diff' , '--name-status' , 'HEAD' , '--' , file ) ) | | len ( s :TreeChomp ( 'ls-files' , '--others' , '--' , file ) ) )
2018-06-01 13:46:22 -04:00
let v :errmsg = 'fugitive: file has uncommitted changes (use ! to override)'
return 'echoerr v:errmsg'
endif
let treebufnr = 0
for nr in range ( 1 , bufnr ( '$' ) )
if fnamemodify ( bufname ( nr ) , ':p' ) = = # file
let treebufnr = nr
endif
endfor
if treebufnr > 0 && treebufnr ! = bufnr ( '' )
let temp = tempname ( )
2019-07-26 11:32:17 -04:00
silent execute 'keepalt %write ' .temp
2018-06-01 13:46:22 -04:00
for tab in [mytab ] + range ( 1 , tabpagenr ( '$' ) )
for winnr in range ( 1 , tabpagewinnr ( tab , '$' ) )
if tabpagebuflist ( tab ) [winnr -1 ] = = treebufnr
execute 'tabnext ' .tab
if winnr ! = winnr ( )
execute winnr .'wincmd w'
let restorewinnr = 1
endif
try
let lnum = line ( '.' )
let last = line ( '$' )
silent execute '$read ' .temp
silent execute '1,' .last .'delete_'
silent write !
silent execute lnum
let did = 1
finally
if exists ( 'restorewinnr' )
wincmd p
endif
execute 'tabnext ' .mytab
endtry
endif
endfor
endfor
if ! exists ( 'did' )
call writefile ( readfile ( temp , 'b' ) , file , 'b' )
endif
else
2018-08-13 00:08:59 -04:00
execute 'write! ' .s :fnameescape ( file )
2018-06-01 13:46:22 -04:00
endif
2019-03-15 20:18:03 -04:00
if a :bang
2019-07-01 00:48:18 -04:00
let [error , exec_error ] = s :ChompError ( ['add' , '--force' , '--' , file ])
2018-06-01 13:46:22 -04:00
else
2019-07-01 00:48:18 -04:00
let [error , exec_error ] = s :ChompError ( ['add' , '--' , file ])
2018-06-01 13:46:22 -04:00
endif
2019-07-01 00:48:18 -04:00
if exec_error
2018-06-01 13:46:22 -04:00
let v :errmsg = 'fugitive: ' .error
return 'echoerr v:errmsg'
endif
2018-08-13 00:08:59 -04:00
if s :cpath ( fugitive #Real ( @%) , file ) && s :DirCommitFile ( @%) [1 ] = ~ # '^\d$'
2019-02-28 20:08:09 -05:00
setlocal nomodified
2018-06-01 13:46:22 -04:00
endif
2018-08-13 00:08:59 -04:00
let one = s :Generate ( ':1:' .file )
let two = s :Generate ( ':2:' .file )
let three = s :Generate ( ':3:' .file )
2018-06-01 13:46:22 -04:00
for nr in range ( 1 , bufnr ( '$' ) )
let name = fnamemodify ( bufname ( nr ) , ':p' )
if bufloaded ( nr ) && ! getbufvar ( nr , '&modified' ) && ( name = = # one | | name = = # two | | name = = # three )
execute nr .'bdelete'
endif
endfor
unlet ! restorewinnr
2018-08-13 00:08:59 -04:00
let zero = s :Generate ( ':0:' .file )
2018-06-01 13:46:22 -04:00
silent execute 'doautocmd BufWritePost' s :fnameescape ( zero )
for tab in range ( 1 , tabpagenr ( '$' ) )
for winnr in range ( 1 , tabpagewinnr ( tab , '$' ) )
let bufnr = tabpagebuflist ( tab ) [winnr -1 ]
let bufname = fnamemodify ( bufname ( bufnr ) , ':p' )
if bufname = = # zero && bufnr ! = mybufnr
execute 'tabnext ' .tab
if winnr ! = winnr ( )
execute winnr .'wincmd w'
let restorewinnr = 1
endif
try
let lnum = line ( '.' )
let last = line ( '$' )
silent execute '$read ' .s :fnameescape ( file )
silent execute '1,' .last .'delete_'
silent execute lnum
2019-02-28 20:08:09 -05:00
setlocal nomodified
2018-06-01 13:46:22 -04:00
diffupdate
finally
if exists ( 'restorewinnr' )
wincmd p
endif
execute 'tabnext ' .mytab
endtry
break
endif
endfor
endfor
call fugitive #ReloadStatus ( )
return 'checktime'
endfunction
2019-03-15 20:18:03 -04:00
function ! s :WqCommand ( ...) abort
let bang = a :5 ? '!' : ''
2018-06-01 13:46:22 -04:00
if exists ( 'b:fugitive_commit_arguments' )
return 'wq' .bang
endif
2019-03-15 20:18:03 -04:00
let result = call ( s :function ( 's:WriteCommand' ) , a :000 )
2018-06-01 13:46:22 -04:00
if result = ~ # '^\%(write\|wq\|echoerr\)'
return s :sub ( result , '^write' , 'wq' )
else
return result .'|quit' .bang
endif
endfunction
augroup fugitive_commit
autocmd !
2019-07-07 05:40:02 -04:00
autocmd VimLeavePre , BufDelete COMMIT_EDITMSG execute substitute ( s :FinishCommit ( ) , '\C^echoerr \(''[^'']*''\)*' , 'redraw|echohl ErrorMsg|echo \1|echohl NONE' , '' )
2018-06-01 13:46:22 -04:00
augroup END
2018-08-06 02:01:32 -04:00
" Section: :Gpush, :Gfetch
2018-06-01 13:46:22 -04:00
2019-07-08 05:04:35 -04:00
function ! s :PushComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'push' , a :A , a :L , a :P , function ( 's:CompleteRemote' ) )
endfunction
function ! s :FetchComplete ( A , L , P ) abort
return s :CompleteSubcommand ( 'fetch' , a :A , a :L , a :P , function ( 's:CompleteRemote' ) )
endfunction
2018-06-01 13:46:22 -04:00
2019-07-18 16:04:44 -04:00
function ! s :AskPassArgs ( dir ) abort
if ( len ( $DISPLAY ) | | len ( $TERM_PROGRAM ) | | has ( 'gui_running' ) ) && fugitive #GitVersion ( 1 , 8 ) &&
\ empty ( $GIT_ASKPASS ) && empty ( $SSH_ASKPASS ) && empty ( fugitive #Config ( 'core.askPass' , a :dir ) )
if s :executable ( s :ExecPath ( ) . '/git-gui--askpass' )
return ['-c' , 'core.askPass=' . s :ExecPath ( ) . '/git-gui--askpass' ]
elseif s :executable ( 'ssh-askpass' )
return ['-c' , 'core.askPass=ssh-askpass' ]
endif
endif
return []
endfunction
2019-07-10 09:25:34 -04:00
function ! s :Dispatch ( bang , cmd , arg ) abort
let dir = s :Dir ( )
let [args , after ] = s :SplitExpandChain ( a :arg , s :Tree ( dir ) )
2018-06-01 13:46:22 -04:00
let [mp , efm , cc ] = [&l :mp , &l :efm , get ( b :, 'current_compiler' , '' ) ]
try
let b :current_compiler = 'git'
let &l :errorformat = s :common_efm
2019-07-18 16:04:44 -04:00
let &l :makeprg = s :shellesc ( s :UserCommandList ( dir ) + s :AskPassArgs ( dir ) + [a :cmd ] + args )
2018-06-01 13:46:22 -04:00
if exists ( ':Make' ) = = 2
2019-01-11 14:11:25 -05:00
Make
2019-07-10 09:25:34 -04:00
return after [1 :-1 ]
2018-06-01 13:46:22 -04:00
else
2019-07-12 14:38:28 -04:00
if ! has ( 'patch-8.1.0334' ) && has ( 'terminal' ) && &autowrite
2019-07-10 09:25:34 -04:00
let autowrite_was_set = 1
set noautowrite
2019-07-12 14:38:28 -04:00
silent ! wall
2019-07-10 09:25:34 -04:00
endif
silent noautocmd make !
2018-06-01 13:46:22 -04:00
redraw !
2019-07-10 09:25:34 -04:00
return 'call fugitive#Cwindow()|call fugitive#ReloadStatus()' . after
2018-06-01 13:46:22 -04:00
endif
finally
let [&l :mp , &l :efm , b :current_compiler ] = [mp , efm , cc ]
if empty ( cc ) | unlet ! b :current_compiler | endif
2019-07-10 09:25:34 -04:00
if exists ( 'autowrite_was_set' )
set autowrite
endif
2018-06-01 13:46:22 -04:00
endtry
endfunction
2019-07-10 09:25:34 -04:00
function ! s :PushCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
return s :Dispatch ( a :bang ? '!' : '' , 'push' , a :arg )
endfunction
function ! s :FetchCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
return s :Dispatch ( a :bang ? '!' : '' , 'fetch' , a :arg )
endfunction
call s :command ( "-nargs=? -bang -complete=customlist,s:PushComplete Gpush" , "Push" )
call s :command ( "-nargs=? -bang -complete=customlist,s:FetchComplete Gfetch" , "Fetch" )
2019-07-08 05:04:35 -04:00
2018-08-06 02:01:32 -04:00
" Section: :Gdiff
2018-06-01 13:46:22 -04:00
2019-07-07 10:34:04 -04:00
call s :command ( "-bang -bar -nargs=* -complete=customlist,fugitive#CompleteObject Gdiffsplit :execute s:Diff(1, <bang>0, '<mods>', <f-args>)" )
call s :command ( "-bang -bar -nargs=* -complete=customlist,fugitive#CompleteObject Gvdiffsplit :execute s:Diff(0, <bang>0, 'vertical <mods>', <f-args>)" )
call s :command ( "-bang -bar -nargs=* -complete=customlist,fugitive#CompleteObject Ghdiffsplit :execute s:Diff(0, <bang>0, '<mods>', <f-args>)" )
2018-06-01 13:46:22 -04:00
augroup fugitive_diff
autocmd !
autocmd BufWinLeave *
\ if s :can_diffoff ( + expand ( '<abuf>' ) ) && s :diff_window_count ( ) = = 2 |
2019-02-25 17:10:54 -05:00
\ call s :diffoff_all ( s :Dir ( + expand ( '<abuf>' ) ) ) |
2018-06-01 13:46:22 -04:00
\ endif
autocmd BufWinEnter *
\ if s :can_diffoff ( + expand ( '<abuf>' ) ) && s :diff_window_count ( ) = = 1 |
\ call s :diffoff ( ) |
\ endif
augroup END
function ! s :can_diffoff ( buf ) abort
return getwinvar ( bufwinnr ( a :buf ) , '&diff' ) &&
2019-02-25 17:10:54 -05:00
\ ! empty ( s :Dir ( a :buf ) ) &&
2018-06-01 13:46:22 -04:00
\ ! empty ( getwinvar ( bufwinnr ( a :buf ) , 'fugitive_diff_restore' ) )
endfunction
2018-06-01 13:47:48 -04:00
function ! fugitive #CanDiffoff ( buf ) abort
2019-02-25 17:10:54 -05:00
return s :can_diffoff ( bufnr ( a :buf ) )
2018-06-01 13:46:22 -04:00
endfunction
function ! s :diff_modifier ( count ) abort
let fdc = matchstr ( &diffopt , 'foldcolumn:\zs\d\+' )
if &diffopt = ~ # 'horizontal' && &diffopt ! ~ # 'vertical'
2019-07-07 10:34:04 -04:00
return ''
2018-06-01 13:46:22 -04:00
elseif &diffopt = ~ # 'vertical'
2019-07-07 10:34:04 -04:00
return 'vertical '
2018-06-01 13:46:22 -04:00
elseif winwidth ( 0 ) < = a :count * ( ( &tw ? &tw : 80 ) + ( empty ( fdc ) ? 2 : fdc ) )
2019-07-07 10:34:04 -04:00
return ''
2018-06-01 13:46:22 -04:00
else
2019-07-07 10:34:04 -04:00
return 'vertical '
2018-06-01 13:46:22 -04:00
endif
endfunction
function ! s :diff_window_count ( ) abort
let c = 0
for nr in range ( 1 , winnr ( '$' ) )
let c + = getwinvar ( nr , '&diff' )
endfor
return c
endfunction
function ! s :diff_restore ( ) abort
let restore = 'setlocal nodiff noscrollbind'
\ . ' scrollopt=' . &l :scrollopt
\ . ( &l :wrap ? ' wrap' : ' nowrap' )
\ . ' foldlevel=999'
\ . ' foldmethod=' . &l :foldmethod
\ . ' foldcolumn=' . &l :foldcolumn
\ . ' foldlevel=' . &l :foldlevel
\ . ( &l :foldenable ? ' foldenable' : ' nofoldenable' )
if has ( 'cursorbind' )
let restore .= ( &l :cursorbind ? ' ' : ' no' ) . 'cursorbind'
endif
return restore
endfunction
function ! s :diffthis ( ) abort
if ! &diff
let w :fugitive_diff_restore = s :diff_restore ( )
diffthis
endif
endfunction
function ! s :diffoff ( ) abort
if exists ( 'w:fugitive_diff_restore' )
execute w :fugitive_diff_restore
unlet w :fugitive_diff_restore
else
diffoff
endif
endfunction
function ! s :diffoff_all ( dir ) abort
let curwin = winnr ( )
for nr in range ( 1 , winnr ( '$' ) )
if getwinvar ( nr , '&diff' )
if nr ! = winnr ( )
execute nr .'wincmd w'
let restorewinnr = 1
endif
2019-02-25 17:10:54 -05:00
if s :Dir ( ) = = # a :dir
2018-06-01 13:46:22 -04:00
call s :diffoff ( )
endif
endif
endfor
execute curwin .'wincmd w'
endfunction
2018-07-19 00:34:04 -04:00
function ! s :CompareAge ( mine , theirs ) abort
2018-06-01 13:46:22 -04:00
let scores = {':0' : 1 , ':1' : 2 , ':2' : 3 , ':' : 4 , ':3' : 5 }
2018-07-19 00:34:04 -04:00
let mine = substitute ( a :mine , '^:' , '' , '' )
let theirs = substitute ( a :theirs , '^:' , '' , '' )
let my_score = get ( scores , ':' .mine , 0 )
let their_score = get ( scores , ':' .theirs , 0 )
2018-06-01 13:46:22 -04:00
if my_score | | their_score
return my_score < their_score ? -1 : my_score ! = their_score
2018-07-19 00:34:04 -04:00
elseif mine = = # theirs
2018-06-01 13:46:22 -04:00
return 0
endif
2018-07-22 13:56:21 -04:00
let base = s :TreeChomp ( 'merge-base' , mine , theirs )
2018-07-19 00:34:04 -04:00
if base = = # mine
2018-06-01 13:46:22 -04:00
return -1
2018-07-19 00:34:04 -04:00
elseif base = = # theirs
2018-06-01 13:46:22 -04:00
return 1
endif
2018-08-13 00:08:59 -04:00
let my_time = + s :TreeChomp ( 'log' , '--max-count=1' , '--pretty=format:%at' , a :mine , '--' )
let their_time = + s :TreeChomp ( 'log' , '--max-count=1' , '--pretty=format:%at' , a :theirs , '--' )
2018-06-01 13:46:22 -04:00
return my_time < their_time ? -1 : my_time ! = their_time
endfunction
2019-07-07 10:34:04 -04:00
function ! s :IsConflicted ( ) abort
2019-07-13 07:45:30 -04:00
return len ( @%) && ! empty ( s :ChompDefault ( '' , 'ls-files' , '--unmerged' , '--' , expand ( '%:p' ) ) )
2019-07-07 10:34:04 -04:00
endfunction
function ! s :Diff ( autodir , keepfocus , mods , ...) abort
if exists ( ':DiffGitCached' ) && ! a :0
return s :Mods ( a :mods ) . 'DiffGitCached'
endif
2018-06-01 13:46:22 -04:00
let args = copy ( a :000 )
let post = ''
if get ( args , 0 ) = ~ # '^+'
let post = remove ( args , 0 ) [1 :-1 ]
endif
2018-07-22 14:18:59 -04:00
let commit = s :DirCommitFile ( @%) [1 ]
2019-07-07 10:34:04 -04:00
if a :mods = ~ # '\<tab\>'
let mods = substitute ( a :mods , '\<tab\>' , '' , 'g' )
tab split
else
let mods = 'keepalt ' . a :mods
endif
2018-07-27 00:35:27 -04:00
let back = exists ( '*win_getid' ) ? 'call win_gotoid(' . win_getid ( ) . ')' : 'wincmd p'
2019-07-07 10:34:04 -04:00
if ( empty ( args ) | | args [0 ] = = # ':' ) && commit = ~ # '^[0-1]\=$' && a :keepfocus && s :IsConflicted ( )
let mods = ( a :autodir ? s :diff_modifier ( 3 ) : '' ) . s :Mods ( mods , 'leftabove' )
2018-06-01 13:46:22 -04:00
let nr = bufnr ( '' )
2019-07-07 10:34:04 -04:00
execute mods 'split' s :fnameescape ( s :Generate ( s :Relative ( ':2:' ) ) )
2018-06-01 13:46:22 -04:00
execute 'nnoremap <buffer> <silent> dp :diffput ' .nr .'<Bar>diffupdate<CR>'
let nr2 = bufnr ( '' )
call s :diffthis ( )
2018-07-27 00:35:27 -04:00
exe back
2019-07-07 10:34:04 -04:00
let mods = substitute ( mods , '\Cleftabove\|rightbelow\|aboveleft\|belowright' , '\=submatch(0) =~# "f" ? "rightbelow" : "leftabove"' , '' )
execute mods 'split' s :fnameescape ( s :Generate ( s :Relative ( ':3:' ) ) )
2018-06-01 13:46:22 -04:00
execute 'nnoremap <buffer> <silent> dp :diffput ' .nr .'<Bar>diffupdate<CR>'
let nr3 = bufnr ( '' )
call s :diffthis ( )
2018-07-27 00:35:27 -04:00
exe back
2018-06-01 13:46:22 -04:00
call s :diffthis ( )
execute 'nnoremap <buffer> <silent> d2o :diffget ' .nr2 .'<Bar>diffupdate<CR>'
execute 'nnoremap <buffer> <silent> d3o :diffget ' .nr3 .'<Bar>diffupdate<CR>'
return post
elseif len ( args )
let arg = join ( args , ' ' )
if arg = = # ''
return post
elseif arg = = # '/'
2018-08-13 00:08:59 -04:00
let file = s :Relative ( )
2018-06-01 13:46:22 -04:00
elseif arg = = # ':'
2018-07-22 14:18:59 -04:00
let file = s :Relative ( ':0:' )
2019-07-22 14:31:57 -04:00
elseif arg = ~ # '^:\d$'
let file = s :Relative ( arg . ':' )
2019-07-09 08:38:08 -04:00
else
2018-06-01 13:46:22 -04:00
try
2019-07-09 08:38:08 -04:00
let file = arg = ~ # '^:/.' ? fugitive #RevParse ( arg ) . s :Relative ( ':' ) : s :Expand ( arg )
2018-06-01 13:46:22 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
endif
2018-07-22 13:56:21 -04:00
if file ! ~ # ':' && file ! ~ # '^/' && s :TreeChomp ( 'cat-file' , '-t' , file ) = ~ # '^\%(tag\|commit\)$'
2018-07-22 14:18:59 -04:00
let file = file .s :Relative ( ':' )
2018-06-01 13:46:22 -04:00
endif
2019-07-07 10:34:04 -04:00
elseif len ( commit )
let file = s :Relative ( )
elseif s :IsConflicted ( )
let file = s :Relative ( ':1:' )
let post = 'echohl WarningMsg|echo "Use :Gdiffsplit! for 3 way diff"|echohl NONE|' . post
2018-06-01 13:46:22 -04:00
else
2019-07-07 10:34:04 -04:00
let file = s :Relative ( ':0:' )
2018-06-01 13:46:22 -04:00
endif
try
2018-07-22 01:29:49 -04:00
let spec = s :Generate ( file )
2018-06-01 13:46:22 -04:00
let restore = s :diff_restore ( )
if exists ( '+cursorbind' )
setlocal cursorbind
endif
let w :fugitive_diff_restore = restore
2018-07-22 14:18:59 -04:00
if s :CompareAge ( commit , s :DirCommitFile ( spec ) [1 ]) < 0
2019-07-07 10:34:04 -04:00
let mods = s :Mods ( mods , 'rightbelow' )
2018-06-01 13:46:22 -04:00
else
2019-07-07 10:34:04 -04:00
let mods = s :Mods ( mods , 'leftabove' )
2018-06-01 13:46:22 -04:00
endif
2019-07-07 10:34:04 -04:00
let mods = ( a :autodir ? s :diff_modifier ( 2 ) : '' ) . mods
execute mods 'diffsplit' s :fnameescape ( spec )
2018-06-01 13:46:22 -04:00
let &l :readonly = &l :readonly
redraw
let w :fugitive_diff_restore = restore
let winnr = winnr ( )
if getwinvar ( '#' , '&diff' )
2018-07-27 00:35:27 -04:00
exe back
2018-06-01 13:46:22 -04:00
if ! a :keepfocus
call feedkeys ( winnr ."\<C-W>w" , 'n' )
endif
endif
return post
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
endfunction
2018-08-06 02:01:32 -04:00
" Section: :Gmove, :Gremove
2018-06-01 13:46:22 -04:00
function ! s :Move ( force , rename , destination ) abort
2018-08-15 19:24:35 -04:00
if a :destination = ~ # '^\.\.\=\%(/\|$\)'
let destination = simplify ( getcwd ( ) . '/' . a :destination )
elseif a :destination = ~ # '^\a\+:\|^/'
let destination = a :destination
2018-08-10 22:01:43 -04:00
elseif a :destination = ~ # '^:/:\='
2018-08-15 19:24:35 -04:00
let destination = s :Tree ( ) . substitute ( a :destination , '^:/:\=' , '' , '' )
elseif a :destination = ~ # '^:(\%(top\|top,literal\|literal,top\))'
let destination = s :Tree ( ) . matchstr ( a :destination , ')\zs.*' )
elseif a :destination = ~ # '^:(literal)'
let destination = simplify ( getcwd ( ) . '/' . matchstr ( a :destination , ')\zs.*' ) )
elseif a :rename
let destination = expand ( '%:p:s?[\/]$??:h' ) . '/' . a :destination
2018-06-01 13:46:22 -04:00
else
2018-08-15 19:24:35 -04:00
let destination = s :Tree ( ) . '/' . a :destination
2018-06-01 13:46:22 -04:00
endif
2018-08-15 19:24:35 -04:00
let destination = s :Slash ( destination )
2018-07-24 20:44:06 -04:00
if isdirectory ( @%)
2018-07-19 00:34:04 -04:00
setlocal noswapfile
2018-06-01 13:46:22 -04:00
endif
2019-07-01 00:48:18 -04:00
let [message , exec_error ] = s :ChompError ( ['mv' ] + ( a :force ? ['-f' ] : []) + ['--' , expand ( '%:p' ) , destination ])
if exec_error
2018-06-01 13:46:22 -04:00
let v :errmsg = 'fugitive: ' .message
return 'echoerr v:errmsg'
endif
if isdirectory ( destination )
let destination = fnamemodify ( s :sub ( destination , '/$' , '' ) .'/' .expand ( '%:t' ) , ':.' )
endif
call fugitive #ReloadStatus ( )
2018-07-24 01:27:55 -04:00
if empty ( s :DirCommitFile ( @%) [1 ])
2018-06-01 13:46:22 -04:00
if isdirectory ( destination )
return 'keepalt edit ' .s :fnameescape ( destination )
else
return 'keepalt saveas! ' .s :fnameescape ( destination )
endif
else
2018-07-22 01:29:49 -04:00
return 'file ' .s :fnameescape ( s :Generate ( ':0:' .destination ) )
2018-06-01 13:46:22 -04:00
endif
endfunction
function ! s :RenameComplete ( A , L , P ) abort
2018-08-10 18:46:19 -04:00
if a :A = ~ # '^[.:]\=/'
2019-02-27 22:01:25 -05:00
return fugitive #CompletePath ( a :A )
2018-06-01 13:46:22 -04:00
else
2018-08-13 00:08:59 -04:00
let pre = s :Slash ( fnamemodify ( expand ( '%:p:s?[\/]$??' ) , ':h' ) ) . '/'
2019-02-27 22:01:25 -05:00
return map ( fugitive #CompletePath ( pre .a :A ) , 'strpart(v:val, len(pre))' )
2018-06-01 13:46:22 -04:00
endif
endfunction
function ! s :Remove ( after , force ) abort
2018-07-24 01:27:55 -04:00
if s :DirCommitFile ( @%) [1 ] = = # ''
2018-06-01 13:46:22 -04:00
let cmd = ['rm' ]
2018-07-24 01:27:55 -04:00
elseif s :DirCommitFile ( @%) [1 ] = = # '0'
2018-06-01 13:46:22 -04:00
let cmd = ['rm' , '--cached' ]
else
let v :errmsg = 'fugitive: rm not supported here'
return 'echoerr v:errmsg'
endif
if a :force
let cmd + = ['--force' ]
endif
2019-07-01 00:48:18 -04:00
let [message , exec_error ] = s :ChompError ( cmd + ['--' , expand ( '%:p' ) ])
if exec_error
2018-06-01 13:46:22 -04:00
let v :errmsg = 'fugitive: ' .s :sub ( message , 'error:.*\zs\n\(.*-f.*' , ' (add ! to force)' )
return 'echoerr ' .string ( v :errmsg )
else
call fugitive #ReloadStatus ( )
return a :after . ( a :force ? '!' : '' )
endif
endfunction
augroup fugitive_remove
autocmd !
2018-07-24 01:27:55 -04:00
autocmd User Fugitive if s :DirCommitFile ( @%) [1 ] = ~ # '^0\=$' |
2019-02-27 22:01:25 -05:00
\ exe "command! -buffer -bar -bang -nargs=1 -complete=customlist,fugitive#CompletePath Gmove :execute s:Move(<bang>0,0,<q-args>)" |
2018-06-01 13:46:22 -04:00
\ exe "command! -buffer -bar -bang -nargs=1 -complete=customlist,s:RenameComplete Grename :execute s:Move(<bang>0,1,<q-args>)" |
\ exe "command! -buffer -bar -bang Gremove :execute s:Remove('edit',<bang>0)" |
\ exe "command! -buffer -bar -bang Gdelete :execute s:Remove('bdelete',<bang>0)" |
\ endif
augroup END
2018-08-06 02:01:32 -04:00
" Section: :Gblame
2018-06-01 13:46:22 -04:00
2018-07-19 00:34:04 -04:00
function ! s :Keywordprg ( ) abort
2019-02-25 17:10:54 -05:00
let args = ' --git-dir=' .escape ( s :Dir ( ) , "\\\"' " )
2018-07-19 00:34:04 -04:00
if has ( 'gui_running' ) && ! has ( 'win32' )
2018-07-27 00:19:44 -04:00
return s :UserCommand ( ) . ' --no-pager' . args . ' log -1'
2018-07-19 00:34:04 -04:00
else
2018-07-27 00:19:44 -04:00
return s :UserCommand ( ) . args . ' show'
2018-07-19 00:34:04 -04:00
endif
endfunction
2018-06-01 13:46:22 -04:00
augroup fugitive_blame
autocmd !
2019-02-25 17:10:54 -05:00
autocmd FileType fugitiveblame setlocal nomodeline | if len ( s :Dir ( ) ) | let &l :keywordprg = s :Keywordprg ( ) | endif
2018-07-25 00:29:03 -04:00
autocmd User Fugitive
2018-07-27 08:54:18 -04:00
\ if get ( b :, 'fugitive_type' ) = ~ # '^\%(file\|blob\|blame\)$' | | filereadable ( @%) |
2019-07-08 09:55:25 -04:00
\ exe "command! -buffer -bar -bang -range=-1 -nargs=* Gblame :execute s:BlameCommand(<line1>,<line2>,+'<range>',<count>,<bang>0,'<mods>',<q-reg>,<q-args>,[<f-args>])" |
2018-07-25 00:29:03 -04:00
\ endif
2018-06-01 13:46:22 -04:00
autocmd ColorScheme , GUIEnter * call s :RehighlightBlame ( )
autocmd BufWinLeave * execute getwinvar ( + bufwinnr ( + expand ( '<abuf>' ) ) , 'fugitive_leave' )
augroup END
function ! s :linechars ( pattern ) abort
let chars = strlen ( s :gsub ( matchstr ( getline ( '.' ) , a :pattern ) , '.' , '.' ) )
if exists ( '*synconcealed' ) && &conceallevel > 1
for col in range ( 1 , chars )
let chars - = synconcealed ( line ( '.' ) , col ) [0 ]
endfor
endif
return chars
endfunction
2019-03-15 20:18:03 -04:00
function ! s :BlameCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
2018-06-01 13:46:22 -04:00
if exists ( 'b:fugitive_blamed_bufnr' )
return 'bdelete'
endif
try
2018-08-13 00:08:59 -04:00
if empty ( s :Relative ( '/' ) )
2018-06-01 13:46:22 -04:00
call s :throw ( 'file or blob required' )
endif
2019-07-08 09:11:18 -04:00
if filter ( copy ( a :args ) , 'v:val !~# "^-"' ) ! = []
call s :throw ( "'-' required for all options" )
elseif filter ( copy ( a :args ) , 'v:val !~# "^\\%(--abbrev=\\d*\\|--relative-date\\|--first-parent\\|--root\\|--show-name\\|-\\%([ltfnsew]\\|[MC]\\d*\\)\\+\\)$"' ) ! = []
2018-06-01 13:46:22 -04:00
call s :throw ( 'unsupported option' )
endif
2018-07-25 00:29:03 -04:00
let cmd = ['--no-pager' , 'blame' , '--show-number' ]
2019-07-08 09:55:25 -04:00
if a :count > 0
let cmd + = ['-L' , ( a :line1 ? a :line1 : line ( '.' ) ) . ',' . ( a :line1 ? a :line1 : line ( '.' ) ) ]
2018-07-25 00:29:03 -04:00
endif
let cmd + = a :args
2018-07-24 01:27:55 -04:00
if s :DirCommitFile ( @%) [1 ] = ~ # '\D\|..'
let cmd + = [s :DirCommitFile ( @%) [1 ]]
2018-06-01 13:46:22 -04:00
else
let cmd + = ['--contents' , '-' ]
endif
2018-08-31 15:36:44 -04:00
let cmd + = ['--' , expand ( '%:p' ) ]
let basecmd = escape ( fugitive #Prepare ( cmd ) , '!#%' )
2019-07-09 10:08:01 -04:00
let error = tempname ( )
let temp = error .'.fugitiveblame'
if &shell = ~ # 'csh'
silent ! execute '%write !(' .basecmd .' > ' .temp .') >& ' .error
else
silent ! execute '%write !' .basecmd .' > ' .temp .' 2> ' .error
endif
2019-01-23 14:42:51 -05:00
try
2018-07-25 00:29:03 -04:00
if v :shell_error
call s :throw ( join ( readfile ( error ) , "\n" ) )
2018-06-01 13:46:22 -04:00
endif
2019-07-08 09:55:25 -04:00
if a :count > 0
let edit = s :Mods ( a :mods ) . get ( ['edit' , 'split' , 'pedit' ], a :count - ( a :line1 ? a :line1 : 1 ) , 'split' )
2018-07-25 00:29:03 -04:00
return s :BlameCommit ( edit , get ( readfile ( temp ) , 0 , '' ) )
2018-06-01 13:46:22 -04:00
else
for winnr in range ( winnr ( '$' ) , 1 , -1 )
call setwinvar ( winnr , '&scrollbind' , 0 )
if exists ( '+cursorbind' )
call setwinvar ( winnr , '&cursorbind' , 0 )
endif
if getbufvar ( winbufnr ( winnr ) , 'fugitive_blamed_bufnr' )
execute winbufnr ( winnr ) .'bdelete'
endif
endfor
let bufnr = bufnr ( '' )
let restore = 'call setwinvar(bufwinnr(' .bufnr .'),"&scrollbind",0)'
if exists ( '+cursorbind' )
let restore .= '|call setwinvar(bufwinnr(' .bufnr .'),"&cursorbind",0)'
endif
if &l :wrap
let restore .= '|call setwinvar(bufwinnr(' .bufnr .'),"&wrap",1)'
endif
if &l :foldenable
let restore .= '|call setwinvar(bufwinnr(' .bufnr .'),"&foldenable",1)'
endif
setlocal scrollbind nowrap nofoldenable
if exists ( '+cursorbind' )
setlocal cursorbind
endif
let top = line ( 'w0' ) + &scrolloff
let current = line ( '.' )
2018-08-18 23:12:09 -04:00
let temp = s :Resolve ( temp )
2019-02-25 17:10:54 -05:00
let s :temp_files [s :cpath ( temp ) ] = { 'dir' : s :Dir ( ) , 'filetype' : 'fugitiveblame' , 'args' : cmd , 'bufnr' : bufnr }
2019-07-11 17:33:21 -04:00
exe 'keepalt' ( a :bang ? 'split' : 'leftabove vsplit' ) s :fnameescape ( temp )
2018-06-01 13:46:22 -04:00
let b :fugitive_blamed_bufnr = bufnr
2018-07-18 19:28:45 -04:00
let b :fugitive_type = 'blame'
2018-06-01 13:46:22 -04:00
let w :fugitive_leave = restore
let b :fugitive_blame_arguments = join ( a :args , ' ' )
execute top
normal ! zt
execute current
if exists ( '+cursorbind' )
setlocal cursorbind
endif
2018-06-06 20:13:59 -04:00
setlocal nomodified nomodifiable nonumber scrollbind nowrap foldcolumn = 0 nofoldenable winfixwidth filetype = fugitiveblame buftype = nowrite
2018-06-01 13:46:22 -04:00
if exists ( '+concealcursor' )
setlocal concealcursor = nc conceallevel = 2
endif
if exists ( '+relativenumber' )
setlocal norelativenumber
endif
execute "vertical resize " .( s :linechars ( '.\{-\}\ze\s\+\d\+)' ) + 1 )
2019-04-29 21:48:46 -04:00
let nowait = v :version > = 704 ? '<nowait>' : ''
2018-06-01 13:46:22 -04:00
nnoremap < buffer > < silent > < F1 > :help fugitive - :Gblame < CR >
nnoremap < buffer > < silent > g ? :help fugitive - :Gblame < CR >
2019-07-18 00:02:28 -04:00
if empty ( mapcheck ( 'q' , 'n' ) )
2019-07-07 14:26:03 -04:00
nnoremap < buffer > < silent > q :exe substitute ( bufwinnr ( b :fugitive_blamed_bufnr ) .' wincmd w<Bar>' .bufnr ( '' ) .'bdelete' , '^-1' , '' , '' ) < CR >
endif
exe 'nnoremap <buffer> <silent>' s :nowait "gq :exe substitute(bufwinnr(b:fugitive_blamed_bufnr).' wincmd w<Bar>'.bufnr('').'bdelete<Bar>if expand(''%:p'') =~# ''^fugitive:[\\/][\\/]''<Bar>Gedit<Bar>endif','^-1','','')<CR>"
2019-07-08 09:40:49 -04:00
nnoremap < buffer > < silent > < CR > :< C - U > exe < SID > BlameCommit ( "exe 'norm gq'<Bar>edit" ) < CR >
2018-06-01 13:46:22 -04:00
nnoremap < buffer > < silent > - :< C - U > exe < SID > BlameJump ( '' ) < CR >
nnoremap < buffer > < silent > P :< C - U > exe < SID > BlameJump ( '^' .v :count1 ) < CR >
nnoremap < buffer > < silent > ~ :< C - U > exe < SID > BlameJump ( '~' .v :count1 ) < CR >
nnoremap < buffer > < silent > i :< C - U > exe < SID > BlameCommit ( "exe 'norm q'<Bar>edit" ) < CR >
nnoremap < buffer > < silent > o :< C - U > exe < SID > BlameCommit ( ( &splitbelow ? "botright" : "topleft" ) ." split" ) < CR >
nnoremap < buffer > < silent > O :< C - U > exe < SID > BlameCommit ( "tabedit" ) < CR >
2019-03-15 20:18:03 -04:00
nnoremap < buffer > < silent > p :< C - U > exe < SID > Open ( ( &splitbelow ? "botright" : "topleft" ) .' pedit' , 0 , '' , matchstr ( getline ( '.' ) , '\x\+' ) , [matchstr ( getline ( '.' ) , '\x\+' ) ]) < CR >
2018-06-01 13:46:22 -04:00
nnoremap < buffer > < silent > A :< C - u > exe "vertical resize " .( < SID > linechars ( '.\{-\}\ze [0-9:/+-][0-9:/+ -]* \d\+)' ) + 1 + v :count ) < CR >
nnoremap < buffer > < silent > C :< C - u > exe "vertical resize " .( < SID > linechars ( '^\S\+' ) + 1 + v :count ) < CR >
nnoremap < buffer > < silent > D :< C - u > exe "vertical resize " .( < SID > linechars ( '.\{-\}\ze\d\ze\s\+\d\+)' ) + 1 - v :count ) < CR >
redraw
syncbind
endif
endtry
return ''
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
endfunction
2018-07-25 00:29:03 -04:00
function ! s :BlameCommit ( cmd , ...) abort
let line = a :0 ? a :1 : getline ( '.' )
2019-07-01 21:19:47 -04:00
if line = ~ # '^0\{4,\} '
2018-07-25 00:17:12 -04:00
return 'echoerr ' . string ( 'Not Committed Yet' )
endif
2019-03-15 20:18:03 -04:00
let cmd = s :Open ( a :cmd , 0 , '' , matchstr ( line , '\x\+' ) , [matchstr ( line , '\x\+' ) ])
2018-06-01 13:46:22 -04:00
if cmd = ~ # '^echoerr'
return cmd
endif
2018-07-25 00:17:12 -04:00
let lnum = matchstr ( line , ' \zs\d\+\ze\s\+[([:digit:]]' )
let path = matchstr ( line , '^\^\=\x\+\s\+\zs.\{-\}\ze\s*\d\+ ' )
2018-06-01 13:46:22 -04:00
if path = = # ''
2018-07-25 00:29:03 -04:00
let path = fugitive #Path ( a :0 ? @% : bufname ( b :fugitive_blamed_bufnr ) , '' )
2018-06-01 13:46:22 -04:00
endif
execute cmd
2018-07-25 00:29:03 -04:00
if a :cmd = = # 'pedit'
return ''
endif
2018-06-01 13:46:22 -04:00
if search ( '^diff .* b/\M' .escape ( path , '\' ) .'$' , 'W' )
call search ( '^+++' )
let head = line ( '.' )
while search ( '^@@ \|^diff ' ) && getline ( '.' ) = ~ # '^@@ '
let top = + matchstr ( getline ( '.' ) , ' +\zs\d\+' )
let len = + matchstr ( getline ( '.' ) , ' +\d\+,\zs\d\+' )
if lnum > = top && lnum < = top + len
let offset = lnum - top
if &scrolloff
+
normal ! zt
else
normal ! zt
+
endif
while offset > 0 && line ( '.' ) < line ( '$' )
+
if getline ( '.' ) = ~ # '^[ +]'
let offset - = 1
endif
endwhile
return 'normal! zv'
endif
endwhile
execute head
normal ! zt
endif
return ''
endfunction
function ! s :BlameJump ( suffix ) abort
let commit = matchstr ( getline ( '.' ) , '^\^\=\zs\x\+' )
2019-01-11 18:52:38 -05:00
let suffix = a :suffix
2018-06-01 13:46:22 -04:00
if commit = ~ # '^0\+$'
2019-02-22 19:13:39 -05:00
let commit = 'HEAD'
2019-01-11 18:52:38 -05:00
let suffix = ''
2018-06-01 13:46:22 -04:00
endif
let lnum = matchstr ( getline ( '.' ) , ' \zs\d\+\ze\s\+[([:digit:]]' )
let path = matchstr ( getline ( '.' ) , '^\^\=\x\+\s\+\zs.\{-\}\ze\s*\d\+ ' )
if path = = # ''
2018-07-22 13:57:28 -04:00
let path = fugitive #Path ( bufname ( b :fugitive_blamed_bufnr ) , '' )
2018-06-01 13:46:22 -04:00
endif
let args = b :fugitive_blame_arguments
let offset = line ( '.' ) - line ( 'w0' )
let bufnr = bufnr ( '%' )
let winnr = bufwinnr ( b :fugitive_blamed_bufnr )
if winnr > 0
exe winnr .'wincmd w'
endif
2019-01-11 18:52:38 -05:00
execute 'Gedit' s :fnameescape ( commit . suffix . ':' . path )
2018-06-01 13:46:22 -04:00
execute lnum
if winnr > 0
exe bufnr .'bdelete'
endif
if exists ( ':Gblame' )
execute 'Gblame ' .args
execute lnum
let delta = line ( '.' ) - line ( 'w0' ) - offset
if delta > 0
execute 'normal! ' .delta ."\<C-E>"
elseif delta < 0
execute 'normal! ' .( - delta ) ."\<C-Y>"
endif
syncbind
endif
return ''
endfunction
let s :hash_colors = {}
2019-07-07 13:59:44 -04:00
function ! fugitive #BlameSyntax ( ) abort
2018-06-01 13:46:22 -04:00
let conceal = has ( 'conceal' ) ? ' conceal' : ''
syn match FugitiveblameBoundary "^\^"
syn match FugitiveblameBlank "^\s\+\s\@=" nextgroup = FugitiveblameAnnotation , fugitiveblameOriginalFile , FugitiveblameOriginalLineNumber skipwhite
2019-07-01 21:19:47 -04:00
syn match FugitiveblameHash "\%(^\^\=\)\@<=\<\x\{7,\}\>" nextgroup = FugitiveblameAnnotation , FugitiveblameOriginalLineNumber , fugitiveblameOriginalFile skipwhite
syn match FugitiveblameUncommitted "\%(^\^\=\)\@<=\<0\{7,\}\>" nextgroup = FugitiveblameAnnotation , FugitiveblameOriginalLineNumber , fugitiveblameOriginalFile skipwhite
2018-06-01 13:46:22 -04:00
syn region FugitiveblameAnnotation matchgroup = FugitiveblameDelimiter start = "(" end = "\%( \d\+\)\@<=)" contained keepend oneline
syn match FugitiveblameTime "[0-9:/+-][0-9:/+ -]*[0-9:/+-]\%( \+\d\+)\)\@=" contained containedin = FugitiveblameAnnotation
2019-07-06 12:56:29 -04:00
exec 'syn match FugitiveblameLineNumber " *\d\+)\@=" contained containedin=FugitiveblameAnnotation' conceal
exec 'syn match FugitiveblameOriginalFile " \%(\f\+\D\@<=\|\D\@=\f\+\)\%(\%(\s\+\d\+\)\=\s\%((\|\s*\d\+)\)\)\@=" contained nextgroup=FugitiveblameOriginalLineNumber,FugitiveblameAnnotation skipwhite' conceal
exec 'syn match FugitiveblameOriginalLineNumber " *\d\+\%(\s(\)\@=" contained nextgroup=FugitiveblameAnnotation skipwhite' conceal
exec 'syn match FugitiveblameOriginalLineNumber " *\d\+\%(\s\+\d\+)\)\@=" contained nextgroup=FugitiveblameShort skipwhite' conceal
2018-06-01 13:46:22 -04:00
syn match FugitiveblameShort " \d\+)" contained contains = FugitiveblameLineNumber
syn match FugitiveblameNotCommittedYet "(\@<=Not Committed Yet\>" contained containedin = FugitiveblameAnnotation
2018-07-29 14:24:05 -04:00
hi def link FugitiveblameBoundary Keyword
hi def link FugitiveblameHash Identifier
hi def link FugitiveblameUncommitted Ignore
hi def link FugitiveblameTime PreProc
hi def link FugitiveblameLineNumber Number
hi def link FugitiveblameOriginalFile String
hi def link FugitiveblameOriginalLineNumber Float
hi def link FugitiveblameShort FugitiveblameDelimiter
hi def link FugitiveblameDelimiter Delimiter
hi def link FugitiveblameNotCommittedYet Comment
2019-07-07 13:38:35 -04:00
if ! get ( g :, 'fugitive_dynamic_colors' , 1 )
return
endif
2018-07-29 14:24:05 -04:00
let seen = {}
for lnum in range ( 1 , line ( '$' ) )
let hash = matchstr ( getline ( lnum ) , '^\^\=\zs\x\{6\}' )
if hash = = # '' | | hash = = # '000000' | | has_key ( seen , hash )
continue
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
let seen [hash ] = 1
if &t_Co > 16 && get ( g :, 'CSApprox_loaded' ) && ! empty ( findfile ( 'autoload/csapprox/per_component.vim' , escape ( &rtp , ' ' ) ) )
\ && empty ( get ( s :hash_colors , hash ) )
let [s , r , g , b ; __ ] = map ( matchlist ( hash , '\(\x\x\)\(\x\x\)\(\x\x\)' ) , 'str2nr(v:val,16)' )
let color = csapprox #per_component #Approximate ( r , g , b )
if color = = 16 && &background = = # 'dark'
let color = 8
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
let s :hash_colors [hash ] = ' ctermfg=' .color
2018-06-01 13:46:22 -04:00
else
2018-07-29 14:24:05 -04:00
let s :hash_colors [hash ] = ''
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
exe 'syn match FugitiveblameHash' .hash .' "\%(^\^\=\)\@<=' .hash .'\x\{1,34\}\>" nextgroup=FugitiveblameAnnotation,FugitiveblameOriginalLineNumber,fugitiveblameOriginalFile skipwhite'
endfor
call s :RehighlightBlame ( )
2018-06-01 13:46:22 -04:00
endfunction
2018-07-29 14:24:05 -04:00
function ! s :RehighlightBlame ( ) abort
for [hash , cterm ] in items ( s :hash_colors )
if ! empty ( cterm ) | | has ( 'gui_running' ) | | has ( 'termguicolors' ) && &termguicolors
exe 'hi FugitiveblameHash' .hash .' guifg=#' .hash .get ( s :hash_colors , hash , '' )
else
exe 'hi link FugitiveblameHash' .hash .' Identifier'
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
endfor
2018-06-01 13:46:22 -04:00
endfunction
2018-08-06 02:01:32 -04:00
" Section: :Gbrowse
2018-07-29 14:24:05 -04:00
2019-07-22 14:33:06 -04:00
call s :command ( "-bar -bang -range=-1 -nargs=* -complete=customlist,fugitive#CompleteObject Gbrowse" , "Browse" )
2018-07-29 14:24:05 -04:00
let s :redirects = {}
2019-03-15 20:18:03 -04:00
function ! s :BrowseCommand ( line1 , line2 , range , count , bang , mods , reg , arg , args ) abort
2019-02-25 17:10:54 -05:00
let dir = s :Dir ( )
2018-06-01 13:46:22 -04:00
try
2018-07-29 14:24:05 -04:00
let validremote = '\.\|\.\=/.*\|[[:alnum:]_-]\+\%(://.\{-\}\)\='
2019-07-22 14:33:06 -04:00
if a :args = = # ['-' ]
if a :count > = 0
return 'echoerr ' . string ( 'fugitive: ''-'' no longer required to get persistent URL if range given' )
else
return 'echoerr ' . string ( 'fugitive: use :0Gbrowse instead of :Gbrowse -' )
endif
elseif len ( a :args )
2019-03-15 20:18:03 -04:00
let remote = matchstr ( join ( a :args , ' ' ) , '@\zs\%(' .validremote .'\)$' )
let rev = substitute ( join ( a :args , ' ' ) , '@\%(' .validremote .'\)$' , '' , '' )
2018-07-29 14:24:05 -04:00
else
let remote = ''
let rev = ''
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
if rev = = # ''
2018-07-31 15:16:03 -04:00
let rev = s :DirRev ( @%) [1 ]
2018-07-31 02:42:14 -04:00
endif
if rev = ~ # '^:\=$'
2018-08-13 00:08:59 -04:00
let expanded = s :Relative ( )
2018-06-01 13:46:22 -04:00
else
2018-07-29 14:24:05 -04:00
let expanded = s :Expand ( rev )
2018-07-22 22:37:28 -04:00
endif
2019-02-25 17:10:54 -05:00
let cdir = fugitive #CommonDir ( s :Dir ( ) )
for subdir in ['tags/' , 'heads/' , 'remotes/' ]
if expanded ! ~ # '^[./]' && filereadable ( cdir . '/refs/' . subdir . expanded )
let expanded = '.git/refs/' . subdir . expanded
2018-07-31 15:16:03 -04:00
endif
endfor
2018-07-29 14:24:05 -04:00
let full = s :Generate ( expanded )
let commit = ''
if full = ~ ? '^fugitive:'
2019-02-25 17:10:54 -05:00
let [pathdir , commit , path ] = s :DirCommitFile ( full )
2018-07-29 14:24:05 -04:00
if commit = ~ # '^:\=\d$'
let commit = ''
2018-07-22 22:37:28 -04:00
endif
2018-07-29 14:24:05 -04:00
if commit = ~ '..'
let type = s :TreeChomp ( 'cat-file' , '-t' , commit .s :sub ( path , '^/' , ':' ) )
let branch = matchstr ( expanded , '^[^:]*' )
else
let type = 'blob'
2018-07-22 22:37:28 -04:00
endif
2018-07-29 14:24:05 -04:00
let path = path [1 :-1 ]
2019-02-25 17:10:54 -05:00
elseif empty ( s :Tree ( dir ) )
let path = '.git/' . full [strlen ( dir ) + 1 :-1 ]
2018-07-29 14:24:05 -04:00
let type = ''
2018-07-22 22:37:28 -04:00
else
2019-02-25 17:10:54 -05:00
let path = full [strlen ( s :Tree ( dir ) ) + 1 :-1 ]
2018-07-29 14:24:05 -04:00
if path = ~ # '^\.git/'
let type = ''
elseif isdirectory ( full )
let type = 'tree'
else
let type = 'blob'
2018-06-01 13:46:22 -04:00
endif
2018-07-17 00:11:07 -04:00
endif
2018-07-29 14:24:05 -04:00
if type = = # 'tree' && ! empty ( path )
let path = s :sub ( path , '/\=$' , '/' )
2018-06-01 13:46:22 -04:00
endif
2019-02-25 17:10:54 -05:00
if path = ~ # '^\.git/.*HEAD$' && filereadable ( dir . '/' . path [5 :-1 ])
let body = readfile ( dir . '/' . path [5 :-1 ]) [0 ]
2019-07-01 21:19:47 -04:00
if body = ~ # '^\x\{40,\}$'
2018-07-29 14:24:05 -04:00
let commit = body
let type = 'commit'
let path = ''
elseif body = ~ # '^ref: refs/'
let path = '.git/' . matchstr ( body , 'ref: \zs.*' )
endif
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
let merge = ''
if path = ~ # '^\.git/refs/remotes/.'
if empty ( remote )
let remote = matchstr ( path , '^\.git/refs/remotes/\zs[^/]\+' )
let branch = matchstr ( path , '^\.git/refs/remotes/[^/]\+/\zs.\+' )
else
let merge = matchstr ( path , '^\.git/refs/remotes/[^/]\+/\zs.\+' )
let path = '.git/refs/heads/' .merge
endif
elseif path = ~ # '^\.git/refs/heads/.'
let branch = path [16 :-1 ]
elseif ! exists ( 'branch' )
let branch = FugitiveHead ( )
endif
if ! empty ( branch )
let r = fugitive #Config ( 'branch.' .branch .'.remote' )
let m = fugitive #Config ( 'branch.' .branch .'.merge' ) [11 :-1 ]
if r = = # '.' && ! empty ( m )
let r2 = fugitive #Config ( 'branch.' .m .'.remote' )
if r2 ! ~ # '^\.\=$'
let r = r2
let m = fugitive #Config ( 'branch.' .m .'.merge' ) [11 :-1 ]
endif
endif
if empty ( remote )
let remote = r
endif
if r = = # '.' | | r = = # remote
let merge = m
if path = ~ # '^\.git/refs/heads/.'
let path = '.git/refs/heads/' .merge
endif
2018-06-01 13:46:22 -04:00
endif
endif
2018-07-31 17:26:39 -04:00
let line1 = a :count > 0 ? a :line1 : 0
let line2 = a :count > 0 ? a :count : 0
2018-07-29 14:24:05 -04:00
if empty ( commit ) && path ! ~ # '^\.git/'
2019-07-22 15:20:16 -04:00
if a :count < 0 && ! empty ( merge )
2018-07-29 14:24:05 -04:00
let commit = merge
else
2018-07-31 17:26:39 -04:00
let commit = ''
if len ( merge )
2018-09-19 17:37:06 -04:00
let owner = s :Owner ( @%)
2019-07-01 00:48:18 -04:00
let [commit , exec_error ] = s :ChompError ( ['merge-base' , 'refs/remotes/' . remote . '/' . merge , empty ( owner ) ? 'HEAD' : owner , '--' ])
if exec_error
2018-09-19 17:37:06 -04:00
let commit = ''
endif
2019-07-22 15:20:16 -04:00
if a :count > 0 && empty ( a :args ) && commit = ~ # '^\x\{40,\}$'
2018-08-18 23:12:09 -04:00
let blame_list = tempname ( )
2018-07-31 17:26:39 -04:00
call writefile ( [commit , '' ], blame_list , 'b' )
2018-08-18 23:12:09 -04:00
let blame_in = tempname ( )
2018-08-01 14:14:25 -04:00
silent exe '%write' blame_in
2019-07-01 00:48:18 -04:00
let [blame , exec_error ] = s :LinesError ( ['blame' , '--contents' , blame_in , '-L' , a :line1 .',' .a :count , '-S' , blame_list , '-s' , '--show-number' , './' . path ])
if ! exec_error
2018-07-31 17:26:39 -04:00
let blame_regex = '^\^\x\+\s\+\zs\d\+\ze\s'
if get ( blame , 0 ) = ~ # blame_regex && get ( blame , -1 ) = ~ # blame_regex
let line1 = + matchstr ( blame [0 ], blame_regex )
let line2 = + matchstr ( blame [-1 ], blame_regex )
else
call s :throw ( "Can't browse to uncommitted change" )
endif
endif
endif
endif
endif
if empty ( commit )
2019-06-02 16:19:09 -04:00
let commit = readfile ( fugitive #Find ( '.git/HEAD' , dir ) , '' , 1 ) [0 ]
2018-07-29 14:24:05 -04:00
endif
2018-07-31 17:26:39 -04:00
let i = 0
while commit = ~ # '^ref: ' && i < 10
let commit = readfile ( cdir . '/' . commit [5 :-1 ], '' , 1 ) [0 ]
let i - = 1
endwhile
2018-07-21 16:52:06 -04:00
endif
2018-07-29 14:24:05 -04:00
if empty ( remote )
let remote = '.'
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
let raw = fugitive #RemoteUrl ( remote )
if empty ( raw )
let raw = remote
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
if raw = ~ # '^https\=://' && s :executable ( 'curl' )
if ! has_key ( s :redirects , raw )
let s :redirects [raw ] = matchstr ( system ( 'curl -I ' .
\ s :shellesc ( raw . '/info/refs?service=git-upload-pack' ) ) ,
\ 'Location: \zs\S\+\ze/info/refs?' )
endif
if len ( s :redirects [raw ])
let raw = s :redirects [raw ]
endif
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
let opts = {
2019-02-25 17:10:54 -05:00
\ 'dir' : dir ,
\ 'repo' : fugitive #repo ( dir ) ,
2018-07-29 14:24:05 -04:00
\ 'remote' : raw ,
\ 'revision' : 'No longer provided' ,
\ 'commit' : commit ,
\ 'path' : path ,
\ 'type' : type ,
2018-07-31 17:26:39 -04:00
\ 'line1' : line1 ,
\ 'line2' : line2 }
2018-06-01 13:46:22 -04:00
2018-09-13 10:51:08 -04:00
let url = ''
2018-07-29 14:24:05 -04:00
for Handler in get ( g :, 'fugitive_browse_handlers' , [])
let url = call ( Handler , [copy ( opts ) ])
if ! empty ( url )
break
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
endfor
if empty ( url )
2019-07-16 16:36:45 -04:00
call s :throw ( "No Gbrowse handler installed for '" .raw ."'" )
2018-07-29 14:24:05 -04:00
endif
let url = s :gsub ( url , '[ <>]' , '\="%".printf("%02X",char2nr(submatch(0)))' )
if a :bang
if has ( 'clipboard' )
let @+ = url
2018-07-17 00:11:07 -04:00
endif
2018-07-29 14:24:05 -04:00
return 'echomsg ' .string ( url )
elseif exists ( ':Browse' ) = = 2
return 'echomsg ' .string ( url ) .'|Browse ' .url
else
if ! exists ( 'g:loaded_netrw' )
runtime ! autoload /netrw .vim
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
if exists ( '*netrw#BrowseX' )
return 'echomsg ' .string ( url ) .'|call netrw#BrowseX(' .string ( url ) .', 0)'
2018-06-01 13:46:22 -04:00
else
2018-07-29 14:24:05 -04:00
return 'echomsg ' .string ( url ) .'|call netrw#NetrwBrowseX(' .string ( url ) .', 0)'
2018-06-01 13:46:22 -04:00
endif
2018-07-29 14:24:05 -04:00
endif
2018-06-01 13:46:22 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-06-01 13:46:22 -04:00
endtry
endfunction
" Section: Go to file
nnoremap < SID > : :< C - U > < C - R > = v :count ? v :count : '' < CR >
2018-06-20 14:24:35 -04:00
function ! fugitive #MapCfile ( ...) abort
2018-07-26 21:53:43 -04:00
exe 'cnoremap <buffer> <expr> <Plug><cfile>' ( a :0 ? a :1 : 'fugitive#Cfile()' )
let b :undo_ftplugin = get ( b :, 'undo_ftplugin' , 'exe' ) . '|sil! exe "cunmap <buffer> <Plug><cfile>"'
2018-06-01 13:46:22 -04:00
if ! exists ( 'g:fugitive_no_maps' )
2018-07-26 21:53:43 -04:00
call s :map ( 'n' , 'gf' , '<SID>:find <Plug><cfile><CR>' , '<silent><unique>' , 1 )
call s :map ( 'n' , '<C-W>f' , '<SID>:sfind <Plug><cfile><CR>' , '<silent><unique>' , 1 )
call s :map ( 'n' , '<C-W><C-F>' , '<SID>:sfind <Plug><cfile><CR>' , '<silent><unique>' , 1 )
call s :map ( 'n' , '<C-W>gf' , '<SID>:tabfind <Plug><cfile><CR>' , '<silent><unique>' , 1 )
call s :map ( 'c' , '<C-R><C-F>' , '<Plug><cfile>' , '<silent><unique>' , 1 )
2018-06-01 13:46:22 -04:00
endif
endfunction
2018-07-19 00:34:04 -04:00
function ! s :ContainingCommit ( ) abort
2018-08-07 15:33:19 -04:00
let commit = s :Owner ( @%)
return empty ( commit ) ? 'HEAD' : commit
2018-07-19 00:34:04 -04:00
endfunction
2019-07-09 04:28:19 -04:00
function ! s :SquashArgument ( ...) abort
2018-12-25 14:07:17 -05:00
if &filetype = = 'fugitive'
2019-07-09 04:28:19 -04:00
let commit = matchstr ( getline ( '.' ) , '^\%(\%(\x\x\x\)\@!\l\+\s\+\)\=\zs[0-9a-f]\{4,\}\ze ' )
2018-12-25 14:07:17 -05:00
else
2019-07-09 04:28:19 -04:00
let commit = s :Owner ( @%)
2018-12-25 14:07:17 -05:00
endif
2019-07-09 04:28:19 -04:00
return len ( commit ) && a :0 ? printf ( a :1 , commit ) : commit
endfunction
function ! s :RebaseArgument ( ) abort
return s :SquashArgument ( ' %s^' )
2018-12-19 16:39:55 -05:00
endfunction
2018-07-24 20:44:50 -04:00
function ! s :NavigateUp ( count ) abort
2018-07-31 02:42:14 -04:00
let rev = substitute ( s :DirRev ( @%) [1 ], '^$' , ':' , 'g' )
2018-07-21 20:37:56 -04:00
let c = a :count
while c
2018-07-29 14:22:33 -04:00
if rev = ~ # ':.*/.'
let rev = matchstr ( rev , '.*\ze/.\+' , '' )
elseif rev = ~ # '.:.'
let rev = matchstr ( rev , '^.[^:]*:' )
2018-07-21 20:37:56 -04:00
elseif rev = ~ # '^:'
2018-07-29 14:22:33 -04:00
let rev = 'HEAD^{}'
2018-07-21 20:37:56 -04:00
elseif rev = ~ # ':$'
let rev = rev [0 :-2 ]
else
return rev .'~' .c
endif
let c - = 1
endwhile
return rev
endfunction
2018-06-20 14:24:35 -04:00
function ! fugitive #MapJumps ( ...) abort
2018-06-01 13:46:22 -04:00
if ! &modifiable
2019-06-25 04:02:02 -04:00
if get ( b :, 'fugitive_type' , '' ) = = # 'blob'
2019-07-14 14:13:31 -04:00
nnoremap < buffer > < silent > < CR > :< C - U > 0 , 1 Gblame< CR >
2019-07-08 09:55:25 -04:00
nnoremap < buffer > < silent > o :< C - U > 0 , 2 Gblame< CR >
2018-12-25 19:35:13 -05:00
nnoremap < buffer > < silent > S :< C - U > echoerr 'Use gO' < CR >
2019-07-08 09:55:25 -04:00
nnoremap < buffer > < silent > gO :< C - U > vertical 0 , 2 Gblame< CR >
nnoremap < buffer > < silent > O :< C - U > tab 0 , 2 Gblame< CR >
nnoremap < buffer > < silent > p :< C - U > 0 , 3 Gblame< CR >
2018-07-25 00:29:03 -04:00
else
2019-07-14 14:13:31 -04:00
nnoremap < buffer > < silent > < CR > :< C - U > exe < SID > GF ( "edit" ) < CR >
2018-07-25 00:29:03 -04:00
nnoremap < buffer > < silent > o :< C - U > exe < SID > GF ( "split" ) < CR >
2018-12-25 19:35:13 -05:00
nnoremap < buffer > < silent > S :< C - U > echoerr 'Use gO' < CR >
nnoremap < buffer > < silent > gO :< C - U > exe < SID > GF ( "vsplit" ) < CR >
2018-07-25 00:29:03 -04:00
nnoremap < buffer > < silent > O :< C - U > exe < SID > GF ( "tabedit" ) < CR >
nnoremap < buffer > < silent > p :< C - U > exe < SID > GF ( "pedit" ) < CR >
2019-07-09 03:51:27 -04:00
if exists ( ':CtrlP' ) && get ( g :, 'ctrl_p_map' ) = ~ ? '^<c-p>$'
nnoremap < buffer > < silent > < C - P > :< C - U > execute line ( '.' ) = = 1 ? 'CtrlP ' . fnameescape ( < SID > Tree ( ) ) : < SID > PreviousFileHunk ( v :count1 ) < CR >
else
nnoremap < buffer > < silent > < C - P > :< C - U > execute < SID > PreviousFileHunk ( v :count1 ) < CR >
endif
nnoremap < buffer > < silent > < C - N > :< C - U > execute < SID > NextFileHunk ( v :count1 ) < CR >
nnoremap < buffer > < silent > ( :< C - U > execute < SID > PreviousFileHunk ( v :count1 ) < CR >
nnoremap < buffer > < silent > ) :< C - U > execute < SID > NextFileHunk ( v :count1 ) < CR >
nnoremap < buffer > < silent > K :< C - U > execute < SID > PreviousFileHunk ( v :count1 ) < CR >
nnoremap < buffer > < silent > J :< C - U > execute < SID > NextFileHunk ( v :count1 ) < CR >
2018-07-25 00:29:03 -04:00
endif
2019-07-07 14:26:03 -04:00
exe "nnoremap <buffer> <silent>" s :nowait "- :<C-U>exe 'Gedit ' . <SID>fnameescape(<SID>NavigateUp(v:count1))<Bar> if getline(1) =~# '^tree \x\{40,\}$' && empty(getline(2))<Bar>call search('^'.escape(expand('#:t'),'.*[]~\').'/\=$','wc')<Bar>endif<CR>"
2018-07-27 13:37:44 -04:00
nnoremap < buffer > < silent > P :< C - U > exe 'Gedit ' . < SID > fnameescape ( < SID > ContainingCommit ( ) .'^' .v :count1 .< SID > Relative ( ':' ) ) < CR >
nnoremap < buffer > < silent > ~ :< C - U > exe 'Gedit ' . < SID > fnameescape ( < SID > ContainingCommit ( ) .'~' .v :count1 .< SID > Relative ( ':' ) ) < CR >
nnoremap < buffer > < silent > C :< C - U > exe 'Gedit ' . < SID > fnameescape ( < SID > ContainingCommit ( ) ) < CR >
2019-07-14 18:02:00 -04:00
nnoremap < buffer > < silent > co :< C - U > echoerr 'Use CTRL-W sC' < CR >
2019-01-01 17:10:05 -05:00
nnoremap < buffer > < silent > cp :< C - U > echoerr 'Use gC' < CR >
nnoremap < buffer > < silent > gC :< C - U > exe 'Gpedit ' . < SID > fnameescape ( < SID > ContainingCommit ( ) ) < CR >
nnoremap < buffer > < silent > gc :< C - U > exe 'Gpedit ' . < SID > fnameescape ( < SID > ContainingCommit ( ) ) < CR >
2019-07-23 20:42:34 -04:00
nnoremap < buffer > < silent > gi :< C - U > exe 'Gsplit' ( v :count ? '.gitignore' : '.git/info/exclude' ) < CR >
2019-07-21 12:24:55 -04:00
nnoremap < buffer > c - :Gcommit -
nnoremap < buffer > c < Space > :Gcommit < Space >
nnoremap < buffer > c < CR > :Gcommit < CR >
2019-02-10 19:00:40 -05:00
nnoremap < buffer > < silent > ca :< C - U > Gcommit - - amend < CR >
nnoremap < buffer > < silent > cc :< C - U > Gcommit < CR >
nnoremap < buffer > < silent > ce :< C - U > Gcommit - - amend - - no - edit < CR >
nnoremap < buffer > < silent > cw :< C - U > Gcommit - - amend - - only < CR >
nnoremap < buffer > < silent > cva :< C - U > Gcommit - v - - amend < CR >
nnoremap < buffer > < silent > cvc :< C - U > Gcommit - v < CR >
2018-12-19 16:39:55 -05:00
nnoremap < buffer > cf :< C - U > Gcommit - - fixup = < C - R > = < SID > SquashArgument ( ) < CR >
2019-07-09 04:28:19 -04:00
nnoremap < buffer > cF :< C - U > < Bar > Grebase - - autosquash < C - R > = < SID > RebaseArgument ( ) < CR > < Home > Gcommit - - fixup = < C - R > = < SID > SquashArgument ( ) < CR >
2018-12-19 16:39:55 -05:00
nnoremap < buffer > cs :< C - U > Gcommit - - squash = < C - R > = < SID > SquashArgument ( ) < CR >
2019-07-09 04:28:19 -04:00
nnoremap < buffer > cS :< C - U > < Bar > Grebase - - autosquash < C - R > = < SID > RebaseArgument ( ) < CR > < Home > Gcommit - - squash = < C - R > = < SID > SquashArgument ( ) < CR >
2018-12-19 16:39:55 -05:00
nnoremap < buffer > cA :< C - U > Gcommit - - edit - - squash = < C - R > = < SID > SquashArgument ( ) < CR >
2019-07-21 12:24:55 -04:00
nnoremap < buffer > < silent > c ? :< C - U > help fugitive_c < CR >
2019-07-22 14:34:54 -04:00
nnoremap < buffer > cz < Space > :G stash < Space >
nnoremap < buffer > cz < CR > :G stash < CR >
nnoremap < buffer > < silent > cza :< C - U > exe < SID > EchoExec ( ['stash' , 'apply' , '--quiet' , 'stash@{' . v :count . '}' ]) < CR >
nnoremap < buffer > < silent > czp :< C - U > exe < SID > EchoExec ( ['stash' , 'pop' , '--quiet' , 'stash@{' . v :count . '}' ]) < CR >
nnoremap < buffer > < silent > czv :< C - U > exe 'Gedit' fugitive #RevParse ( 'stash@{' . v :count . '}' ) < CR >
nnoremap < buffer > < silent > czw :< C - U > exe < SID > EchoExec ( ['stash' , '--keep-index' ] + ( v :count > 1 ? ['--all' ] : v :count ? ['--include-untracked' ] : []) ) < CR >
nnoremap < buffer > < silent > czz :< C - U > exe < SID > EchoExec ( ['stash' ] + ( v :count > 1 ? ['--all' ] : v :count ? ['--include-untracked' ] : []) ) < CR >
nnoremap < buffer > < silent > cz ? :< C - U > help fugitive_cz < CR >
2019-07-09 04:28:19 -04:00
nnoremap < buffer > r - :Grebase -
nnoremap < buffer > r < Space > :Grebase < Space >
nnoremap < buffer > r < CR > :Grebase < CR >
nnoremap < buffer > < silent > ri :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < CR >
nnoremap < buffer > < silent > rf :< C - U > Grebase - - autosquash < C - R > = < SID > RebaseArgument ( ) < CR > < CR >
2018-12-30 19:38:48 -05:00
nnoremap < buffer > < silent > ru :< C - U > Grebase - - interactive @{upstream }< CR >
nnoremap < buffer > < silent > rp :< C - U > Grebase - - interactive @{push }< CR >
2019-07-09 04:28:19 -04:00
nnoremap < buffer > < silent > rw :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < Bar > s /^pick/ reword /e < CR >
nnoremap < buffer > < silent > rm :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < Bar > s /^pick/ edit /e < CR >
nnoremap < buffer > < silent > rd :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < Bar > s /^pick/ drop /e < CR >
nnoremap < buffer > < silent > rk :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < Bar > s /^pick/ drop /e < CR >
nnoremap < buffer > < silent > rx :< C - U > Grebase - - interactive < C - R > = < SID > RebaseArgument ( ) < CR > < Bar > s /^pick/ drop /e < CR >
2018-12-30 19:38:48 -05:00
nnoremap < buffer > < silent > rr :< C - U > Grebase - - continue < CR >
nnoremap < buffer > < silent > rs :< C - U > Grebase - - skip < CR >
nnoremap < buffer > < silent > re :< C - U > Grebase - - edit - todo < CR >
nnoremap < buffer > < silent > ra :< C - U > Grebase - - abort < CR >
2019-07-21 12:24:55 -04:00
nnoremap < buffer > < silent > r ? :< C - U > help fugitive_r < CR >
2019-02-18 17:28:49 -05:00
nnoremap < buffer > . :< C - U > < C - R > = < SID > fnameescape ( fugitive #Real ( @%) ) < CR > < Home >
xnoremap < buffer > . :< C - U > < C - R > = < SID > fnameescape ( fugitive #Real ( @%) ) < CR > < Home >
2019-07-21 12:24:55 -04:00
nnoremap < buffer > < silent > g ? :< C - U > help fugitive - mappings < CR >
2018-06-01 13:46:22 -04:00
endif
endfunction
2019-02-25 17:10:30 -05:00
function ! s :StatusCfile ( ...) abort
2019-02-25 17:10:54 -05:00
let tree = s :Tree ( )
2018-12-25 14:07:17 -05:00
let lead = s :cpath ( tree , getcwd ( ) ) ? './' : tree . '/'
2019-01-03 00:19:21 -05:00
let info = s :StageInfo ( )
2018-12-25 14:07:17 -05:00
let line = getline ( '.' )
2019-06-27 23:30:19 -04:00
if len ( info .sigil ) && len ( info .section ) && len ( info .paths )
2019-01-03 00:19:21 -05:00
if info .section = = # 'Unstaged' && info .sigil ! = # '-'
2019-07-05 00:55:57 -04:00
return [lead . info .relative [0 ], info .offset , 'normal!zv' ]
2019-01-03 00:19:21 -05:00
elseif info .section = = # 'Staged' && info .sigil = = # '-'
2019-07-05 00:55:57 -04:00
return ['@:' . info .relative [0 ], info .offset , 'normal!zv' ]
2019-01-03 00:19:21 -05:00
else
2019-07-05 00:55:57 -04:00
return [':0:' . info .relative [0 ], info .offset , 'normal!zv' ]
2019-01-03 00:19:21 -05:00
endif
2019-06-27 23:30:19 -04:00
elseif len ( info .paths )
2019-07-05 00:55:57 -04:00
return [lead . info .relative [0 ]]
2019-01-03 00:19:21 -05:00
elseif len ( info .commit )
return [info .commit ]
2018-12-25 14:07:17 -05:00
elseif line = ~ # '^\%(Head\|Merge\|Rebase\|Upstream\|Pull\|Push\): '
2019-01-03 00:19:21 -05:00
return [matchstr ( line , ' \zs.*' ) ]
2018-12-25 14:07:17 -05:00
else
2019-01-03 00:19:21 -05:00
return ['' ]
2018-12-25 14:07:17 -05:00
endif
endfunction
function ! fugitive #StatusCfile ( ) abort
2019-02-25 17:10:30 -05:00
let file = s :Generate ( s :StatusCfile ( ) [0 ])
2018-12-25 14:07:17 -05:00
return empty ( file ) ? fugitive #Cfile ( ) : s :fnameescape ( file )
endfunction
function ! s :MessageCfile ( ...) abort
2019-02-25 17:10:54 -05:00
let tree = s :Tree ( )
2018-08-10 19:20:12 -04:00
let lead = s :cpath ( tree , getcwd ( ) ) ? './' : tree . '/'
2018-07-26 21:53:43 -04:00
if getline ( '.' ) = ~ # '^.\=\trenamed:.* -> '
2018-08-10 19:20:12 -04:00
return lead . matchstr ( getline ( '.' ) , ' -> \zs.*' )
2018-07-26 21:53:43 -04:00
elseif getline ( '.' ) = ~ # '^.\=\t\(\k\| \)\+\p\?: *.'
2018-08-10 19:20:12 -04:00
return lead . matchstr ( getline ( '.' ) , ': *\zs.\{-\}\ze\%( ([^()[:digit:]]\+)\)\=$' )
2018-07-26 21:53:43 -04:00
elseif getline ( '.' ) = ~ # '^.\=\t.'
2018-08-10 19:20:12 -04:00
return lead . matchstr ( getline ( '.' ) , '\t\zs.*' )
2018-07-26 21:53:43 -04:00
elseif getline ( '.' ) = ~ # ': needs merge$'
2018-08-10 19:20:12 -04:00
return lead . matchstr ( getline ( '.' ) , '.*\ze: needs merge$' )
2018-07-26 21:53:43 -04:00
elseif getline ( '.' ) = ~ # '^\%(. \)\=Not currently on any branch.$'
return 'HEAD'
elseif getline ( '.' ) = ~ # '^\%(. \)\=On branch '
return 'refs/heads/' .getline ( '.' ) [12 :]
elseif getline ( '.' ) = ~ # "^\\%(. \\)\=Your branch .*'"
return matchstr ( getline ( '.' ) , "'\\zs\\S\\+\\ze'" )
else
return ''
endif
endfunction
2018-12-25 14:07:17 -05:00
function ! fugitive #MessageCfile ( ) abort
let file = s :Generate ( s :MessageCfile ( ) )
2018-08-29 17:15:05 -04:00
return empty ( file ) ? fugitive #Cfile ( ) : s :fnameescape ( file )
2018-07-26 21:53:43 -04:00
endfunction
2018-07-25 16:08:59 -04:00
function ! s :cfile ( ) abort
2018-06-01 13:46:22 -04:00
try
2018-07-24 20:44:06 -04:00
let myhash = s :DirRev ( @%) [1 ]
if len ( myhash )
try
2018-07-28 20:24:15 -04:00
let myhash = fugitive #RevParse ( myhash )
2018-07-24 20:44:06 -04:00
catch /^fugitive:/
let myhash = ''
endtry
2018-07-19 00:34:04 -04:00
endif
2018-07-24 20:44:06 -04:00
if empty ( myhash ) && getline ( 1 ) = ~ # '^\%(commit\|tag\) \w'
2018-06-01 13:46:22 -04:00
let myhash = matchstr ( getline ( 1 ) , '^\w\+ \zs\S\+' )
endif
2018-07-29 14:22:33 -04:00
let showtree = ( getline ( 1 ) = ~ # '^tree ' && getline ( 2 ) = = "" )
let treebase = substitute ( s :DirCommitFile ( @%) [1 ], '^\d$' , ':&' , '' ) . ':' .
\ s :Relative ( '' ) . ( s :Relative ( '' ) = ~ # '^$\|/$' ? '' : '/' )
2019-07-01 21:19:47 -04:00
if getline ( '.' ) = ~ # '^\d\{6\} \l\{3,8\} \x\{40,\}\t'
2018-07-24 20:44:06 -04:00
return [treebase . s :sub ( matchstr ( getline ( '.' ) , '\t\zs.*' ) , '/$' , '' ) ]
2018-07-29 14:22:33 -04:00
elseif showtree
2018-07-24 20:44:06 -04:00
return [treebase . s :sub ( getline ( '.' ) , '/$' , '' ) ]
2018-06-01 13:46:22 -04:00
else
let dcmds = []
" Index
2019-07-01 21:19:47 -04:00
if getline ( '.' ) = ~ # '^\d\{6\} \x\{40,\} \d\t'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-06-01 13:46:22 -04:00
let file = ':' .s :sub ( matchstr ( getline ( '.' ) , '\d\t.*' ) , '\t' , ':' )
return [file ]
endif
if getline ( '.' ) = ~ # '^ref: '
let ref = strpart ( getline ( '.' ) , 5 )
2019-07-01 21:19:47 -04:00
elseif getline ( '.' ) = ~ # '^commit \x\{40,\}\>'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-06-01 13:46:22 -04:00
return [ref ]
2019-07-01 21:19:47 -04:00
elseif getline ( '.' ) = ~ # '^parent \x\{40,\}\>'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-06-01 13:46:22 -04:00
let line = line ( '.' )
let parent = 0
while getline ( line ) = ~ # '^parent '
let parent + = 1
let line - = 1
endwhile
return [ref ]
2019-07-01 21:19:47 -04:00
elseif getline ( '.' ) = ~ # '^tree \x\{40,\}$'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-07-28 20:24:15 -04:00
if len ( myhash ) && fugitive #RevParse ( myhash .':' ) = = # ref
2018-06-01 13:46:22 -04:00
let ref = myhash .':'
endif
return [ref ]
2019-07-01 21:19:47 -04:00
elseif getline ( '.' ) = ~ # '^object \x\{40,\}$' && getline ( line ( '.' ) + 1 ) = ~ '^type \%(commit\|tree\|blob\)$'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-06-01 13:46:22 -04:00
let type = matchstr ( getline ( line ( '.' ) + 1 ) , 'type \zs.*' )
elseif getline ( '.' ) = ~ # '^\l\{3,8\} ' .myhash .'$'
2018-07-31 02:42:14 -04:00
let ref = s :DirRev ( @%) [1 ]
2018-06-01 13:46:22 -04:00
2019-07-01 21:19:47 -04:00
elseif getline ( '.' ) = ~ # '^\l\{3,8\} \x\{40,\}\>'
let ref = matchstr ( getline ( '.' ) , '\x\{40,\}' )
2018-06-01 13:46:22 -04:00
echoerr "warning: unknown context " .matchstr ( getline ( '.' ) , '^\l*' )
elseif getline ( '.' ) = ~ # '^[+-]\{3\} [abciow12]\=/'
let ref = getline ( '.' ) [4 :]
2018-06-17 17:23:59 -04:00
elseif getline ( '.' ) = ~ # '^[+-]' && search ( '^@@ -\d\+\%(,\d\+\)\= +\d\+' , 'bnW' )
2018-06-01 13:46:22 -04:00
let type = getline ( '.' ) [0 ]
let lnum = line ( '.' ) - 1
let offset = 0
2018-06-17 17:23:59 -04:00
while getline ( lnum ) ! ~ # '^@@ -\d\+\%(,\d\+\)\= +\d\+'
2018-06-01 13:46:22 -04:00
if getline ( lnum ) = ~ # '^[ ' .type .']'
let offset + = 1
endif
let lnum - = 1
endwhile
let offset + = matchstr ( getline ( lnum ) , type .'\zs\d\+' )
let ref = getline ( search ( '^' .type .'\{3\} [abciow12]/' , 'bnW' ) ) [4 :-1 ]
let dcmds = [offset , 'normal!zv' ]
elseif getline ( '.' ) = ~ # '^rename from '
let ref = 'a/' .getline ( '.' ) [12 :]
elseif getline ( '.' ) = ~ # '^rename to '
let ref = 'b/' .getline ( '.' ) [10 :]
2018-06-17 17:23:59 -04:00
elseif getline ( '.' ) = ~ # '^@@ -\d\+\%(,\d\+\)\= +\d\+'
2018-06-01 13:46:22 -04:00
let diff = getline ( search ( '^diff --git \%([abciow12]/.*\|/dev/null\) \%([abciow12]/.*\|/dev/null\)' , 'bcnW' ) )
let offset = matchstr ( getline ( '.' ) , '+\zs\d\+' )
let dref = matchstr ( diff , '\Cdiff --git \zs\%([abciow12]/.*\|/dev/null\)\ze \%([abciow12]/.*\|/dev/null\)' )
let ref = matchstr ( diff , '\Cdiff --git \%([abciow12]/.*\|/dev/null\) \zs\%([abciow12]/.*\|/dev/null\)' )
2019-07-07 10:34:04 -04:00
let dcmd = 'Gdiffsplit! +' .offset
2018-06-01 13:46:22 -04:00
elseif getline ( '.' ) = ~ # '^diff --git \%([abciow12]/.*\|/dev/null\) \%([abciow12]/.*\|/dev/null\)'
let dref = matchstr ( getline ( '.' ) , '\Cdiff --git \zs\%([abciow12]/.*\|/dev/null\)\ze \%([abciow12]/.*\|/dev/null\)' )
let ref = matchstr ( getline ( '.' ) , '\Cdiff --git \%([abciow12]/.*\|/dev/null\) \zs\%([abciow12]/.*\|/dev/null\)' )
2019-07-07 10:34:04 -04:00
let dcmd = 'Gdiffsplit!'
2018-06-01 13:46:22 -04:00
elseif getline ( '.' ) = ~ # '^index ' && getline ( line ( '.' ) -1 ) = ~ # '^diff --git \%([abciow12]/.*\|/dev/null\) \%([abciow12]/.*\|/dev/null\)'
let line = getline ( line ( '.' ) -1 )
let dref = matchstr ( line , '\Cdiff --git \zs\%([abciow12]/.*\|/dev/null\)\ze \%([abciow12]/.*\|/dev/null\)' )
let ref = matchstr ( line , '\Cdiff --git \%([abciow12]/.*\|/dev/null\) \zs\%([abciow12]/.*\|/dev/null\)' )
2019-07-07 10:34:04 -04:00
let dcmd = 'Gdiffsplit!'
2018-06-01 13:46:22 -04:00
2019-07-01 21:19:47 -04:00
elseif line ( '$' ) = = 1 && getline ( '.' ) = ~ '^\x\{40,\}$'
2018-06-01 13:46:22 -04:00
let ref = getline ( '.' )
2019-07-01 21:19:47 -04:00
elseif expand ( '<cword>' ) = ~ # '^\x\{7,\}\>'
2018-06-01 13:46:22 -04:00
return [expand ( '<cword>' ) ]
else
let ref = ''
endif
let prefixes = {
\ '1' : '' ,
\ '2' : '' ,
\ 'b' : ':0:' ,
\ 'i' : ':0:' ,
\ 'o' : '' ,
\ 'w' : '' }
if len ( myhash )
let prefixes .a = myhash .'^:'
let prefixes .b = myhash .':'
endif
let ref = substitute ( ref , '^\(\w\)/' , '\=get(prefixes, submatch(1), "HEAD:")' , '' )
if exists ( 'dref' )
let dref = substitute ( dref , '^\(\w\)/' , '\=get(prefixes, submatch(1), "HEAD:")' , '' )
endif
if ref = = # '/dev/null'
" Empty blob
let ref = 'e69de29bb2d1d6434b8b29ae775ad8c2e48c5391'
endif
if exists ( 'dref' )
return [ref , dcmd . ' ' . s :fnameescape ( dref ) ] + dcmds
elseif ref ! = ""
return [ref ] + dcmds
endif
endif
return []
endtry
endfunction
function ! s :GF ( mode ) abort
2018-07-25 16:08:59 -04:00
try
2019-02-25 17:10:30 -05:00
let results = &filetype = = # 'fugitive' ? s :StatusCfile ( ) : &filetype = = # 'gitcommit' ? [s :MessageCfile ( ) ] : s :cfile ( )
2018-07-25 16:08:59 -04:00
catch /^fugitive:/
2019-06-30 21:25:15 -04:00
return 'echoerr ' . string ( v :exception )
2018-07-25 16:08:59 -04:00
endtry
2018-07-30 00:47:26 -04:00
if len ( results ) > 1
return 'G' . a :mode .
\ ' +' . escape ( join ( results [1 :-1 ], '|' ) , '| ' ) . ' ' .
\ s :fnameescape ( results [0 ])
2018-12-31 01:52:03 -05:00
elseif len ( results ) && len ( results [0 ])
2018-07-30 00:47:26 -04:00
return 'G' . a :mode . ' ' . s :fnameescape ( results [0 ])
2018-06-01 13:46:22 -04:00
else
return ''
endif
endfunction
2018-07-25 16:08:59 -04:00
function ! fugitive #Cfile ( ) abort
2018-06-01 13:46:22 -04:00
let pre = ''
2018-07-25 16:08:59 -04:00
let results = s :cfile ( )
if empty ( results )
2018-06-01 13:46:22 -04:00
let cfile = expand ( '<cfile>' )
if &includeexpr = ~ # '\<v:fname\>'
sandbox let cfile = eval ( substitute ( &includeexpr , '\C\<v:fname\>' , '\=string(cfile)' , 'g' ) )
endif
2018-07-25 16:08:59 -04:00
return cfile
elseif len ( results ) > 1
let pre = '+' . join ( map ( results [1 :-1 ], 'escape(v:val, " ")' ) , '\|' ) . ' '
2018-06-01 13:46:22 -04:00
endif
2018-07-25 16:08:59 -04:00
return pre . s :fnameescape ( s :Generate ( results [0 ]) )
2018-06-01 13:46:22 -04:00
endfunction
" Section: Statusline
function ! fugitive #Statusline ( ...) abort
2019-02-25 17:10:54 -05:00
if empty ( s :Dir ( ) )
2018-06-01 13:46:22 -04:00
return ''
endif
let status = ''
2018-07-24 01:27:55 -04:00
let commit = s :DirCommitFile ( @%) [1 ]
if len ( commit )
2018-09-24 17:04:06 -04:00
let status .= ':' . commit [0 :6 ]
2018-06-01 13:46:22 -04:00
endif
let status .= '(' .FugitiveHead ( 7 ) .')'
2018-07-24 19:54:24 -04:00
return '[Git' .status .']'
2018-06-01 13:46:22 -04:00
endfunction
function ! fugitive #statusline ( ...) abort
return fugitive #Statusline ( )
endfunction
function ! fugitive #head ( ...) abort
2019-02-25 17:10:54 -05:00
if empty ( s :Dir ( ) )
2018-06-01 13:46:22 -04:00
return ''
endif
2018-08-06 01:36:37 -04:00
return fugitive #Head ( a :0 ? a :1 : 0 )
2018-06-01 13:46:22 -04:00
endfunction
" Section: Folding
function ! fugitive #Foldtext ( ) abort
if &foldmethod ! = # 'syntax'
return foldtext ( )
endif
let line_foldstart = getline ( v :foldstart )
if line_foldstart = ~ # '^diff '
let [add , remove ] = [-1 , -1 ]
let filename = ''
for lnum in range ( v :foldstart , v :foldend )
let line = getline ( lnum )
if filename = = # '' && line = ~ # '^[+-]\{3\} [abciow12]/'
let filename = line [6 :-1 ]
endif
if line = ~ # '^+'
let add + = 1
elseif line = ~ # '^-'
let remove + = 1
elseif line = ~ # '^Binary '
let binary = 1
endif
endfor
if filename = = # ''
let filename = matchstr ( line_foldstart , '^diff .\{-\} [abciow12]/\zs.*\ze [abciow12]/' )
endif
if filename = = # ''
let filename = line_foldstart [5 :-1 ]
endif
if exists ( 'binary' )
return 'Binary: ' .filename
else
return ( add < 10 &&remove < 100 ?' ' :'' ) . add . '+ ' . ( remove < 10 &&add < 100 ?' ' :'' ) . remove . '- ' . filename
endif
elseif line_foldstart = ~ # '^# .*:$'
let lines = getline ( v :foldstart , v :foldend )
call filter ( lines , 'v:val =~# "^#\t"' )
cal map ( lines , "s:sub(v:val, '^#\t%(modified: +|renamed: +)=', '')" )
cal map ( lines , "s:sub(v:val, '^([[:alpha:] ]+): +(.*)', '\\2 (\\1)')" )
return line_foldstart .' ' .join ( lines , ', ' )
endif
return foldtext ( )
endfunction
function ! fugitive #foldtext ( ) abort
return fugitive #Foldtext ( )
endfunction
augroup fugitive_folding
autocmd !
autocmd User Fugitive
\ if &filetype = ~ # '^git\%(commit\)\=$' && &foldtext = = # 'foldtext()' |
\ set foldtext = fugitive #Foldtext ( ) |
\ endif
augroup END
2018-07-29 14:24:05 -04:00
" Section: Initialization
function ! fugitive #Init ( ) abort
if exists ( '#User#FugitiveBoot' )
try
let [save_mls , &modelines ] = [&mls , 0 ]
doautocmd User FugitiveBoot
finally
let &mls = save_mls
endtry
endif
if ! exists ( 'g:fugitive_no_maps' )
2018-08-10 19:20:31 -04:00
call s :map ( 'c' , '<C-R><C-G>' , '<SID>fnameescape(fugitive#Object(@%))' , '<expr>' )
call s :map ( 'n' , 'y<C-G>' , ':<C-U>call setreg(v:register, fugitive#Object(@%))<CR>' , '<silent>' )
2018-07-29 14:24:05 -04:00
endif
if expand ( '%:p' ) = ~ # ':[\/][\/]'
let &l :path = s :sub ( &path , '^\.%(,|$)' , '' )
endif
2019-02-25 17:10:54 -05:00
let dir = s :Dir ( )
if stridx ( &tags , escape ( dir , ', ' ) ) = = -1
2019-06-02 16:19:09 -04:00
let actualdir = fugitive #Find ( '.git/' , dir )
if filereadable ( actualdir . 'tags' )
let &l :tags = escape ( actualdir . 'tags' , ', ' ) .',' .&tags
2018-07-29 14:24:05 -04:00
endif
2019-06-02 16:19:09 -04:00
if &filetype ! = # '' && filereadable ( actualdir . &filetype . '.tags' )
let &l :tags = escape ( actualdir . &filetype . '.tags' , ', ' ) .',' .&tags
2018-07-29 14:24:05 -04:00
endif
endif
try
let [save_mls , &modelines ] = [&mls , 0 ]
call s :define_commands ( )
doautocmd User Fugitive
finally
let &mls = save_mls
endtry
endfunction
function ! fugitive #is_git_dir ( path ) abort
return FugitiveIsGitDir ( a :path )
endfunction
function ! fugitive #extract_git_dir ( path ) abort
return FugitiveExtractGitDir ( a :path )
endfunction
function ! fugitive #detect ( path ) abort
return FugitiveDetect ( a :path )
endfunction
2018-08-06 02:01:32 -04:00
" Section: End