diff options
| author | Craig Earls <enderw88@gmail.com> | 2015-10-01 18:14:55 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2015-10-01 18:14:55 -0700 |
| commit | b25eb27866bfed56e252607e1a24289431f993ad (patch) | |
| tree | c0d57d5808061fae0110e6737b3c96e18d102e8b /lisp/ledger-commodities.el | |
| parent | 64426842a34f0517e43a47a404cd15c764f1c7f2 (diff) | |
| parent | a8fa013417232715151f20bbe15d0b3a96a753f2 (diff) | |
| download | ledger-b25eb27866bfed56e252607e1a24289431f993ad.tar.gz ledger-b25eb27866bfed56e252607e1a24289431f993ad.tar.bz2 ledger-b25eb27866bfed56e252607e1a24289431f993ad.zip | |
Merge pull request #435 from Fuco1/balance-at-point-target-commodity
Balance at point and target commodity
I like it. Thanks.
Diffstat (limited to 'lisp/ledger-commodities.el')
| -rw-r--r-- | lisp/ledger-commodities.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/ledger-commodities.el b/lisp/ledger-commodities.el index ea6319ba..48fb78f7 100644 --- a/lisp/ledger-commodities.el +++ b/lisp/ledger-commodities.el @@ -33,6 +33,16 @@ :type 'string :group 'ledger-reconcile) +(defun ledger-read-commodity-with-prompt (prompt) + "Read commodity name after PROMPT. + +Default value is `ledger-reconcile-default-commodity'." + (let* ((buffer (current-buffer)) + (commodities (with-temp-buffer + (ledger-exec-ledger buffer (current-buffer) "commodities") + (split-string (buffer-string) "\n" t)))) + (completing-read prompt commodities nil t nil nil ledger-reconcile-default-commodity))) + (defun ledger-split-commodity-string (str) "Split a commoditized string, STR, into two parts. Returns a list with (value commodity)." |