Compare commits

..

2 Commits

Author SHA1 Message Date
Atlas Cove 164833a5c1 update troff files for newp, ts, unpage, upcasetl
Fix capitalisation to make it more consistant
2022-11-14 17:20:41 +00:00
Atlas Cove 959d46a8f7 Update mkgmap.1
Fixed small captalisation issue
2022-11-14 17:08:57 +00:00
8 changed files with 7 additions and 67 deletions

View File

@ -8,7 +8,7 @@
.Nm
.Sh DESCRIPTION
.Nm
generates a simple Gophermap in its standard output,
Generates a simple Gophermap in its standard output,
listing all text files in the current directory
in reverse alphabetical order.
.Pp

2
newp.1
View File

@ -9,7 +9,7 @@
.Ar word ...
.Sh DESCRIPTION
.Nm
creates a new ms phlog post.
Creates a new ms phlog post.
The file name will contain the current date and
.Ar word ...
separated by dashes.

35
pick
View File

@ -1,35 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Scalar::Util qw{looks_like_number};
my @choices;
for (@ARGV) {
if (/^--$/) {
push(@choices, <STDIN>);
} elsif (/^@(.+)$/) {
open(my $fh, '<', $1);
push(@choices, <$fh>);
close($fh);
} else {
push(@choices, "$_\n");
}
}
open(my $tty, '<', '/dev/tty');
my $sel;
until (looks_like_number($sel) && $sel > 0 && $sel <= @choices) {
while (my ($i, $c) = each @choices) {
print $i+1 . ') ' . $choices[$i];
}
print $ENV{'PS3'} || '#? ';
exit(1) unless defined($sel = <$tty>);
}
close($tty);
print $choices[$sel - 1];

25
pick.1
View File

@ -1,25 +0,0 @@
.Dd Sep 13, 2023
.Dt TS 1
.Os
.Sh NAME
.Nm pick
.Nd Choose interactively from the set of arguments and input lines
.Sh SYNOPSIS
.Nm
.Ar arg ...
.Sh DESCRIPTION
.Nm
will display a Korn shell style selection menu with stdin contents and
arguments as options.
.Pp
When a selection is made, the command will print its value to stdout.
If the selection is aborted, nothing will be printed.
.Sh ENVIRONMENT
.Bl -tag -width PS3
.It Ev PS3
Prompt string displayed to the user (default: #?).
.El
.Sh EXIT STATUS
.Ex -std
.Sh AUTHORS
.An Adolfo Perez Alvarez Aq Mt adolfopa@sdf.org

4
scmfmt
View File

@ -21,9 +21,9 @@ i\
bl' |
sed -e '1s/^/./' -e 's/^ /./' |
par -P=. |
fmt -p |
awk '
BEGIN { LIMIT = 72 }
BEGIN { LIMIT = 65 }
NR == 1 || /^[^\.]/ || length($0) < LIMIT {
sub(/^\./, NR == 1 ? "" : " ");
print;

2
ts.1
View File

@ -10,7 +10,7 @@
.Ar test ...
.Sh DESCRIPTION
.Nm
runs the shell tests passed as arguments.
Runs the shell tests passed as arguments.
If the
.Fl b
flag is specified, the test is blessed \(em i.e. it is evaluated and the test

View File

@ -8,7 +8,7 @@
.Nm
.Sh DESCRIPTION
.Nm
removes all page headers and footers from stdin,
Removes all page headers and footers from stdin,
getting as result output that contains a single continuous page.
.Pp
This command expects its input to be the result of processing an ms document

View File

@ -8,7 +8,7 @@
.Nm
.Sh DESCRIPTION
.Nm
takes an ms troff document in stdin,
Takes an ms troff document in stdin,
and outputs to its stdout the same document
with all
.Qq .TL