Mercurial > hg > Members > anatofuz > slides
diff lib/Slideshow/Util.pm @ 33:2eac67c0d7da fix
auto-Update generated slides by script
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 01 May 2018 09:25:17 +0900 |
parents | 952136cc268f |
children | 448db64959d0 |
line wrap: on
line diff
--- a/lib/Slideshow/Util.pm Fri Apr 27 18:18:37 2018 +0900 +++ b/lib/Slideshow/Util.pm Tue May 01 09:25:17 2018 +0900 @@ -22,6 +22,7 @@ open_slide edit_slide edit_memo + upload /; sub getopts { @@ -32,31 +33,19 @@ } if ($arg eq "new") { - return {new => 1}; - + return[\new(set_template('lib/template.md'),"slides")]; } elsif ( $arg eq "upload") { - upload(); - exit; - + return [\upload() ]; } elsif ( $arg eq "build") { - - if(defined $path){ - return { build_point=> $path}; - } else { - return { build => "recent"}; - } - - + return [\build_recently()]; } elsif ( $arg eq "build-open"){ - return { build_open => 1}; - + return [\build_recently("slides"),\open_slide()]; } elsif ( $arg eq "open"){ - return { open => 1}; - + return [\open_slide("slides")]; } elsif ( $arg eq "edit"){ - return { edit=> 1}; + return [\edit_slide("slides")]; } elsif ( $arg eq "memo"){ - return { memo => 1}; + return [\edit_memo("slides")]; } else { return { help => 1}; } @@ -96,7 +85,8 @@ sub build_recently { - my $recently = _search_recently(shift); + my $target = shift // "slides"; + my $recently = _search_recently($target); _build($recently); } @@ -112,7 +102,8 @@ } sub edit_memo { - my $root_dir = path(shift); + my $target = shift // "slides"; + my $root_dir = path($target); my $t = localtime; # ex... 2018/02/14 @@ -122,7 +113,8 @@ } sub edit_slide { - my $recently = _search_recently(shift); + my $arg = shift // "slides"; + my $recently = _search_recently($arg); my $target = $recently->child('slide.md'); exec $ENV{EDITOR}, ($target->realpath); }