- (with-fluids ((%program-name (car args)))
- (let* ((click-option-spec (append option-spec (list HELP_OPTION)))
- (values (getopt-long args
- (getopt-long-option-spec click-option-spec))))
- (if (option-ref values 'help #f)
- (display-help procedure click-option-spec)
- (apply procedure (map cdr (get-values option-spec values))))))))
+ (let* ((click-option-spec (append option-spec (list HELP_OPTION)))
+ (values (getopt-long args
+ (getopt-long-option-spec click-option-spec))))
+ (if (option-ref values 'help #f)
+ (let ((program-name (car args)))
+ (display-help program-name procedure click-option-spec))
+ (apply procedure (map cdr (get-values option-spec values)))))))
+
+
+(define (group option-spec target . commands)
+ "Define a new group with a list of commands associated"
+ (lambda (args)
+ (let* ((click-option-spec (append option-spec (list HELP_OPTION)))
+ (values (getopt-long args
+ (getopt-long-option-spec click-option-spec))))
+ (if (or (null? (cdr args))
+ (option-ref values 'help #f))
+ (let ((program-name (car args)))
+ (display-help program-name target click-option-spec commands))
+ (apply target (map cdr (get-values option-spec values)))))))