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

vim. some refactoring

Browse source
This commit is contained in:
Johann Klähn 2009-06-25 17:52:13 +02:00
parent fbf211c95e
commit a853a1c59a
1 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -166,7 +166,7 @@ function! LedgerComplete(findstart, base) "{{{1
endif endif
endf "}}} endf "}}}
function! LedgerFindInTree(tree, levels) function! LedgerFindInTree(tree, levels) "{{{1
if empty(a:levels) if empty(a:levels)
return [] return []
endif endif
@ -183,12 +183,11 @@ function! LedgerFindInTree(tree, levels)
endif endif
endfor endfor
return results return results
endf endf "}}}
function! LedgerGetAccountHierarchy() function! LedgerGetAccountHierarchy() "{{{1
let hierarchy = {} let hierarchy = {}
let accounts = map(getline(1, '$'), 'matchstr(v:val, ''^\s\+\zs[^[:blank:];]\%(\S \S\|\S\)\+\ze'')') let accounts = s:grep_buffer('^\s\+\zs[^[:blank:];]\%(\S \S\|\S\)\+\ze')
let accounts = filter(accounts, 'v:val != ""')
for name in accounts for name in accounts
let last = hierarchy let last = hierarchy
for part in split(name, ':') for part in split(name, ':')
@ -197,12 +196,11 @@ function! LedgerGetAccountHierarchy()
endfor endfor
endfor endfor
return hierarchy return hierarchy
endf endf "}}}
function! LedgerGetTags() "{{{2 function! LedgerGetTags() "{{{1
let alltags = {} let alltags = {}
let metalines = map(getline(1, '$'), 'matchstr(v:val, ''^\s\+;\s*\zs.*$'')') let metalines = s:grep_buffer('^\s\+;\s*\zs.*$')
let metalines = filter(metalines, 'v:val != ""')
for line in metalines for line in metalines
" (spaces at beginning are stripped by matchstr!) " (spaces at beginning are stripped by matchstr!)
if line[0] == ':' if line[0] == ':'
@ -226,10 +224,13 @@ function! LedgerGetTags() "{{{2
endf "}}} endf "}}}
" Helper functions {{{1 " Helper functions {{{1
" return length of string with fix for multibyte characters
function! s:multibyte_strlen(text) "{{{2 function! s:multibyte_strlen(text) "{{{2
return strlen(substitute(a:text, ".", "x", "g")) return strlen(substitute(a:text, ".", "x", "g"))
endfunction "}}} endfunction "}}}
" get # of visible/usable columns in current window
function! s:get_columns(win) "{{{2 function! s:get_columns(win) "{{{2
" As long as vim doesn't provide a command natively, " As long as vim doesn't provide a command natively,
" we have to compute the available columns. " we have to compute the available columns.
@ -244,10 +245,18 @@ function! s:get_columns(win) "{{{2
return columns return columns
endfunction "}}} endfunction "}}}
" remove spaces at start and end of string
function! s:strip_spaces(text) "{{{2 function! s:strip_spaces(text) "{{{2
return matchstr(a:text, '^\s*\zs\S\%(.*\S\)\?\ze\s*$') return matchstr(a:text, '^\s*\zs\S\%(.*\S\)\?\ze\s*$')
endf "}}} endf "}}}
function! s:filter_items(list, keyword) " return only those items that start with a specified keyword
function! s:filter_items(list, keyword) "{{{2
return filter(a:list, 'v:val =~ ''^\V'.substitute(a:keyword, '\\', '\\\\', 'g').'''') return filter(a:list, 'v:val =~ ''^\V'.substitute(a:keyword, '\\', '\\\\', 'g').'''')
endf endf "}}}
" return all lines matching an expression, returning only the matched part
function! s:grep_buffer(expression) "{{{2
let lines = map(getline(1, '$'), 'matchstr(v:val, '''.a:expression.''')')
return filter(lines, 'v:val != ""')
endf "}}}