[nongnu] elpa/csv2ledger fd54efa6ce 030/190: Add command `c2l-set-base-account`.

[ELPA Syncer]

branch: elpa/csv2ledger
commit fd54efa6cee987f79403e3408dcd550ad3080161
Author: Joost Kremers <joostkremers@fastmail.fm>
Commit: Joost Kremers <joostkremers@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.