branch: elpa/csv2ledger
commit fd54efa6cee987f79403e3408dcd550ad3080161
Author: Joost Kremers <joostkrem...@fastmail.fm>
Commit: Joost Kremers <joostkrem...@fastmail.fm>
Add command `c2l-set-base-account`.
---
csv2ledger.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/csv2ledger.el b/csv2ledger.el
index 3772b02966..1b176df3de 100644
--- a/csv2ledger.el
+++ b/csv2ledger.el
@@ -270,6 +270,13 @@ strings are interpreted according to the template in
c2l--accounts nil t))))
(c2l-compose-entry fields account)))
+;;;###autoload
+(defun c2l-set-base-account ()
+ "Set `c2l-base-account'."
+ (unless c2l--accounts
+ (setq c2l--accounts (c2l-read-accounts c2l-accounts-file)))
+ (setq c2l-base-account (completing-read "Base account for current buffer: "
c2l--accounts nil t)))
+
;;;###autoload
(defun c2l-csv-entry-as-kill ()
"Convert the current CSV row to a Ledger entry and place it in the kill ring.
