Mercurial > hg > Members > anatofuz > slides
diff slide-cr @ 36:74859abd87cc
update cli tool
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 07 May 2018 12:59:27 +0900 |
parents | 952136cc268f |
children | 8972d59ad904 |
line wrap: on
line diff
--- a/slide-cr Tue May 01 09:37:02 2018 +0900 +++ b/slide-cr Mon May 07 12:59:27 2018 +0900 @@ -1,42 +1,8 @@ #!/usr/bin/env perl use strict; use warnings; -use utf8; - -use lib "lib","lib/Slideshow/local/lib/perl5"; - -use Slideshow::Util; -use feature 'say'; - -my $flags = getopts(@ARGV); - -if ( $flags->{help} ){ - help(); - exit; -} - -if ($flags->{new}){ - new(set_template('lib/template.md'),"slides"); -} elsif ($flags->{build}) { - build_recently("slides"); -} elsif ($flags->{build_open}) { - build_recently("slides"); - open_slide("slides"); -} elsif ( $flags->{open}) { - open_slide("slides"); -} elsif ($flags->{memo}) { - edit_memo("slides"); -} elsif ( $flags->{edit}) { - edit_slide("slides"); -} else { - build_pinpoint($flags->{build_point}); -} +use lib 'lib'; +use CLI; - -sub help { - say 'slider [new build build-open open edit]'; -} - - -__END__ +CLI->new(template => $ENV{CR_TEMPLATE}, root_dir => $ENV{CR_ROOT_DIR})->run(@ARGV);