# HG changeset patch # User Shinji KONO # Date 1357798428 -32400 # Node ID b46ef6dc302a58afc10d02080b3b4a4394fe63c3 # Parent 47e80dcfe3168b0f7efd2dd457a8208673524930 o2s5 fix diff -r 47e80dcfe316 -r b46ef6dc302a Alice.mm --- a/Alice.mm Tue Jan 08 17:52:41 2013 +0900 +++ b/Alice.mm Thu Jan 10 15:13:48 2013 +0900 @@ -40,6 +40,52 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff -r 47e80dcfe316 -r b46ef6dc302a presen/o2s5 --- a/presen/o2s5 Tue Jan 08 17:52:41 2013 +0900 +++ b/presen/o2s5 Thu Jan 10 15:13:48 2013 +0900 @@ -5,8 +5,8 @@ my $o = '-'; use Getopt::Std; -our($opt_s); -getopts('s:'); +our($opt_s, $opt_p, $opt_f, $opt_n, $opt_i, $opt_b, $opt_g, $opt_2); +getopts('s:pfnibg2'); if ($opt_s) { $o = $opt_s; } @@ -29,6 +29,8 @@ my $tfont = 1; my $slidy_init; my $init; +my $ending = "\n\n"; +my $so = "

"; my $se ="

"; my $ul = 0; my $theme = "default"; @@ -53,26 +55,25 @@ my @depend; -my @opt = grep(! /\.ind/,@ARGV); @ARGV = grep( /\.ind/,@ARGV); sub title_init { - if (grep(/-p/,@opt)) { + if ($opt_p) { $theme = "pixel"; - } elsif (grep(/-f/,@opt)) { + } elsif ($opt_f) { $theme = "flower"; - } elsif (grep(/-n/,@opt)) { + } elsif ($opt_n) { $theme = "nautilus"; - } elsif (grep(/-i/,@opt)) { + } elsif ($opt_i) { $theme = "i18n"; - } elsif (grep(/-b/,@opt)) { + } elsif ($opt_b) { $theme = "blue"; - } elsif (grep(/-g/,@opt)) { + } elsif ($opt_g) { $theme = "google"; $closing = ""; $opening = '
'; - } elsif (grep(/-2/,@opt)) { + } elsif ($opt_2) { $closing = ""; $opening = '
'; } else { @@ -205,7 +206,7 @@ &init_google(); return; } - if (grep(/-2/,@opt)) { + if ($opt_2) { $closing = "
"; $opening = '
'; $init = $slidy_init; @@ -215,7 +216,10 @@ sub init_google { - $init = <<"RogueRogue"; + $closing = "
"; + $opening = '
'; + $so = "

"; $se ="

"; + $init = <<"RogueRogue";