--- a/o2s5.source	Fri Sep 23 23:05:08 2011 +0900
+++ b/o2s5.source	Sat Sep 24 04:00:11 2011 +0900
@@ -2,26 +2,27 @@
 
 
 
-$depth = 0;
-$section = 1;
-$note = 1;
-$abstract = 0;
-$current = fh000;
-$tag = "content000";
+my $depth = 0;
+my $section = 1;
+my $note = 1;
+my $abstract = 0;
+my $current = fh000;
+my $tag = "content000";
 
-$back = "white";
-$fore = "black";
+my $back = "white";
+my $fore = "black";
 
-$subtitle = '';
-$affilation = '';
-$closing = "</li>";
-$opening = '<li class="slide">';
-$xoxo = '';
+my $subtitle = '';
+my $affilation = '';
+my $closing = "</div>";
+my $opening = '<div class="slide">';
+my $xoxo = '';
 
-$tfont = 1;
+my $tfont = 1;
 
-$ul = 0;
-$theme = "default";
+my $ul = 0;
+my $theme = "default";
+my $in_title = "";
 
 @opt  = grep(! /\.ind/,@ARGV);
 @ARGV = grep(  /\.ind/,@ARGV);
@@ -32,6 +33,12 @@
 	$theme = "pixel";
     } elsif (grep(/-f/,@opt)) {
 	$theme = "flower";
+    } elsif (grep(/-n/,@opt)) {
+	$theme = "nautilus";
+    } elsif (grep(/-i/,@opt)) {
+	$theme = "i18n";
+    } elsif (grep(/-b/,@opt)) {
+	$theme = "blue";
     } elsif (grep(/-2/,@opt)) {
 	$closing = "</div>";
 	$opening = '<div class="slide">';
@@ -88,6 +95,7 @@
 <h1>$title</h1>
 
 <p><a>$author</a>,
+$in_title
 <br />
 <br />
 <br />
@@ -156,6 +164,7 @@
 <h2>$subtitle</h2>
 <h3>$author</h3>
 <h4>$affilation</h4>
+$in_title
 
 RogueRogue
 
@@ -168,7 +177,7 @@
 }
 
 sub o2s5 {
-local($current) = @_;
+my ($current) = @_;
 %content = ();
 
 my $in_comment = 0;
@@ -293,7 +302,10 @@
 	$tag++;
 	next line;
     }
-    next if ($title ne 'done');
+    if ($title ne 'done') {
+	$in_title .= $_;
+	next;
+    }
 
     if (/^\t/) {
 	if (! $ul) {