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

Finished configurable reconcile format line.

Browse source
This commit is contained in:
Craig Earls 2014-07-03 21:49:48 -07:00
parent fad7e307e7
commit 0c8055a528
1 changed files with 15 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/ledger-reconcile.el
View file

@ -85,7 +85,11 @@ reconcile-finish will mark all pending posting cleared."
:group 'ledger-reconcile) :group 'ledger-reconcile)
(defcustom ledger-reconcile-buffer-line-format "%(date)s %-4(code)s %-50(payee)s %-30(account)s %15(amount)s\n" (defcustom ledger-reconcile-buffer-line-format "%(date)s %-4(code)s %-50(payee)s %-30(account)s %15(amount)s\n"
"Format string for the ledger reconcile posting format. Available fields are date, status, code, payee, account, amount" "Format string for the ledger reconcile posting
format. Available fields are date, status, code, payee, account,
amount. The format for each field is %WIDTH(FIELD), WIDTH can be
preced by a minus sign which mean to left justify and pad the
field."
:type 'string :type 'string
:group 'ledger-reconcile) :group 'ledger-reconcile)
@ -316,9 +320,16 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(defun ledger-reconcile-compile-format-string (fstr) (defun ledger-reconcile-compile-format-string (fstr)
"return a function that implements the format string in fstr" "return a function that implements the format string in fstr"
(let (fields
(start 0))
(while (string-match "(\\(.*?\\))" fstr start)
(setq fields (list fields (intern (substring fstr (match-beginning 1) (match-end 1)))))
(setq start (match-end 0)))
(setq fields (flatten (list 'format (replace-regexp-in-string "(.*?)" "" fstr) (cdr (flatten fields)))))
`(lambda (date code status payee account amount) `(lambda (date code status payee account amount)
(format "%s %-4s %-50s %-30s %15s\n" date code payee account amount))) ,fields)))
(defun ledger-reconcile-format-posting (beg where fmt date code status payee account amount) (defun ledger-reconcile-format-posting (beg where fmt date code status payee account amount)
(insert (funcall fmt date code status payee account amount)) (insert (funcall fmt date code status payee account amount))
@ -369,7 +380,7 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(unless (eobp) (unless (eobp)
(if (looking-at "(") (if (looking-at "(")
(read (current-buffer))))))) ;current-buffer is the *temp* created above (read (current-buffer))))))) ;current-buffer is the *temp* created above
(fmt (ledger-reconcile-compile-format-string "str"))) (fmt (ledger-reconcile-compile-format-string ledger-reconcile-buffer-line-format)))
(if (and ledger-success (> (length xacts) 0)) (if (and ledger-success (> (length xacts) 0))
(progn (progn
(insert (format ledger-reconcile-buffer-header account)) (insert (format ledger-reconcile-buffer-header account))