diff options
| author | Craig Earls <enderw88@gmail.com> | 2015-11-04 19:19:07 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2015-11-04 19:19:07 -0700 |
| commit | cb05126e18f4d2fa5aa18cdb5a6af03436962068 (patch) | |
| tree | 2691f85ddd6c90c986a821bc646f5d0f582a7217 /lisp/ledger-commodities.el | |
| parent | 1cf83c6f5f5d005fb143f34b32b86bb838cd9674 (diff) | |
| parent | d38f8d3bff66e89cc79b1791566fdf9eca62a8e9 (diff) | |
| download | fork-ledger-cb05126e18f4d2fa5aa18cdb5a6af03436962068.tar.gz fork-ledger-cb05126e18f4d2fa5aa18cdb5a6af03436962068.tar.bz2 fork-ledger-cb05126e18f4d2fa5aa18cdb5a6af03436962068.zip | |
Merge commit 'd38f8d3bff66e89cc79b1791566fdf9eca62a8e9' into next
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)." |