Generate file based on command-line argument.

This commit is contained in:
Dominik Pantůček 2024-12-26 21:08:28 +01:00
parent fe42315cd9
commit 51a108ce64
3 changed files with 21 additions and 8 deletions

View file

@ -185,6 +185,7 @@
(-fname- file:gnuplot-data))
(-sheet (filename) "Generate attendance sheet"
(-needs-bank- #t)
(-fname- filename)
(-action- 'gen-sheet))
""
@ -361,7 +362,8 @@
(gen-html-members MB (-web-dir-)))
((gen-sheet)
(log-info "Generating attendance sheet")
(print-attendance-sheet MB))
(parameterize ((current-output-port (open-output-file (-fname-))))
(print-attendance-sheet MB)))
((edit)
(if mr
(let ()