X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/4b36dee35a55b08d6d6f3bb3840220a4956f2540..27bfe18f51b717128b2d920bdfab2516dd8d6ac8:/mdwn2man?ds=sidebyside diff --git a/mdwn2man b/mdwn2man index e78a4d18c..e4ba5aadf 100755 --- a/mdwn2man +++ b/mdwn2man @@ -7,7 +7,9 @@ my $section=shift; print ".TH $prog $section\n"; while (<>) { - s{(\\?)\[\[([^\s\]]+)\]\]}{$1 ? "[[$2]]" : $2}eg; + s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg; + s/\`//g; + s/^\./\\&./g; if (/^#\s/) { s/^#\s/.SH /; <>; # blank; @@ -16,7 +18,6 @@ while (<>) { s/-/\\-/g; s/^Warning:.*//g; s/^$/.PP\n/; - s/\`//g; s/^\*\s+(.*)/.IP "$1"/; next if $_ eq ".PP\n" && $skippara; if (/^.IP /) {