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
|
let tabcap = ''
let tabmiddlecap = ''
set tabline=%!TablineGenerator()
" Tab data/helper functions {{{
function! TabFilename(n)
let buflist = tabpagebuflist(a:n)
let winnr = tabpagewinnr(a:n)
let _ = (expand('#'..buflist[winnr - 1]..':t') !=# '') ? expand('#'..buflist[winnr - 1]..':t') : '[No Name]'
" Limit the width of tabs, so they don't go out of the screen
let tabNameLengthMax = &columns/(((tabpagenr('$') > 0) ? tabpagenr('$') : 0) + 5)
return WebDevIconsGetFileTypeSymbol(_) .. ' ' .. _[0:tabNameLengthMax]
endfunction
function! TabReadonly(n)
let winnr = tabpagewinnr(a:n)
return gettabwinvar(a:n, winnr, '&readonly') ? ' ' : ''
endfunction
function! TabModified(n)
let winnr = tabpagewinnr(a:n)
return gettabwinvar(a:n, winnr, '&modified') ? ' ' : (gettabwinvar(a:n, winnr, '&modifiable') ? '' : ' ')
endfunction
" }}}
" Colors {{{
autocmd ColorScheme * call TLCreateHighlightGroups()
" Colorscheme clears highlights https://vi.stackexchange.com/a/3356
function! TLCreateHighlightGroups()
hi TLTab ctermfg=252 ctermbg=242
hi TLTabSel ctermfg=252 ctermbg=235
hi TLRest ctermfg=248 ctermbg=238
let s:hi_tltab = hlget('TLTab')[0]
let s:hi_tltabsel = hlget('TLTabSel')[0]
let s:hi_tlrest = hlget('TLRest')[0]
call hlset([#{name: 'TLTabSelLC', ctermfg: s:hi_tltab['ctermbg'], ctermbg: s:hi_tltabsel['ctermbg'] },
\ #{name: 'TLTabSelRC', ctermfg: s:hi_tltabsel['ctermbg'], ctermbg: s:hi_tltab['ctermbg'] },
\ #{name: 'TLTabSelRCF', ctermfg: s:hi_tltabsel['ctermbg'], ctermbg: s:hi_tlrest['ctermbg'] },
\ #{name: 'TLTabRCF', ctermfg: s:hi_tltab['ctermbg'], ctermbg: s:hi_tlrest['ctermbg'] }])
endfunction
call TLCreateHighlightGroups()
" }}}
function! TablineGenerator()
let s = ''
" For each tab i
for i in range(1, tabpagenr('$'))
" Sets the tab page number, so that mouse clicks work
let s ..= '%' .. i .. 'T'
let innerText = '%{TabFilename(' .. i .. ')}%{TabReadonly(' .. i .. ')}%{TabModified(' .. i .. ')} '
" If tab is the selected one
if i == tabpagenr()
" If tab isn't the left most
if i > 1
let s ..= '%#TLTabSelLC#%{tabcap}'
endif
let s ..= '%#TLTabSel# ' .. l:innerText
" If tab is the last one, right cap bg color has to be different
let s ..= (i == tabpagenr('$') ? '%#TLTabSelRCF#' : '%#TLTabSelRC#') .. '%{tabcap}'
else
let s ..= '%#TLTab#'
" If tab isn't to the right of selected and isn't the left most
if (i-1 != tabpagenr()) && (i > 1)
let s ..= '%{tabmiddlecap}'
endif
let s ..= ' ' .. l:innerText
" Last tab has to have a tabcap
if i == tabpagenr('$')
let s ..= '%#TLTabRCF#%{tabcap}'
endif
endif
endfor
" After last tab, fill with TLRest
let s ..= '%#TLRest#%T'
return s
endfunction
|
