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

Work on member dashboard.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 16:31:46 +02:00
parent 04fba0c776
commit 1147d73b11
2 changed files with 27 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

45
members-print.scm
View file

@ -32,7 +32,6 @@
print-member-info
print-member-table
print-member-source
print-member-payments
print-members-base-info
print-members-base-table
print-members-base-stats
@ -81,8 +80,8 @@
(v (cdr kv)))
(loop (cdr sinfo)))))))
;; Prints nicely formatted table
(define (print-member-table mr)
;; Returns nicely formatted table
(define (member-info->table mr)
(let* ((aliases (dict-ref mr 'symlinks))
(mid (member-id mr))
(head (list (if (is-4digit-prime? mid)
@ -134,7 +133,18 @@
(ansi-string #:red #:bold "---")))))))
sikeys))
(result (filter identity (append head body))))
(print (table->string result #:table-border #t #:row-border #t #:col-border #t #:ansi #t))))
(table->string result #:table-border #f #:row-border #t #:col-border #t #:ansi #t)))
;; Prints nicely formatted table
(define (print-member-table mr)
(print
(table->string
(list (list "Basic Information" "Payments")
(list (member-info->table mr)
(member-payments->table mr))
)
#:row0-border #t
#:col-border #t)))
;; Nicely prints the member source with any errors recorded.
(define (print-member-source mr)
@ -149,20 +159,19 @@
)))
;; Prints nicely printed payments
(define (print-member-payments mr)
(print
(table->string (cons
(list "Var" "Amount" "Cur" "Date" "TrId")
(map (lambda (tr)
(list (sprintf "\t~A" (bank-transaction-varsym tr))
(sprintf "\t~A" (bank-transaction-amount tr))
(bank-transaction-currency tr)
(bank-transaction-date tr)
(bank-transaction-id tr)))
(member-payments mr)))
#:row0-border #t
#:col-border #t
)))
(define (member-payments->table mr)
(table->string (cons
(list "Var" "Amount" "Cur" "Date" "TrId")
(map (lambda (tr)
(list (sprintf "\t~A" (bank-transaction-varsym tr))
(sprintf "\t~A" (bank-transaction-amount tr))
(bank-transaction-currency tr)
(bank-transaction-date tr)
(bank-transaction-id tr)))
(member-payments mr)))
#:row0-border #t
#:col-border #t
))
;; Converts member records to string, optional arguments are format
;; and separator. Format defaults to "~N" and separator to ", ".