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

Start with small tweaks as proof of concept.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:09:55 +02:00
parent 1147d73b11
commit 8f0d5acf0a
6 changed files with 35 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

23
member-fees.scm
View file

@ -37,7 +37,7 @@
member-fees-total
member-credit-total
print-members-fees-table
print-member-calendar-table
member-calendar->table
)
(import scheme
@ -89,14 +89,14 @@
(if e
(if (member 'existing (cadr e))
(if (member 'suspended (cadr e))
(ansi-string #:bgdarkgrey " ") ; Suspended
(ansi-string #:bgdarkgrey " ") ; Suspended
(if (member 'destroyed (cadr e))
(ansi-string #:bgblack "~~~") ; Destroyed
(ansi-string #:bgblack "~~") ; Destroyed
(if (member 'student (cadr e))
(ansi-string #:bgyellow " ") ; Student
(ansi-string #:bggreen " ")))) ; Normal
" ") ; Nonexistent - should not happen
" ")) ; Nonexistent
(ansi-string #:bgyellow " ") ; Student
(ansi-string #:bggreen " ")))) ; Normal
" ") ; Nonexistent - should not happen
" ")) ; Nonexistent
;; Converts the entry into the fee
(define (member-calendar-entry->fee e)
@ -169,18 +169,17 @@
#:col-border #t #:row0-border #t)))
;; Nicely print calendar for given member
(define (print-member-calendar-table mr)
(define (member-calendar->table mr)
(let* ((mc (member-calendar mr))
(fees (member-calendar->fees mc)))
(print (table->string (cons (map (lambda (c)
(table->string (cons (map (lambda (c)
(sprintf "\t~A\t" c))
(list "" 1 2 3 4 5 6 7 8 9 10 11 12))
(member-calendar->years-table mc))
#:table-border #t
#:table-border #f
#:row-border #t
#:col-border #t
#:ansi #t
))
))
)))
)