branch: elpa/csv2ledger
commit 466a098d2b845c99a1aba8947d708e09c52b0013
Author: Joost Kremers <joost.krem...@ipsoft.com>
Commit: Joost Kremers <joost.krem...@ipsoft.com>
Extract new function `c2l-get-current-row` from `c2l-csv-entry-as-kill`.
---
csv2ledger.el | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/csv2ledger.el b/csv2ledger.el
index 9ce636e67f..c0c150562a 100644
--- a/csv2ledger.el
+++ b/csv2ledger.el
@@ -270,6 +270,14 @@ strings are interpreted according to the template in
c2l--accounts))))
(c2l-compose-entry fields account)))
+(defun c2l-get-current-row ()
+ "Read the current line as a CSV row.
+Return value is a list of values as strings."
+ (let ((separator (car csv-separator-chars))
+ (quote-char (string-to-char (or (car csv-field-quotes) "")))
+ (line (buffer-substring-no-properties (point-at-bol) (point-at-eol))))
+ (parse-csv-string line separator quote-char)))
+
;;;###autoload
(defun c2l-set-base-account ()
"Set `c2l-base-account'."
@@ -285,10 +293,7 @@ in `c2l-csv-columns'."
(interactive)
(unless c2l--accounts
(setq c2l--accounts (c2l-read-accounts c2l-accounts-file)))
- (let* ((separator (car csv-separator-chars))
- (quote-char (string-to-char (or (car csv-field-quotes) "")))
- (line (buffer-substring-no-properties (point-at-bol) (point-at-eol)))
- (row (parse-csv-string line separator quote-char))
+ (let* ((row (c2l-get-current-row))
(entry (c2l-csv-line-to-ledger row)))
(kill-new entry)
(message entry)))
