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