diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-11-29 07:11:56 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-11-29 07:11:56 -0800 |
| commit | 05f11f5ab799e48301461756ea13b36d5f7b2510 (patch) | |
| tree | 9ad73c687a3e5824d20163c2edbc34d41a7be9d7 /share | |
| parent | aef42ed8c03dc05e4e51b068d197c9c4cfd62fa3 (diff) | |
| download | txr-05f11f5ab799e48301461756ea13b36d5f7b2510.tar.gz txr-05f11f5ab799e48301461756ea13b36d5f7b2510.tar.bz2 txr-05f11f5ab799e48301461756ea13b36d5f7b2510.zip | |
getopt: tweak multi-line literals in help text
* share/txr/stdlib/getopts.tl (opthelp): Use a different line
breaking approach for literals: the escaped space is now at
the end of the previous line, rather than at the start of the
next line, which looks nicer. We don't do this for the option
type legend, because that has some instances of leading space
alignment, which requires a leading backslash.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/getopts.tl | 51 |
1 files changed, 25 insertions, 26 deletions
diff --git a/share/txr/stdlib/getopts.tl b/share/txr/stdlib/getopts.tl index e4cad875..a556493d 100644 --- a/share/txr/stdlib/getopts.tl +++ b/share/txr/stdlib/getopts.tl @@ -281,10 +281,10 @@ (have-arg-p (some sorted (usl arg-p))) (have-bool (some sorted (op eq @1.type :bool))) (texts (list (if have-short - "Short options can be invoked with long syntax: \ - \ for example, --a can be used when -a exists.\ - \ Short no-argument options can be clumped into\ - \ one argument as exemplified by -xyz. ") + "Short options can be invoked with long syntax: \ \ + for example, --a can be used when -a exists.\ \ + Short no-argument options can be clumped into\ \ + one argument as exemplified by -xyz.") (if have-bool (if have-arg-p "Options that take no argument are Boolean:" @@ -293,32 +293,31 @@ "All options are Boolean:"))) (if have-bool "they are true when present, false when absent.") - (if have-bool - (if have-arg-p - " The --no- prefix can explicitly specify \ - \ Boolean options as false: if a Boolean option\ - \ X exists,\ - \ --no-X specifies it as false. This is useful\ - \ for making false those options which default\ - \ to true." - " The --no- prefix can explicitly specify \ - \ options as false: if an X option exists,\ - \ --no-X specifies it as false. This is useful\ - \ for making false those options which default\ - \ to true.")) + (if (and have-bool have-arg-p) + "The --no- prefix can explicitly specify \ \ + Boolean options as false: if a Boolean option\ \ + X exists,\ \ + --no-X specifies it as false. This is useful\ \ + for making false those options which default\ \ + to true. " + "The --no- prefix can explicitly specify \ \ + options as false: if an X option exists,\ \ + --no-X specifies it as false. This is useful\ \ + for making false those options which default\ \ + to true. ") (if (not have-long) "Note the double dash on --no.") (if (and have-short have-long) - "The --no- prefix can be applied to a short\ - \ or long option name.") + "The --no- prefix can be applied to a short\ \ + or long option name.") (if have-arg-p - "The argument to a long option can be given in one\ - \ argument as --option=arg or as a separate\ - \ argument using --option arg.") - "The special argument -- can be used where an option\ - \ may appear. It means \"end of options\": the\ - \ arguments which follow are not treated as options\ - \ even if they look like options."))) + "The argument to a long option can be given in one\ \ + argument as --option=arg or as a separate\ \ + argument using --option arg.") + "The special argument -- can be used where an option\ \ + may appear. It means \"end of options\": the\ \ + arguments which follow are not treated as options\ \ + even if they look like options."))) (mapdo (do put-line ` @1`) (sys:wdwrap `@{(flatten texts)}` 77))) (put-line) |