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

Add function to read commodity from the user.

Browse source 
The function provides completing read with all available commodities as
gathered by "ledger commodities".
This commit is contained in:
Matus Goljer 2015-10-01 20:38:44 +02:00
parent 64426842a3
commit 612656b1d8
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ledger-commodities.el
View file

@ -33,6 +33,16 @@
:type 'string :type 'string
:group 'ledger-reconcile) :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) (defun ledger-split-commodity-string (str)
"Split a commoditized string, STR, into two parts. "Split a commoditized string, STR, into two parts.
Returns a list with (value commodity)." Returns a list with (value commodity)."