Unpaired table as list.

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
+    (string-intersperse
-     (cons
+     (unpaired-table mb)
-      (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
+     "\n")))
-      (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)))
 
  )