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