test commit

diff --git a/markup.pl b/markup.pl
index cc40243..ff423ba 100755 (executable)
--- a/markup.pl
+++ b/markup.pl
@@ -97,16 +97,17 @@ while( my $l = <> ) {
 }
 
 sub ulist {
-    my $l = shift @_;
+    if( $l =~ m/^☆(リスト.*)$/ ) {
+      $cap = $1;
+    }
 
-    print "<ul>\n";
-    while( $l =~ m/^・/ ) {
-      $l =~ s/^・(.*)$/<li>$1<\/li>/;
-      print "$l\n";
-      $l = <>;
+    print "<p><b>$cap</b></p>\n";
+    print list_start( $cap );
+    while( $l = <> ) {
       chomp $l;
-    }
-    print "</ul>\n\n";
+      $l =~ s/&/&amp;/g;
+      $l =~ s/</&lt;/g;
+      $l =~ s/>/&gt;/g;
 }
 
 sub list {