Pass on to cards.scm.
This commit is contained in:
parent
7a56162cdb
commit
3f126e1aa4
2 changed files with 8 additions and 2 deletions
|
@ -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-)))
|
||||
)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue