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

Finish almost final version of attendance sheet.

Browse source
This commit is contained in:
Dominik Pantůček 2025-01-02 19:34:13 +01:00
parent df1a30eead
commit cebe6a6cf7
1 changed files with 18 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/export-sheet.scm
View file

@ -74,7 +74,9 @@
(print "\\vskip1em")
(newline)
(define colnames
'((id) Nick "Jméno" "Příjmení" (Fee) (Bilance) ("\\begin{minipage}{15mm}\\begin{center}Aktivní\\\\Měsíce\\end{center}\\end{minipage}") OK? Podpis))
'((id) Nick "Jméno" "Příjmení" (Fee) (Bilance)
("\\raisebox{2pt}{\\begin{minipage}{15mm}\\begin{center}Aktivní\\\\Měsíce\\end{center}\\end{minipage}}")
((Hlas?)) Podpis))
(print "\\renewcommand\\arraystretch{2.1}")
(print
(format
@ -83,7 +85,10 @@
(map
(lambda (x)
(if (list? x)
"r" "l"))
(if (list? (car x))
"c"
"r")
"l"))
colnames)
"|")))
(print "\\hline")
@ -99,7 +104,9 @@
x
(if (string? (car x))
(car x)
(symbol->string (car x)))))))
(if (list? (car x))
(symbol->string (caar x))
(symbol->string (car x))))))))
colnames)
"&")
"\\\\")
@ -163,43 +170,43 @@
(string-translate*
(brmember-nick mr)
'(("_" . "\\_")))
" & "
" & \\small "
fname
" & "
" & \\small "
sname
" & "
current-fee
" & "
"\\begin{minipage}{15mm}\\begin{flushright}"
"\\raisebox{2pt}{\\begin{minipage}{15mm}\\begin{flushright}"
(format-amount-tex
(member-total-balance mr))
"\\\\"
(if balance-ok?
"Bez~dluhu"
"---~~~~~~")
"\\end{flushright}\\end{minipage}"
"\\end{flushright}\\end{minipage}}"
" & "
;(if balance-ok?
; "Y"
; "--")
;" & "
"\\begin{minipage}{12mm}\\begin{center}"
"\\raisebox{2pt}{\\begin{minipage}{12mm}\\begin{center}"
numactive "/" 12
"\\\\"
(if active-ok?
"Splněno"
"\\phantom{Sp}---\\phantom{Sp}")
"\\end{center}\\end{minipage}"
"\\end{center}\\end{minipage}}"
" & "
;(if active-ok?
; "Y"
; "--")
;" & "
(if vote-ok?
"Y"
"Ano"
"--")
" & "
"~\\hskip24mm~"
"~\\hskip28mm~"
" \\\\")
(print "\\hline")
(loop (cdr mrs)))))