Generate file based on command-line argument.
This commit is contained in:
parent
fe42315cd9
commit
51a108ce64
3 changed files with 21 additions and 8 deletions
|
|
@ -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 ()
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue