From 3c3502bbfbb7c6090574524387d74413fcbf5044 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 17 Apr 2023 22:38:59 +0200 Subject: [PATCH] Unpaired table as list. --- src/members-print.scm | 42 ++++++++++++++++++++++++------------------ 1 file changed, 24 insertions(+), 18 deletions(-) diff --git a/src/members-print.scm b/src/members-print.scm index ae73dc6..38cd17d 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -36,6 +36,7 @@ print-members-base-stats print-members-ids-stats print-members-fees-table + unpaired-table print-unpaired-table ) @@ -390,26 +391,31 @@ ) )) + (define (unpaired-table mb) + (table->list + (cons + (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank") + (map + (lambda (tr) + (list (bank-transaction-id tr) + (bank-transaction-date tr) + (sprintf "\t~A" (bank-transaction-amount tr)) + (bank-transaction-currency tr) + (sprintf "\t~A" (bank-transaction-varsym tr)) + (bank-transaction-type tr) + (bank-transaction-message tr) + (bank-transaction-account tr) + (bank-transaction-bank tr) + )) + (mbase-unpaired mb))) + #:row0-border #t + #:col-border #t)) + ;; Prints all transactions which the members base considers unpaired. (define (print-unpaired-table mb) (print - (table->string - (cons - (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank") - (map - (lambda (tr) - (list (bank-transaction-id tr) - (bank-transaction-date tr) - (sprintf "\t~A" (bank-transaction-amount tr)) - (bank-transaction-currency tr) - (sprintf "\t~A" (bank-transaction-varsym tr)) - (bank-transaction-type tr) - (bank-transaction-message tr) - (bank-transaction-account tr) - (bank-transaction-bank tr) - )) - (mbase-unpaired mb))) - #:row0-border #t - #:col-border #t))) + (string-intersperse + (unpaired-table mb) + "\n"))) )