brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show specific symbol.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-18 23:20:14 +02:00
parent 2235df9295
commit ef73cecec5
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/bank-account.scm
View file

@ -44,6 +44,7 @@
bank-transaction-type bank-transaction-type
bank-transaction-account bank-transaction-account
bank-transaction-bank bank-transaction-bank
bank-transaction-specsym
bank-accounts-member? bank-accounts-member?
) )

3
src/members-print.scm
View file

@ -395,7 +395,7 @@
(apply (apply
table->list table->list
(cons (cons
(list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank") (list "Id" "Date" "Amount" "" "VS" "SS" "Type" "Message" "Account" "Bank")
(map (map
(lambda (tr) (lambda (tr)
(list (bank-transaction-id tr) (list (bank-transaction-id tr)
@ -403,6 +403,7 @@
(sprintf "\t~A" (bank-transaction-amount tr)) (sprintf "\t~A" (bank-transaction-amount tr))
(bank-transaction-currency tr) (bank-transaction-currency tr)
(sprintf "\t~A" (bank-transaction-varsym tr)) (sprintf "\t~A" (bank-transaction-varsym tr))
(sprintf "\t~A" (bank-transaction-specsym tr))
(bank-transaction-type tr) (bank-transaction-type tr)
(bank-transaction-message tr) (bank-transaction-message tr)
(bank-transaction-account tr) (bank-transaction-account tr)