X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/773731743df52d2ef2d8ce93c095be981bb9bfc8..73b168079a32123b2b6979772fbe611d4dc580a7:/mdwn2man diff --git a/mdwn2man b/mdwn2man index 57c41c865..e4ba5aadf 100755 --- a/mdwn2man +++ b/mdwn2man @@ -1,15 +1,23 @@ #!/usr/bin/perl # Warning: hack -print ".TH ikiwiki 1\n"; +my $prog=shift; +my $section=shift; + +print ".TH $prog $section\n"; while (<>) { - s{(\\?)\[\[([^\s\]]+)\]\]}{$1 ? "[[$2]]" : $2}eg; - s/^#\s/.SH /; + s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg; + s/\`//g; + s/^\./\\&./g; + if (/^#\s/) { + s/^#\s/.SH /; + <>; # blank; + } s/^\s+//; + s/-/\\-/g; s/^Warning:.*//g; s/^$/.PP\n/; - s/\`//g; s/^\*\s+(.*)/.IP "$1"/; next if $_ eq ".PP\n" && $skippara; if (/^.IP /) {