####
#### convenience functions for various repl(1) commands
-#### If using par (see mhn.defaults), it really helps to have its
-#### PARINIT environment variable set. If you really want it to be
-#### null, either comment this out or set it to, e.g., ' '.
+#### If using par (see mhn.defaults), it helps to have its PARINIT
+#### environment variable set. If you really want it to be null,
+#### either comment this out or set it to, e.g., ' '.
+#### Removed "R" from PARINIT recommendation in par(1) man page so
+#### that it doesn't consider words that are too long to be an error.
if [ -z "$PARINIT" ]; then
- PARINIT='rTbgqR B=.,?_A_a Q=_s>|'
+ PARINIT='rTbgq B=.,?_A_a Q=_s>|'
export PARINIT
fi
repl -filter mhl.replywithoutbody -editor mhbuild \
-convertargs text/html '' -convertargs text/plain '' "$@"
}
+
+
+# Local Variables:
+# mode: sh
+# End:
trap "rm -f $TMP" 0 1 2 3 13 15
if [ ! -z `$SEARCHPROG "$SEARCHPATH" par` ]; then
- #### par fails on input lines that are too wide, so used fold(1)
- #### to wrap them first. The widths here correspond to those
- #### for the text browsers below.
- textfmt=' | fold -s -w 64 | par 64'
- replfmt=" | fold -s -w 62 | sed 's/^\(.\)/> \1/; s/^$/>/;' | par 64"
+ #### The widths here correspond to those for the text browsers below.
+ textfmt=' | par 64'
+ replfmt=" | sed 's/^\(.\)/> \1/; s/^$/>/;' | par 64"
elif [ ! -z `$SEARCHPROG "$SEARCHPATH" fmt` ]; then
textfmt=' | fmt'
replfmt=" | fmt | sed 's/^\(.\)/> \1/; s/^$/>/;'"