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

Preliminary version of attendance sheet.

Browse source
This commit is contained in:
Dominik Pantůček 2024-12-26 22:20:17 +01:00
parent 53be61d345
commit e02853edc7
1 changed files with 39 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

44
src/export-sheet.scm
View file

@ -48,7 +48,7 @@
(define (print-attendance-sheet MB number)
(print "\\documentclass[10pt]{article}")
(print "\\usepackage[top=1cm,left=2cm,right=2cm,bottom=2cm]{geometry}")
(print "\\usepackage[top=1cm,left=1cm,right=2cm,bottom=2cm]{geometry}")
(print "\\begin{document}")
(print "\\begin{center}")
(print
@ -63,7 +63,7 @@
(print "\\vskip1em")
(newline)
(define colnames
'((id) Nick Name Surname (Fee) (Balance) (Active) Signature))
'((id) Nick Name Surname (Fee) (Balance) B (Active) A OK? Signature))
(print
(format
"\\begin{tabular}{|~A|}"
@ -88,6 +88,9 @@
"&")
"\\\\")
(print "\\hline")
(define valid-voters 0)
(define ok-balances 0)
(define ok-actives 0)
(let loop ((mrs (find-members-by-predicate
MB (lambda (mr)
(brmember-active? mr)))))
@ -122,7 +125,17 @@
(list (*current-month*)
(brmember-flags mr)
spec-fee))))
(balance-ok? (>= (member-total-balance mr)
(- current-fee)))
(active-ok? (>= numactive 9))
(vote-ok? (and balance-ok? active-ok?))
)
(when balance-ok?
(set! ok-balances (+ ok-balances 1)))
(when active-ok?
(set! ok-actives (+ ok-actives 1)))
(when vote-ok?
(set! valid-voters (+ valid-voters 1)))
(print
(brmember-id mr)
" & "
@ -134,19 +147,40 @@
" & "
sname
" & "
(format-amount current-fee)
current-fee
" & "
(format-amount
(format-amount-tex
(member-total-balance mr))
" & "
(if balance-ok?
"Y"
"--")
" & "
numactive
" & "
(if active-ok?
"Y"
"--")
" & "
(if vote-ok?
"Y"
"--")
" & "
"~ ~ ~ ~ ~"
" \\\\")
(print "\\hline")
(loop (cdr mrs)))))
(print "\\end{tabular}")
(print "\\end{center}")
(print "\\end{document}"))
(print "\\end{document}")
(print "% valid-voters = " valid-voters)
(print "% valid-balances = " ok-balances)
(print "% valid-actives = " ok-actives)
)
(define (format-amount-tex amt)
(string-translate*
(format-amount amt)
'(("--" . "--{}--"))))
)