kig/generate_todo_inc.pl

   1 #! /usr/bin/env perl
   2
   3 use warnings;
   4
   5 print "<ul>\n";
   6 open( TODO, "<TODO" );
   7 while( <TODO> )
   8   {
   9     if( /^\* (.*)$/ )
  10       {
  11         print "</li></ul></li>\n\n" if( $inlist );
  12         print "<li><span style=\"font-weight:bold\">$1</span><br/>\n";
  13         $inlist = 0;
  14         $initem = 0;
  15       }
  16     elsif( /^- (.*)$/ )
  17       {
  18         if( $initem ) { print "</li>"; };
  19         print "<ul>\n" if( ! $inlist );
  20         $inlist = 1;
  21         print "<li>$1\n";
  22         $initem = 1;
  23       }
  24     else { print unless /^$/; }
  25   };
  26 print "</li></ul></li></ul>\n";