File indexing completed on 2022-09-20 18:40:16

0001 #! /usr/bin/env perl
0002 
0003 use warnings;
0004 
0005 print "<ul>\n";
0006 open( TODO, "<TODO" );
0007 while( <TODO> )
0008   {
0009     if( /^\* (.*)$/ )
0010       {
0011     print "</li></ul></li>\n\n" if( $inlist );
0012     print "<li><span style=\"font-weight:bold\">$1</span><br/>\n";
0013     $inlist = 0;
0014     $initem = 0;
0015       }
0016     elsif( /^- (.*)$/ )
0017       {
0018     if( $initem ) { print "</li>"; };
0019     print "<ul>\n" if( ! $inlist );
0020     $inlist = 1;
0021     print "<li>$1\n";
0022     $initem = 1;
0023       }
0024     else { print unless /^$/; }
0025   };
0026 print "</li></ul></li></ul>\n";