(define initdb
(command
- '()
- (lambda ()
- (format #t "Initialized the database"))))
+ #:name "initdb"
+ #:help "Init database."
+ #:procedure (lambda ()
+ (format #t "Initialize the database.~%"))))
(define dropdb
(command
- '()
- (lambda ()
- (format #t "Dropped the database"))))
+ #:name "dropdb"
+ #:help "Drop database."
+ #:procedure (lambda ()
+ (format #t "Drop the database.~%"))))
(define cli
(group
- '()
- "Database Tools"
- initdb
- dropdb))
+ #:help "Database Tools"
+ #:commands `(,initdb ,dropdb)))
(cli (command-line))