-
Notifications
You must be signed in to change notification settings - Fork 59
/
gitv.vim
1090 lines (1039 loc) · 37.2 KB
/
gitv.vim
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
"AUTHOR: Greg Sexton <gregsexton@gmail.com>
"WEBSITE: http://www.gregsexton.org/portfolio/gitv/
"LICENSE: Same terms as Vim itself (see :help license).
"NOTES: Much of the credit for gitv goes to Tim Pope and the fugitive plugin
" where this plugin either uses functionality directly or was inspired heavily.
if exists("g:loaded_gitv") || v:version < 700
finish
endif
let g:loaded_gitv = 1
let s:savecpo = &cpo
set cpo&vim
"configurable options:
"g:Gitv_CommitStep - int
"g:Gitv_OpenHorizontal - {0,1,'AUTO'}
"g:Gitv_GitExecutable - string
"g:Gitv_WipeAllOnClose - int
"g:Gitv_WrapLines - {0,1}
"g:Gitv_TruncateCommitSubjects - {0,1}
"g:Gitv_OpenPreviewOnLaunch - {0,1}
"g:Gitv_PromptToDeleteMergeBranch - {0,1}
if !exists("g:Gitv_CommitStep")
let g:Gitv_CommitStep = &lines
endif
if !exists('g:Gitv_GitExecutable')
let g:Gitv_GitExecutable = 'git'
endif
if !exists('g:Gitv_WipeAllOnClose')
let g:Gitv_WipeAllOnClose = 0 "default for safety
endif
if !exists('g:Gitv_WrapLines')
let g:Gitv_WrapLines = 0
endif
if !exists('g:Gitv_TruncateCommitSubjects')
let g:Gitv_TruncateCommitSubjects = 0
endif
if !exists('g:Gitv_OpenPreviewOnLaunch')
let g:Gitv_OpenPreviewOnLaunch = 1
endif
if !exists('g:Gitv_PromptToDeleteMergeBranch')
let g:Gitv_PromptToDeleteMergeBranch = 0
endif
"this counts up each time gitv is opened to ensure a unique file name
let g:Gitv_InstanceCounter = 0
let s:localUncommitedMsg = 'Local uncommitted changes, not checked in to index.'
let s:localCommitedMsg = 'Local changes checked in to index but not committed.'
command! -nargs=* -range -bang Gitv call s:OpenGitv(shellescape(<q-args>), <bang>0, <line1>, <line2>)
cabbrev gitv <c-r>=(getcmdtype()==':' && getcmdpos()==1 ? 'Gitv' : 'gitv')<CR>
"Public API:"{{{
fu! Gitv_OpenGitCommand(command, windowCmd, ...) "{{{
"returns 1 if command succeeded with output
"optional arg is a flag, if present runs command verbatim
"this function is not limited to script scope as is useful for running other commands.
"e.g call Gitv_OpenGitCommand("diff --no-color", 'vnew') is useful for getting an overall git diff.
let [result, finalCmd] = s:RunGitCommand(a:command, a:0)
if type(result) == type(0)
return 0
endif
if type(result) == type("") && result == ""
echom "No output."
return 0
else
if a:windowCmd == ''
silent setlocal modifiable
silent setlocal noreadonly
1,$ d
else
let goBackTo = winnr()
let dir = s:GetRepoDir()
let workingDir = fnamemodify(dir,':h')
let cd = exists('*haslocaldir') && haslocaldir() ? 'lcd ' : 'cd '
let bufferDir = getcwd()
let tempSplitBelow = &splitbelow
let tempSplitRight = &splitright
try
set nosplitbelow
set nosplitright
execute cd.'`=workingDir`'
exec a:windowCmd
let newWindow = winnr()
finally
exec goBackTo . 'wincmd w'
execute cd.'`=bufferDir`'
if exists('newWindow')
exec newWindow . 'wincmd w'
endif
exec 'set '. (tempSplitBelow ? '' : 'no') . 'splitbelow'
exec 'set '. (tempSplitRight ? '' : 'no') . 'splitright'
endtry
endif
if !(&modifiable)
return 0
endif
let b:Git_Command = finalCmd
silent setlocal ft=git
silent setlocal buftype=nofile
silent setlocal nobuflisted
silent setlocal noswapfile
silent setlocal bufhidden=wipe
silent setlocal nonumber
if exists('+relativenumber')
silent setlocal norelativenumber
endif
if g:Gitv_WrapLines
silent setlocal wrap
else
silent setlocal nowrap
endif
silent setlocal fdm=syntax
nnoremap <buffer> <silent> q :q!<CR>
nnoremap <buffer> <silent> u :if exists('b:Git_Command')<bar>call Gitv_OpenGitCommand(b:Git_Command, '', 1)<bar>endif<cr>
call append(0, split(result, '\n')) "system converts eols to \n regardless of os.
silent setlocal nomodifiable
silent setlocal readonly
1
return 1
endif
endf "}}} }}}
"General Git Functions: "{{{
fu! s:RunGitCommand(command, verbatim) "{{{
"if verbatim returns result of system command, else
"switches to the buffer repository before running the command and switches back after.
if !a:verbatim
"switches to the buffer repository before running the command and switches back after.
let cmd = g:Gitv_GitExecutable.' --git-dir="{DIR}" '. a:command
let [result, finalCmd] = s:RunCommandRelativeToGitRepo(cmd)
else
let result = system(a:command)
let finalCmd = a:command
endif
return [result, finalCmd]
endfu "}}}
fu! s:RunCommandRelativeToGitRepo(command) "{{{
"this runs the command verbatim but first changing to the root git dir
"it also replaces any occurance of '{DIR}' in the command with the root git dir.
let dir = s:GetRepoDir()
let workingDir = fnamemodify(dir,':h')
if workingDir == ''
return 0
endif
let cd = exists('*haslocaldir') && haslocaldir() ? 'lcd ' : 'cd '
let bufferDir = getcwd()
try
execute cd.'`=workingDir`'
let finalCmd = substitute(a:command, '{DIR}', dir, 'g')
let result = system(finalCmd)
finally
execute cd.'`=bufferDir`'
endtry
return [result, finalCmd]
endfu "}}}
fu! s:GetRepoDir() "{{{
let dir = fugitive#buffer().repo().dir()
if dir == ''
echom "No git repository could be found."
endif
return dir
endfu "}}} }}}
"Open And Update Gitv:"{{{
fu! s:OpenGitv(extraArgs, fileMode, rangeStart, rangeEnd) "{{{
let sanatizedArgs = a:extraArgs == "''" ? '' : a:extraArgs
let sanatizedArgs = sanatizedArgs == '""' ? '' : sanatizedArgs
let g:Gitv_InstanceCounter += 1
if !s:IsCompatible() "this outputs specific errors
return
endif
try
if a:fileMode
call s:OpenFileMode(sanatizedArgs, a:rangeStart, a:rangeEnd)
else
call s:OpenBrowserMode(sanatizedArgs)
endif
catch /not a git repository/
echom 'Not a git repository.'
return
endtry
endf "}}}
fu! s:IsCompatible() "{{{
if !exists('g:loaded_fugitive')
echoerr "gitv requires the fugitive plugin to be installed."
endif
return exists('g:loaded_fugitive')
endfu "}}}
fu! s:OpenBrowserMode(extraArgs) "{{{
"this throws an exception if not a git repo which is caught immediately
let fubuffer = fugitive#buffer()
silent Gtabedit HEAD
if s:IsHorizontal()
let direction = 'new gitv'.'-'.g:Gitv_InstanceCounter
else
let direction = 'vnew gitv'.'-'.g:Gitv_InstanceCounter
endif
if !s:LoadGitv(direction, 0, g:Gitv_CommitStep, a:extraArgs, '', [])
return 0
endif
call s:SetupBufferCommands(0)
"open the first commit
if g:Gitv_OpenPreviewOnLaunch
silent call s:OpenGitvCommit("Gedit", 0)
else
call s:MoveIntoPreviewAndExecute('bdelete', 0)
endif
endf "}}}
fu! s:OpenFileMode(extraArgs, rangeStart, rangeEnd) "{{{
let relPath = fugitive#buffer().path()
pclose!
let range = a:rangeStart != a:rangeEnd ? s:GetRegexRange(a:rangeStart, a:rangeEnd) : []
if !s:LoadGitv(&previewheight . "new gitv".'-'.g:Gitv_InstanceCounter, 0, g:Gitv_CommitStep, a:extraArgs, relPath, range)
return 0
endif
set previewwindow
set winfixheight
let b:Gitv_FileMode = 1
let b:Gitv_FileModeRelPath = relPath
let b:Gitv_FileModeRange = range
call s:SetupBufferCommands(1)
endf "}}}
fu! s:LoadGitv(direction, reload, commitCount, extraArgs, filePath, range) "{{{
if a:reload
let jumpTo = line('.') "this is for repositioning the cursor after reload
endif
"precondition: a:range should be of the form [a, b] or []
" where a,b are integers && a<b
if !s:ConstructAndExecuteCmd(a:direction, a:commitCount, a:extraArgs, a:filePath, a:range)
return 0
endif
call s:SetupBuffer(a:commitCount, a:extraArgs, a:filePath, a:range)
exec exists('jumpTo') ? jumpTo : '1'
call s:SetupMappings() "redefines some of the mappings made by Gitv_OpenGitCommand
call s:ResizeWindow(a:filePath!='')
echom "Loaded up to " . a:commitCount . " commits."
return 1
endf "}}}
fu! s:ConstructAndExecuteCmd(direction, commitCount, extraArgs, filePath, range) "{{{
if a:range == [] "no range, setup and execute the command
let cmd = "log " . a:extraArgs
let cmd .= " --no-color --decorate=full --pretty=format:\"%d %s__SEP__%ar__SEP__%an__SEP__[%h]\" --graph -"
let cmd .= a:commitCount
if a:filePath != ''
let cmd .= ' -- ' . a:filePath
endif
silent let res = Gitv_OpenGitCommand(cmd, a:direction)
return res
else "range applies, setup a trivial buffer and then modify it with custom logic
let cmd = "--version" "arbitrary command intended to setup the buffer
"and act as a check everything is ok
silent let res = Gitv_OpenGitCommand(cmd, a:direction)
if !res | return res | endif
silent let res = s:ConstructRangeBuffer(a:commitCount, a:extraArgs, a:filePath, a:range)
return res
endif
endf "}}}
"Range Commands: {{{
fu! s:ConstructRangeBuffer(commitCount, extraArgs, filePath, range) "{{{
silent setlocal modifiable
silent setlocal noreadonly
%delete
"necessary as order is important; can't just iterate over keys(slices)
let hashCmd = "log " . a:extraArgs
let hashCmd .= " --no-color --pretty=format:%H -".a:commitCount." -- " . a:filePath
let [result, cmd] = s:RunGitCommand(hashCmd, 0)
let hashes = split(result, '\n')
let slices = s:GetFileSlices(a:range, a:filePath, a:commitCount, a:extraArgs)
if s:AllSlicesBlank(slices)
call append(0, 'No commits matched the range. Try altering the search.')
else
let modHashes = []
for i in range(len(hashes))
let hash1 = hashes[i]
let hash2 = get(hashes, i+1, "")
if (hash2 == "" && has_key(slices, hash1)) || s:CompareFileAtCommits(slices, hash1, hash2)
let modHashes = add(modHashes, hash1)
endif
endfor
let output = s:GetFinalOutputForHashes(modHashes)
call append(0, output)
endif
silent setlocal nomodifiable
silent setlocal readonly
return 1
endf "}}}
fu! s:GetFileSlices(range, filePath, commitCount, extraArgs) "{{{
"this returns a dictionary, indexed by commit sha, of all slices of range lines of filePath
"NOTE: this could get massive for a large repo and large range
let range = a:range[0] . ',' . a:range[1]
let range = substitute(range, "'", "'\\\\''", 'g') "force unix style escaping even on windows
let git = g:Gitv_GitExecutable
let sliceCmd = "for hash in `".git." --git-dir=\"{DIR}\" log " . a:extraArgs
let sliceCmd .= " --no-color --pretty=format:%H -".a:commitCount."-- " . a:filePath . '`; '
let sliceCmd .= "do "
let sliceCmd .= 'echo "****${hash}"; '
let sliceCmd .= git." --git-dir=\"{DIR}\" --no-pager blame -s -L '" . range . "' ${hash} " . a:filePath . "; "
let sliceCmd .= "done"
let finalCmd = "bash -c " . shellescape(sliceCmd)
let [result, cmd] = s:RunCommandRelativeToGitRepo(finalCmd)
let slicesLst = split(result, '\(^\|\n\)\zs\*\{4}')
let slices = {}
for slice in slicesLst
let key = matchstr(slice, '^.\{-}\ze\n')
let val = matchstr(slice, '\n\zs.*')
if val !~? '^fatal: .*$'
"remove the commit sha and line number to stop them affecting the comparisons
let lines = split(val, '\n')
call map(lines, "matchstr(v:val, '\\x\\{-} \\d\\+) \\zs.*')")
let finalVal = join(lines)
let slices[key] = finalVal
endif
endfor
return slices
endfu "}}}
fu! s:AllSlicesBlank(slices) "{{{
for i in keys(a:slices)
if a:slices[i] != ''
return 0
endif
endfor
return 1
endfu "}}}
fu! s:CompareFileAtCommits(slices, c1sha, c2sha) "{{{
"returns 1 if lineRange for filePath in commits: c1sha and c2sha are different
"else returns 0
if has_key(a:slices, a:c1sha) && !has_key(a:slices, a:c2sha)
return 1
endif
if has_key(a:slices, a:c1sha) && has_key(a:slices, a:c2sha)
return a:slices[a:c1sha] != a:slices[a:c2sha]
else
return 0
endif
endfu "}}}
fu! s:GetFinalOutputForHashes(hashes) "{{{
if len(a:hashes) > 0
let git = g:Gitv_GitExecutable
let cmd = 'for hash in ' . join(a:hashes, " ") . '; '
let cmd .= "do "
let cmd .= git.' --git-dir="{DIR}" log --no-color --decorate=full --pretty=format:"%d %s__SEP__%ar__SEP__%an__SEP__[%h]%n" --graph -1 ${hash}; '
let cmd .= 'done'
let finalCmd = "bash -c " . shellescape(cmd)
let [result, cmd] = s:RunCommandRelativeToGitRepo(finalCmd)
return split(result, '\n')
else
return ""
endif
endfu "}}}
fu! s:GetRegexRange(rangeStart, rangeEnd) "{{{
let rangeS = getline(a:rangeStart)
let rangeS = escape(rangeS, '.^$*\/[]')
let rangeS = matchstr(rangeS, '\v^\s*\zs.{-}\ze\s*$') "trim whitespace
let rangeE = getline(a:rangeEnd)
let rangeE = escape(rangeE, '.^$*\/[]')
let rangeE = matchstr(rangeE, '\v^\s*\zs.{-}\ze\s*$') "trim whitespace
let rangeS = rangeS =~ '^\s*$' ? '^[:blank:]*$' : rangeS
let rangeE = rangeE =~ '^\s*$' ? '^[:blank:]*$' : rangeE
return ['/'.rangeS.'/', '/'.rangeE.'/']
endfu "}}} }}}
fu! s:SetupBuffer(commitCount, extraArgs, filePath, range) "{{{
silent set filetype=gitv
let b:Gitv_CommitCount = a:commitCount
let b:Gitv_ExtraArgs = a:extraArgs
silent setlocal modifiable
silent setlocal noreadonly
silent %s/refs\/tags\//t:/ge
silent %s/refs\/remotes\//r:/ge
silent %s/refs\/heads\///ge
silent %call s:Align("__SEP__", a:filePath)
silent %s/\s\+$//e
call s:AddLoadMore()
call s:AddLocalNodes(a:filePath)
call s:AddFileModeSpecific(a:filePath, a:range, a:commitCount)
silent setlocal nomodifiable
silent setlocal readonly
silent setlocal cursorline
endf "}}}
fu! s:AddLocalNodes(filePath) "{{{
let suffix = a:filePath == '' ? '' : ' -- '.a:filePath
let gitCmd = "diff --no-color" . suffix
let [result, cmd] = s:RunGitCommand(gitCmd, 0)
let headLine = search('^\(\(|\|\/\|\\\|\*\)\s\?\)*\s*([^)]*HEAD', 'cnw')
let headLine = headLine == 0 ? 1 : headLine
if result != ""
let line = s:AlignWithRefs(headLine, s:localUncommitedMsg)
call append(headLine-1, substitute(line, '*', '=', ''))
let headLine += 1
endif
let gitCmd = "diff --no-color --cached" . suffix
let [result, cmd] = s:RunGitCommand(gitCmd, 0)
if result != ""
let line = s:AlignWithRefs(headLine, s:localCommitedMsg)
call append(headLine-1, substitute(line, '*', '+', ''))
endif
endfu
fu! s:AlignWithRefs(targetLine, targetStr)
"returns the targetStr prefixed with enough whitespace to align with
"the first asterisk on targetLine
if a:targetLine == 0
return '* '.a:targetStr
endif
let line = getline(a:targetLine)
let idx = stridx(line, '(')
if idx == -1
return '* '.a:targetStr
endif
return strpart(line, 0, idx) . a:targetStr
endfu "}}}
fu! s:AddLoadMore() "{{{
call append(line('$'), '-- Load More --')
endfu "}}}
fu! s:AddFileModeSpecific(filePath, range, commitCount) "{{{
if a:filePath != ''
call append(0, '-- ['.a:filePath.'] --')
if a:range != []
call append(1, '-- Showing (up to '.a:commitCount.') commits affecting lines in the range:')
call append(2, '-- ' . a:range[0])
call append(3, '-- ' . a:range[1])
endif
endif
endfu "}}}
fu! s:SetupMappings() "{{{
"operations
nnoremap <buffer> <silent> <cr> :call <SID>OpenGitvCommit("Gedit", 0)<cr>
nnoremap <buffer> <silent> o :call <SID>OpenGitvCommit("Gsplit", 0)<cr>
nnoremap <buffer> <silent> O :call <SID>OpenGitvCommit("Gtabedit", 0)<cr>
nnoremap <buffer> <silent> s :call <SID>OpenGitvCommit("Gvsplit", 0)<cr>
if(!exists("g:Gitv_DoNotMapCtrlKey"))
"fuzzyfinder style key mappings
nnoremap <buffer> <silent> <c-j> :call <SID>OpenGitvCommit("Gsplit", 0)<cr>
nnoremap <buffer> <silent> <c-k> :call <SID>OpenGitvCommit("Gvsplit", 0)<cr>
nnoremap <buffer> <silent> <c-l> :call <SID>OpenGitvCommit("Gtabedit", 0)<cr>
"force opening the fugitive buffer for the commit
nnoremap <buffer> <silent> <c-cr> :call <SID>OpenGitvCommit("Gedit", 1)<cr>
endif
"for the terminal
nnoremap <buffer> <silent> i :call <SID>OpenGitvCommit("Gedit", 1)<cr>
nnoremap <buffer> <silent> q :call <SID>CloseGitv()<cr>
nnoremap <buffer> <silent> u :call <SID>LoadGitv('', 1, b:Gitv_CommitCount, b:Gitv_ExtraArgs, <SID>GetRelativeFilePath(), <SID>GetRange())<cr>
nnoremap <buffer> <silent> co :call <SID>CheckOutGitvCommit()<cr>
nnoremap <buffer> <silent> D :call <SID>DiffGitvCommit()<cr>
vnoremap <buffer> <silent> D :call <SID>DiffGitvCommit()<cr>
nnoremap <buffer> <silent> S :call <SID>StatGitvCommit()<cr>
vnoremap <buffer> <silent> S :call <SID>StatGitvCommit()<cr>
vnoremap <buffer> <silent> m :call <SID>MergeBranches()<cr>
"movement
nnoremap <buffer> <silent> x :call <SID>JumpToBranch(0)<cr>
nnoremap <buffer> <silent> X :call <SID>JumpToBranch(1)<cr>
nnoremap <buffer> <silent> r :call <SID>JumpToRef(0)<cr>
nnoremap <buffer> <silent> R :call <SID>JumpToRef(1)<cr>
nnoremap <buffer> <silent> P :call <SID>JumpToHead()<cr>
"misc
nnoremap <buffer> git :Git
endf "}}}
fu! s:SetupBufferCommands(fileMode) "{{{
silent command! -buffer -nargs=* -complete=customlist,s:fugitive_GitComplete Git call <sid>MoveIntoPreviewAndExecute("unsilent Git <args>",1)|normal u
endfu "}}}
fu! s:ResizeWindow(fileMode) "{{{
if a:fileMode "window height determined by &previewheight
return
endif
if !s:IsHorizontal()
"size window based on longest line
let longest = max(map(range(1, line('$')), "virtcol([v:val, '$'])"))
if longest > &columns/2
"potentially auto change to horizontal
if s:AutoHorizontal()
"switching to horizontal
let b:Gitv_AutoHorizontal=1
wincmd K
call s:ResizeWindow(a:fileMode)
return
else
let longest = &columns/2
endif
endif
exec "vertical resize " . longest
else
"size window based on num lines
call s:ResizeHorizontal()
endif
endf "}}} }}}
"Utilities:"{{{
fu! s:GetGitvSha(lineNumber) "{{{
let l = getline(a:lineNumber)
let sha = matchstr(l, "\\[\\zs[0-9a-f]\\{7}\\ze\\]$")
return sha
endf "}}}
fu! s:GetGitvRefs(line) "{{{
let l = getline(a:line)
let refstr = matchstr(l, "^\\(\\(|\\|\\/\\|\\\\\\|\\*\\)\\s\\?\\)*\\s\\+(\\zs.\\{-}\\ze)")
let refs = split(refstr, ', ')
return refs
endf "}}}
fu! s:GetConfirmString(list, ...) "{{{ {{{
"returns a string to be used with confirm out of the choices in a:list
"any extra arguments are appended to the list of choices
"attempts to assign unique shortcut keys to every choice
"NOTE: choices must not be single letters and duplicates will be removed.
let totalList = a:list + a:000
let G = s:ConfirmStringBipartiteGraph(totalList)
let matches = s:MaxBipartiteMatching(G)
let choices = []
for choice in totalList
let shortcutChar = get(matches, choice, '')
if shortcutChar != ''
call add(choices, substitute(choice, '\c'.shortcutChar, '\&\0', ''))
endif
endfor
return join(choices, "\n")
endfu "}}}
"Max Bipartite Matching Functions: "{{{
let s:SOURCE_NODE = '__SOURCE__'
let s:SINK_NODE = '__SINK__'
fu! s:ConfirmStringBipartiteGraph(list) "{{{
let G = {}
let G[s:SOURCE_NODE] = {}
for word in a:list
let G[word] = {}
let G[s:SOURCE_NODE][word] = 1
for i in range(len(word))
let char = tolower(word[i])
let G[word][char] = 1
if !has_key(G, char) | let G[char] = {} | endif
let G[char][s:SINK_NODE] = 1
endfor
endfor
return G
endfu "}}}
fu! s:MaxBipartiteMatching(G) "{{{
let f = s:InitialiseFlow(a:G)
let path = s:GetPathInResidual(a:G, f, s:SOURCE_NODE, s:SINK_NODE)
while path != []
let pathCost = 100000 "max path cost should be 1 so this is effectively infinite
for [u, v] in s:Partition(path)
let pathCost = min([pathCost, s:GetEdge(a:G, u, v) - s:GetEdge(f, u, v)])
endfor
for [u, v] in s:Partition(path)
let f[u][v] = s:GetEdge(f, u, v) + pathCost
let f[v][u] = -s:GetEdge(f, u, v)
endfor
let path = s:GetPathInResidual(a:G, f, s:SOURCE_NODE, s:SINK_NODE)
endwhile
"f holds max flow for each edge, due to construction: include edge iff flow is 1
let returnDict = {}
for n1 in keys(f)
for [n2, val] in items(f[n1])
if val == 1
let returnDict[n1] = n2
endif
endfor
endfor
return returnDict
endfu "}}}
fu! s:InitialiseFlow(G) "{{{
let f = {}
for u in keys(a:G)
let f[u] = {}
for v in keys(a:G[u])
let f[u][v] = 0
if !has_key(f, v) | let f[v] = {} | endif
let f[v][u] = 0
endfor
endfor
return f
endfu "}}}
fu! s:GetPathInResidual(G, f, s, t) "{{{
"setup residual network
let Gf = deepcopy(a:f, 1)
for u in keys(a:f)
for v in keys(a:f[u])
let Gf[u][v] = s:GetEdge(a:G, u, v) - a:f[u][v]
endfor
endfor
return s:BFS(Gf, a:s, a:t)
endfu "}}}
fu! s:Partition(path) "{{{
"returns a list of [u,v] for the path
if len(a:path) < 2 | return a:path | endif
let parts = []
for i in range(len(a:path)-1)
let parts = add(parts, [a:path[i], a:path[i+1]])
endfor
return parts
endfu "}}}
fu! s:BFS(G, s, t) "{{{
"BFS for t from s -- returns path
return s:BFSHelp(a:G, a:s, a:t, [], [], {})
endfu "}}}
fu! s:BFSHelp(G, s, t, q, acc, visited) "{{{
if a:s == a:t
return a:acc + [a:t]
endif
let a:visited[a:s] = 1
let children = s:GetEdges(a:G, a:s)
call filter(children, '!get(a:visited, v:val, 0)')
if empty(a:q) && empty(children) | return [] | endif
let newq = empty(children) ? a:q : a:q + [[a:acc+[a:s], children]]
let newAcc = a:acc
if type(newq[0]) == type([])
let newAcc = newq[0][0]
let newq = newq[0][1] + newq[1:]
endif
return s:BFSHelp(a:G, newq[0], a:t, newq[1:], newAcc, a:visited)
endfu "}}}
fu! s:GetEdge(G, u, v) "{{{
"returns 0 if edge does not exist
return get(get(a:G, a:u, {}), a:v, 0)
endfu "}}}
fu! s:GetEdges(G, u) "{{{
let e = []
for k in keys(get(a:G, a:u, {}))
let e += a:G[a:u][k] > 0 ? [k] : []
endfor
return e
endfu "}}} }}} }}}
fu! s:RecordBufferExecAndWipe(cmd, wipe) "{{{
"this should be used to replace the buffer in a window
let buf = bufnr('%')
exec a:cmd
if a:wipe
"safe guard against wiping out buffer you're in
if bufnr('%') != buf && bufexists(buf)
" ignore errors from bdelete -- the user won't care if it's
" already deleted
exec 'silent! bdelete ' . buf
endif
endif
endfu "}}}
fu! s:MoveIntoPreviewAndExecute(cmd, tryToOpenNewWin) "{{{
if winnr("$") == 1 "is the only window
call s:AttemptToCreateAPreviewWindow(a:tryToOpenNewWin, a:cmd)
return
endif
let horiz = s:IsHorizontal()
let filem = s:IsFileMode()
let currentWin = winnr()
if horiz || filem
wincmd j
else
wincmd l
endif
if currentWin == winnr() "haven't moved anywhere
call s:AttemptToCreateAPreviewWindow(a:tryToOpenNewWin, a:cmd)
return
endif
silent exec a:cmd
if horiz || filem
wincmd k
else
wincmd h
endif
endfu "}}}
fu! s:AttemptToCreateAPreviewWindow(shouldAttempt, cmd) "{{{
if a:shouldAttempt
call s:CreateNewPreviewWindow()
call s:MoveIntoPreviewAndExecute(a:cmd, 0)
else
echoerr "No preview window detected."
endif
endfu "}}}
fu! s:CreateNewPreviewWindow() "{{{
"this should not be called by anything other than AttemptToCreateAPreviewWindow
let horiz = s:IsHorizontal()
let filem = s:IsFileMode()
if horiz || filem
Gsplit HEAD
else
Gvsplit HEAD
endif
wincmd x
endfu "}}}
fu! s:IsHorizontal() "{{{
"NOTE: this can only tell you if horizontal while cursor in browser window
let horizGlobal = exists('g:Gitv_OpenHorizontal') && g:Gitv_OpenHorizontal == 1
let horizBuffer = exists('b:Gitv_AutoHorizontal') && b:Gitv_AutoHorizontal == 1
return horizGlobal || horizBuffer
endf "}}}
fu! s:AutoHorizontal() "{{{
return exists('g:Gitv_OpenHorizontal') &&
\ type(g:Gitv_OpenHorizontal) == type("") &&
\ g:Gitv_OpenHorizontal ==? 'auto'
endf "}}}
fu! s:IsFileMode() "{{{
return exists('b:Gitv_FileMode') && b:Gitv_FileMode == 1
endf "}}}
fu! s:ResizeHorizontal() "{{{
let lines = line('$')
if lines > (&lines/2)-2
let lines = (&lines/2)-2
endif
exec "resize " . lines
endf "}}}
fu! s:GetRelativeFilePath() "{{{
return exists('b:Gitv_FileModeRelPath') ? b:Gitv_FileModeRelPath : ''
endf "}}}
fu! s:GetRange() "{{{
return exists('b:Gitv_FileModeRange') ? b:Gitv_FileModeRange : []
endfu "}}}
fu! s:SetRange(idx, value) "{{{
"idx - {0,1}, 0 for beginning, 1 for end.
let b:Gitv_FileModeRange[a:idx] = a:value
endfu "}}}
fu! s:FoldToRevealOnlyRange(rangeStart, rangeEnd) "{{{
setlocal foldmethod=manual
normal zE
let rangeS = '/'.escape(matchstr(a:rangeStart, '/\zs.*\ze/'), '~[]/\.^$*').'/'
let rangeE = '/'.escape(matchstr(a:rangeEnd, '/\zs.*\ze/'), '~[]/\.^$*').'/'
exec '1,'.rangeS.'-1fold'
exec rangeE.'+1,$fold'
endfu "}}}
fu! s:OpenRelativeFilePath(sha, geditForm) "{{{
let relPath = s:GetRelativeFilePath()
if relPath == ''
return
endif
let cmd = a:geditForm . " " . a:sha . ":" . relPath
let cmd = 'call s:RecordBufferExecAndWipe("'.cmd.'", '.(a:geditForm=='Gedit').')'
call s:MoveIntoPreviewAndExecute(cmd, 1)
let range = s:GetRange()
if range != []
let rangeS = escape(range[0], '"')
let rangeE = escape(range[1], '"')
call s:MoveIntoPreviewAndExecute('call s:FoldToRevealOnlyRange("'.rangeS.'", "'.rangeE.'")', 0)
endif
endf "}}} }}}
"Mapped Functions:"{{{
"Operations: "{{{
fu! s:OpenGitvCommit(geditForm, forceOpenFugitive) "{{{
if getline('.') == "-- Load More --"
call s:LoadGitv('', 1, b:Gitv_CommitCount+g:Gitv_CommitStep, b:Gitv_ExtraArgs, s:GetRelativeFilePath(), s:GetRange())
return
endif
if s:IsFileMode() && getline('.') =~ "^-- \\[.*\\] --$"
call s:OpenWorkingCopy(a:geditForm)
return
endif
if getline('.') =~ s:localUncommitedMsg.'$'
call s:OpenWorkingDiff(a:geditForm, 0)
return
endif
if getline('.') =~ s:localCommitedMsg.'$'
call s:OpenWorkingDiff(a:geditForm, 1)
return
endif
if s:IsFileMode() && getline('.') =~ '^-- /.*/$'
if s:EditRange(matchstr(getline('.'), '^-- /\zs.*\ze/$'))
normal u
endif
return
endif
let sha = s:GetGitvSha(line('.'))
if sha == ""
return
endif
if s:IsFileMode() && !a:forceOpenFugitive
call s:OpenRelativeFilePath(sha, a:geditForm)
else
let cmd = a:geditForm . " " . sha
let cmd = 'call s:RecordBufferExecAndWipe("'.cmd.'", '.(a:geditForm=='Gedit').')'
call s:MoveIntoPreviewAndExecute(cmd, 1)
call s:MoveIntoPreviewAndExecute('setlocal fdm=syntax', 0)
endif
endf
fu! s:OpenWorkingCopy(geditForm)
let fp = s:GetRelativeFilePath()
let form = a:geditForm[1:] "strip off the leading 'G'
let cmd = form . " " . fugitive#buffer().repo().tree() . "/" . fp
let cmd = 'call s:RecordBufferExecAndWipe("'.cmd.'", '.(form=='edit').')'
call s:MoveIntoPreviewAndExecute(cmd, 1)
endfu
fu! s:OpenWorkingDiff(geditForm, staged)
let winCmd = a:geditForm[1:] == 'edit' ? '' : a:geditForm[1:]
if s:IsFileMode()
let fp = s:GetRelativeFilePath()
let suffix = ' -- '.fp
let g:Gitv_InstanceCounter += 1
let winCmd = 'new gitv'.'-'.g:Gitv_InstanceCounter
else
let suffix = ''
endif
if a:staged
let cmd = 'call Gitv_OpenGitCommand(\"diff --no-color --cached'.suffix.'\", \"'.winCmd.'\")'
else
let cmd = 'call Gitv_OpenGitCommand(\"diff --no-color'.suffix.'\", \"'.winCmd.'\")'
endif
let cmd = 'call s:RecordBufferExecAndWipe("'.cmd.'", '.(winCmd=='').')'
call s:MoveIntoPreviewAndExecute(cmd, 1)
endfu
fu! s:EditRange(rangeDelimiter)
let range = s:GetRange()
let rangeDelimWithSlashes = '/'.a:rangeDelimiter.'/'
let idx = rangeDelimWithSlashes == range[0] ? 0 : rangeDelimWithSlashes == range[1] ? 1 : -1
if idx == -1
return 0
endif
let value = input("Enter new range regex: ", a:rangeDelimiter)
let value = '/'.value.'/'
if value == range[idx]
return 0 "no need to update
endif
call s:SetRange(idx, value)
return 1
endfu "}}}
fu! s:CheckOutGitvCommit() "{{{
let allrefs = s:GetGitvRefs('.')
let sha = s:GetGitvSha(line('.'))
if sha == ""
return
endif
let refs = allrefs + [sha]
let refstr = s:GetConfirmString(refs, 'Cancel')
let choice = confirm("Checkout commit:", refstr)
if choice == 0
return
endif
let choice = get(refs, choice-1, "")
if choice == ""
return
endif
let choice = substitute(choice, "^t:", "", "")
let choice = substitute(choice, "^r:", "", "")
if s:IsFileMode()
let relPath = s:GetRelativeFilePath()
let choice .= " -- " . relPath
endif
exec "Git checkout " . choice
endf "}}}
fu! s:CloseGitv() "{{{
if s:IsFileMode()
q
else
"only tab: quit vim
if tabpagenr() == tabpagenr('$') && tabpagenr() == 1
qa
endif
if g:Gitv_WipeAllOnClose
silent windo setlocal bufhidden=wipe
endif
let moveLeft = tabpagenr() == tabpagenr('$') ? 0 : 1
tabc
if moveLeft && tabpagenr() != 1
tabp
endif
endif
endf "}}}
fu! s:DiffGitvCommit() range "{{{
if !s:IsFileMode()
echom "Diffing is not possible in browser mode."
return
endif
let shafirst = s:GetGitvSha(a:firstline)
let shalast = s:GetGitvSha(a:lastline)
if shafirst == "" || shalast == ""
return
endif
if a:firstline != a:lastline
call s:OpenRelativeFilePath(shafirst, "Gedit")
endif
call s:MoveIntoPreviewAndExecute("Gdiff " . shalast, a:firstline != a:lastline)
endf "}}}
fu! s:MergeBranches() range "{{{
if a:firstline == a:lastline
echom 'Already up to date.'
return
endif
let refs = s:GetGitvRefs(a:firstline)
let refs += s:GetGitvRefs(a:lastline)
call filter(refs, 'v:val !=? "HEAD"')
if len(refs) < 2
echom 'Not enough refs found to perform a merge.'
return
endif
let target = confirm("Choose target branch to merge into:", s:GetConfirmString(refs, "Cancel"))
if target == 0 || get(refs, target-1, '')=='' | return | endif
let target = remove(refs, target-1)
let target = substitute(target, "^[tr]:", "", "")
let merge = confirm("Choose branch to merge in to '".target."':", s:GetConfirmString(refs, "Cancel"))
if merge == 0 || get(refs, merge-1, '')==''| return | endif
let merge = refs[merge-1]
let merge = substitute(merge, "^[tr]:", "", "")
let choices = "&Yes\n&No\n&Cancel"
let ff = confirm("Use fast-forward, if possible, to merge '". merge . "' in to '" . target ."'?", choices)
if ff == 0 || ff == 3 | return | endif
let ff = ff == 1 ? ff : 0
if ff
echom "Merging '" . merge . "' in to '" . target . "' with fast-forward."
else
echom "Merging '" . merge . "' in to '" . target . "' without fast-forward."
endif
call s:PerformMerge(target, merge, ff)
endfu
fu! s:PerformMerge(target, mergeBranch, ff) abort
exec 'Git checkout ' . a:target
exec 'Git merge ' . (a:ff ? '--ff ' : '--no-ff ') . a:mergeBranch
if g:Gitv_PromptToDeleteMergeBranch
let choices = "&Yes\n&No\n&Cancel"
let delBranch = confirm("Delete merge branch: '" . a:mergeBranch . "'?", choices)
if delBranch == 0 || delBranch == 3 | return | endif
let delBranch = delBranch == 1 ? delBranch : 0
if delBranch
exec 'Git branch -d ' . a:mergeBranch
endif
endif
endfu "}}}
fu! s:StatGitvCommit() range "{{{
let shafirst = s:GetGitvSha(a:firstline)
let shalast = s:GetGitvSha(a:lastline)
if shafirst == "" || shalast == ""
return
endif
let cmd = 'diff --no-color '.shafirst
if shafirst != shalast
let cmd .= ' '.shalast
endif
let cmd .= ' --stat'
let cmd = "call s:SetupStatBuffer('".cmd."')"
if s:IsFileMode()
exec cmd
else
call s:MoveIntoPreviewAndExecute(cmd, 1)
endif
endf
fu! s:SetupStatBuffer(cmd)
silent let res = Gitv_OpenGitCommand(a:cmd, s:IsFileMode()?'vnew':'')
if res
silent set filetype=gitv
endif
endfu "}}} }}}
"Movement: "{{{
fu! s:JumpToBranch(backward) "{{{
if a:backward
silent! ?|/\||\\?-1
else
silent! /|\\\||\//+1
endif
endf "}}}
fu! s:JumpToRef(backward) "{{{
if a:backward
silent! ?^\(\(|\|\/\|\\\|\*\)\s\=\)\+\s\+\zs(
else
silent! /^\(\(|\|\/\|\\\|\*\)\s\?\)\+\s\+\zs(/
endif
endf "}}}
fu! s:JumpToHead() "{{{
silent! /^\(\(|\|\/\|\\\|\*\)\s\?\)\+\s\+\zs(HEAD/
endf "}}}
"}}} }}}
"Align And Truncate Functions: "{{{
if exists("*strwidth") "{{{
"introduced in Vim 7.3
fu! s:StringWidth(string)
return strwidth(a:string)
endfu
else
fu! s:StringWidth(string)
return len(split(a:string,'\zs'))
endfu
end "}}}
fu! s:Align(seperator, filePath) range "{{{