--- a/slide-cr	Fri Apr 27 18:18:37 2018 +0900
+++ b/slide-cr	Tue May 01 09:25:17 2018 +0900
@@ -2,37 +2,22 @@
 use strict;
 use warnings;
 use utf8;
+use DDP { deparse => 1 };
 
 use lib "lib","lib/Slideshow/local/lib/perl5";
 
 use Slideshow::Util;
 use feature 'say';
 
-my $flags = getopts(@ARGV);
+my $coderef = getopts(@ARGV);
 
-if ( $flags->{help} ){
+unless ( ref $coderef ){
     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});
-}
-
+p $coderef;
+map { $_->() } @$coderef;
 
 sub help {
     say 'slider [new build build-open open edit]';