sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

vim: fill text for "table" can be modified

Browse source
This commit is contained in:
Johann Klähn 2009-06-17 23:24:01 +02:00
parent 7654ecc102
commit 360025ac2f
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
contrib/vim/ftplugin/ledger.vim
View file

@ -33,6 +33,10 @@ if !exists('g:ledger_maxwidth')
let g:ledger_maxwidth = 0 let g:ledger_maxwidth = 0
endif endif
if !exists('g:ledger_fillstring')
let g:ledger_fillstring = ' '
endif
let s:rx_amount = '\('. let s:rx_amount = '\('.
\ '\%([0-9]\+\)'. \ '\%([0-9]\+\)'.
\ '\%([,.][0-9]\+\)*'. \ '\%([,.][0-9]\+\)*'.
@ -53,9 +57,7 @@ function! LedgerFoldText() "{{{1
if line !~ '^\s\+;' if line !~ '^\s\+;'
" No comment, look for amount... " No comment, look for amount...
let groups = matchlist(line, s:rx_amount) let groups = matchlist(line, s:rx_amount)
echomsg string(groups)
if ! empty(groups) if ! empty(groups)
echomsg amount
let amount = groups[1] let amount = groups[1]
break break
endif endif
@ -77,7 +79,18 @@ function! LedgerFoldText() "{{{1
" add spaces so the text is always long enough when we strip it " add spaces so the text is always long enough when we strip it
" to a certain width (fake table) " to a certain width (fake table)
let foldtext .= repeat(' ', s:get_columns(0)) if strlen(g:ledger_fillstring)
" add extra spaces so fillstring aligns
let filen = s:multibyte_strlen(g:ledger_fillstring)
let folen = s:multibyte_strlen(foldtext)
let foldtext .= repeat(' ', filen - (folen%filen))
let foldtext .= repeat(g:ledger_fillstring,
\ s:get_columns(0)/filen)
else
let foldtext .= repeat(' ', s:get_columns(0))
endif
" we don't use slices[:5], because that messes up multibyte characters " we don't use slices[:5], because that messes up multibyte characters
let foldtext = substitute(foldtext, '.\{'.columns.'}\zs.*$', '', '') let foldtext = substitute(foldtext, '.\{'.columns.'}\zs.*$', '', '')