diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-22 19:34:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-22 19:34:26 -0700 |
| commit | 059a54c5aa3593a948c8db02b37ac0b1c68c268b (patch) | |
| tree | 203000bde395df1fa3cff1c62434a512d5801e26 /checkman.txr | |
| parent | b52a203671603e1e5385e0fa36779e12b6a8d38a (diff) | |
| download | txr-059a54c5aa3593a948c8db02b37ac0b1c68c268b.tar.gz txr-059a54c5aa3593a948c8db02b37ac0b1c68c268b.tar.bz2 txr-059a54c5aa3593a948c8db02b37ac0b1c68c268b.zip | |
doc: remove hyphen from -s plurals.
* txr.1: After some some discussions with Paul A. Patience,
I've decided to fix the instances where an identifier in
italics or typewriter font is pluralized with -s to just use s.
Some 140 instances are fixed.
* checkman.txr: Allow exception for "s" in the rule that
punctuation must follow codn/metn.
Diffstat (limited to 'checkman.txr')
| -rw-r--r-- | checkman.txr | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/checkman.txr b/checkman.txr index 9a085ae0..a41cab5e 100644 --- a/checkman.txr +++ b/checkman.txr @@ -82,6 +82,9 @@ .@{type /codn|cod2|metn/} @(assert bad ln `.@type needs two arguments`)@(cases)"@x"@(or)@{x /\S+/}@(end) @{y /\S+/}@(eol) @ (assert bad ln `.codn second argument doesn't begin with punctuation`) @ (require (or (not (memqual type '("codn" "metn"))) + (equal "s" y) + (and (starts-with "s" y) + (chr-ispunct [y 1])) (chr-ispunct [y 0]))) @ (end) @(end) |