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

vim. add case of automatic transactions

Browse source
This commit is contained in:
Johann Klähn 2010-09-08 14:44:34 +02:00
parent 84fea7f136
commit ae3a8b6e11
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -326,14 +326,25 @@ function! s:transaction.new() dict
endf
function! s:transaction.from_lnum(lnum) dict "{{{2
let head = s:get_transaction_extents(a:lnum)[0]
let [head, tail] = s:get_transaction_extents(a:lnum)
if ! head
return
endif
let trans = copy(s:transaction)
let trans['head'] = head
let trans['tail'] = tail
let parts = split(getline(head), '\s\+')
if parts[0] ==# '~'
let trans['expr'] = join(parts[1:])
return trans
elseif parts[0] !~ '^\d'
" this case is avoided in s:get_transaction_extents(),
" but we'll check anyway.
return
endif
let description = []
for part in parts
if ! has_key(trans, 'date') && part =~ '^\d'
@ -351,6 +362,10 @@ function! s:transaction.from_lnum(lnum) dict "{{{2
endf "}}}
function! s:transaction.format_head() dict "{{{2
if has_key(self, 'expr')
return '~ '.self['expr']
endif
let parts = []
if has_key(self, 'date') | call add(parts, self['date']) | endif
if has_key(self, 'code') | call add(parts, '('.self['code'].')') | endif
@ -369,7 +384,7 @@ function! s:get_transaction_extents(lnum) "{{{2
set nofoldenable
call cursor(a:lnum, 0)
let head = search('^\d\S\+', 'bcnW')
let head = search('^[~[:digit:]]\S\+', 'bcnW')
let tail = search('^[^;[:blank:]]\S\+', 'nW')
let tail = tail > head ? tail - 1 : line('$')