X-Git-Url: http://git.tremily.us/?p=ikiwiki.git;a=blobdiff_plain;f=mdwn2man;fp=mdwn2man;h=13b1b84a8131b0e80eaf323d315534a3c627555d;hp=0000000000000000000000000000000000000000;hb=a1a7019f276902c53aad2b2cb71e74f6e974fa05;hpb=1186094987d8ddb725cf4d69fa357741117d7c11

diff --git a/mdwn2man b/mdwn2man
new file mode 100755
index 000000000..13b1b84a8
--- /dev/null
+++ b/mdwn2man
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+# Warning: hack
+
+print ".TH ikiwiki 1\n";
+
+while (<>) {
+	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;
+	if (/^.IP /) {
+		$inlist=1;
+		$spippara=0;
+	}
+	elsif (/.SH/) {
+		$skippara=0;
+		$inlist=0;
+	}
+	elsif (/^\./) {
+		$skippara=1;
+	}
+	else {
+		$skippara=0;
+	}
+	if ($inlist && $_ eq ".PP\n") {
+		$_=".IP\n";
+	}
+
+	print $_;
+}