# HG changeset patch # User Steve Losh # Date 1558200956 14400 # Node ID de312656c9d5379610e7db8c8668ef8c2b75e6e9 # Parent 3a6ceb8611fa8f3acdf0135c86c7f313e0d2ea30 adopt: Update site. diff -r 3a6ceb8611fa -r de312656c9d5 adopt/usage/index.html --- a/adopt/usage/index.html Sat May 18 13:34:09 2019 -0400 +++ b/adopt/usage/index.html Sat May 18 13:35:56 2019 -0400 @@ -724,11 +724,11 @@ :reduce (constantly nil))) (defparameter *option-context* - (adopt:make-option 'color + (adopt:make-option 'context :parameter "N" :help "show N lines of context (default 0)" :long "context" - :short #\u + :short #\U :initial-value 0 :reduce #'adopt:last :key #'parse-integer)) @@ -737,7 +737,6 @@ (defparameter *group-matching* (adopt:make-group 'matching-options :title "Matching Options" - ;; :help "These options affect how lines are matched." :options (list *option-literal* *option-no-literal* *option-case-sensitive* @@ -772,7 +771,6 @@ -

(adopt:print-help ui :width 60 :option-width 16)

And with all that out of the way, you've got some nicely-organized help text for your users:

(adopt:print-help *ui* :width 60 :option-width 16)