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
|
" TODO: doc
function! s:BaseRepoURL()
let remote = system('git remote get-url origin')
let base_url = substitute(remote, ':', '/', '')
let base_url = substitute(base_url, '^git@', 'https://', '')
let base_url = substitute(base_url, '.git\n$', '', '')
return base_url
endfunction
" TODO: doc
function! s:FileURL(include_lines, start_line, end_line)
let current_sha = system('git show --format="format:%H"')
let current_sha = substitute(current_sha, '\n$', '', '')
let current_filename = expand('%')
let lines = ''
if a:include_lines
let lines = '#L' . a:start_line
if a:start_line != a:end_line
let lines = lines . '-L' . a:end_line
endif
endif
return s:BaseRepoURL() . '/blob/' . current_sha . '/' . current_filename . lines
endfunction
" echo s:FileURL()
command! -range=0 GitHubFileURL :echo <SID>FileURL(<count>, <line1>, <line2>)
|
