X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/a1a7019f276902c53aad2b2cb71e74f6e974fa05..48f9d393393709d8e998a9eb8d4095773ab185a1:/mdwn2man diff --git a/mdwn2man b/mdwn2man index 13b1b84a8..8c70c87c1 100755 --- a/mdwn2man +++ b/mdwn2man @@ -1,15 +1,17 @@ #!/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/^Warning:.*//g; s/^$/.PP\n/; - s/\[\[//g; - s/\]\]//g; s/\`//g; s/^\*\s+(.*)/.IP "$1"/; next if $_ eq ".PP\n" && $skippara;