From cefb1820ec4bace696dd1a5c5040c9af9ae758cf Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 17 Apr 2020 14:16:44 -0700
Subject: [PATCH] better help text

---
 quad/fontproof/command.rkt | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/quad/fontproof/command.rkt b/quad/fontproof/command.rkt
index 36d15854..6c0b2027 100755
--- a/quad/fontproof/command.rkt
+++ b/quad/fontproof/command.rkt
@@ -31,27 +31,27 @@
      #:argv (current-command-line-arguments)
      #:once-each
      [("-p" "--page") page-size-arg
-                      "page size"
+                      "page size (e.g., letter, A4)"
                       (set! page-size page-size-arg)]
-     [("-r" "--replace") "replace existing"
+     [("-r" "--replace") "replace existing proof with same name"
                          (set! replace #true)]
      [("-d" "--doc") doc-arg
-                     "sample text"
+                     "source for sample text"
                      (set! doc doc-arg)]
      [("-o" "--output") output-file-path-arg
                         "output file path"
                         (set! output-file-path output-file-path-arg)]
      [("-s" "--size") font-sizes-arg
-                      "font sizes"
+                      "font sizes to proof"
                       (set! font-sizes font-sizes-arg)]
      [("-l" "--leading") line-heights-arg
-                         "font size"
+                         "line height"
                          (set! line-heights line-heights-arg)]
      [("-b" "--bold") "also generate bold proof"
                       (set! make-bold? #true)]
      [("-i" "--italic")  "also generate italic proof"
                          (set! make-italic? #true)]
-     [("-q" "--qml")  "output QML"
+     [("-q" "--qml")  "output QML file"
                       (set! output-qml? #true)]
      #:args families
      families))