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);