1 files changed, 26 insertions, 0 deletions
diff --git a/kig/generate_todo_inc.pl b/kig/generate_todo_inc.pl
new file mode 100644
index 00000000..6999f217
--- /dev/null
+++ b/kig/generate_todo_inc.pl
@@ -0,0 +1,26 @@
+#! /usr/bin/env perl
+
+use warnings;
+
+print "<ul>\n";
+open( TODO, "<TODO" );
+while( <TODO> )
+  {
+    if( /^\* (.*)$/ )
+      {
+	print "</li></ul></li>\n\n" if( $inlist );
+	print "<li><span style=\"font-weight:bold\">$1</span><br/>\n";
+	$inlist = 0;
+	$initem = 0;
+      }
+    elsif( /^- (.*)$/ )
+      {
+	if( $initem ) { print "</li>"; };
+	print "<ul>\n" if( ! $inlist );
+	$inlist = 1;
+	print "<li>$1\n";
+	$initem = 1;
+      }
+    else { print unless /^$/; }
+  };
+print "</li></ul></li></ul>\n";