Start integrating progress% into payments processing.

src/members-payments.scm

@@ -51,7 +51,8 @@
 	 member-fees
 	 period
 	 configuration
-	 utils)
+	 utils
+	 progress)
 
  ;; Exchange rates
  (define exchange-rates-lookup-table
@@ -144,19 +145,22 @@
  ;; accounts and processes transactions.
  (define (members-payments-process mb apikeys-file dir checked-fn)
    (if apikeys-file
-       (let* ((acc-list (load-accounts-list apikeys-file))
-	      (accounts (if acc-list (load-accounts acc-list dir) #f))
-	      (last-checked (get-latest-checked-id checked-fn)))
-	 (if accounts
-	     (let ((mbp (foldl (lambda (mb ba)
-				 (members-payments-process-bank mb ba last-checked))
-			       mb
-			       (filter identity
-				       accounts))))
-	       (members-base-update mbp identity member-sort-payments))
-	     (let ()
-	       (print "Warning: no accounts loaded!")
-	       mb)))
+       (with-progress
+	#t "Payments"
+	(progress%-advance 0)
+	(let* ((acc-list (load-accounts-list apikeys-file))
+	       (accounts (if acc-list (load-accounts acc-list dir) #f))
+	       (last-checked (get-latest-checked-id checked-fn)))
+	  (if accounts
+	      (let ((mbp (foldl (lambda (mb ba)
+				  (members-payments-process-bank mb ba last-checked))
+				mb
+				(filter identity
+					accounts))))
+		(members-base-update mbp identity member-sort-payments))
+	      (let ()
+		(print "Warning: no accounts loaded!")
+		mb))))
        mb))
 
  ;; Adds all balances - payments are converted to CZK in member-payments-total