From eebf4cbac5ab736a31b320730d8fb13f15d787a9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 Apr 2020 21:30:07 -0700 Subject: [PATCH] flags --- quad/fontproof/command.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/quad/fontproof/command.rkt b/quad/fontproof/command.rkt index 4119ab84..f9d04011 100755 --- a/quad/fontproof/command.rkt +++ b/quad/fontproof/command.rkt @@ -19,10 +19,10 @@ (command-line #:program "fontproof" #:argv (current-command-line-arguments) #:once-each - [("--page") page-size-arg "page size" (set! page-size page-size-arg)] + [("-p" "--page") page-size-arg "page size" (set! page-size page-size-arg)] [("-o" "--output") output-file-path-arg "output file path" (set! output-file-path output-file-path-arg)] - [("--size") font-sizes-arg "font sizes" (set! font-sizes font-sizes-arg)] - [("--leading") line-heights-arg "font size" (set! line-heights line-heights-arg)] + [("-s" "--size") font-sizes-arg "font sizes" (set! font-sizes font-sizes-arg)] + [("-l" "--line") line-heights-arg "line heights" (set! line-heights line-heights-arg)] #:args families families)) (for ([family (in-list families)])