From d3efbaa82d423a413f8f744c1235fed3256f7a11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 31 Mar 2023 21:49:59 +0200
Subject: [PATCH] Convert Fio dates to ISO dates.

---
 bank-fio.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/bank-fio.scm b/bank-fio.scm
index e0e1cc1..35a6b28 100644
--- a/bank-fio.scm
+++ b/bank-fio.scm
@@ -38,11 +38,18 @@
 	 csv-simple
 	 progress)
 
+ ;; Conversion of Fio date to ISO
+ (define (fio-date->iso str)
+   (string-intersperse
+    (reverse
+     (string-split str "."))
+    "-"))
+
  ;; Converts Fio account statement transaction row into standardized
  ;; bank transaction structure.
  (define (make-fio-transaction row)
    (let ((id (string->number (car row)))
-	 (date (cadr row))
+	 (date (fio-date->iso (cadr row)))
 	 (amount (string->number
 		  (string-translate* (caddr row)
 				     '(("," . ".")))))