Pass on to cards.scm.

This commit is contained in:
Dominik Pantůček 2023-03-23 22:11:47 +01:00
parent 7a56162cdb
commit 3f126e1aa4
2 changed files with 8 additions and 2 deletions

View file

@ -85,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style)))
(-gencards (file:cards file:desfires) "Generates brmdoor-compatible card files"
(-action- 'export-cards)
(-action- 'gencards)
(-fname- (list file:cards file:desfires)))
)
@ -154,4 +154,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(newline)
(print "New member id: " (gen-member-id MB))
(newline))
((gencards)
(apply cards-export MB (-fname-)))
)