diff lib/Slideshow/Util.pm @ 21:952136cc268f

upgrade directory separate
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 05 Apr 2018 11:27:39 +0900
parents 79a79bbc5c01
children 2eac67c0d7da 74859abd87cc
line wrap: on
line diff
--- a/lib/Slideshow/Util.pm	Tue Mar 06 19:19:37 2018 +0900
+++ b/lib/Slideshow/Util.pm	Thu Apr 05 11:27:39 2018 +0900
@@ -21,6 +21,7 @@
     build_pinpoint 
     open_slide
     edit_slide
+    edit_memo
 /;
 
 sub getopts {
@@ -54,7 +55,8 @@
 
     } elsif ( $arg eq "edit"){
         return { edit=> 1};
-
+    } elsif ( $arg eq "memo"){
+        return { memo => 1};
     } else {
         return { help => 1};
     }
@@ -73,18 +75,22 @@
     my $t = localtime;
 
     # ex... 2018/02/14
-    my $slide = $root_dir->child($t->strftime('%Y%m%d'). '/'.'slide.md')->touchpath;
+    my ($y,$m,$d) = ($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
+    my $slide = $root_dir->child($y .'/'. $m .'/'. $d .'/'.'slide.md')->touchpath;
     $template->copy($slide);
 }
 
 sub _search_recently {
     my ($root_directory_name) = @_;
-    my $root_dir = path($root_directory_name);
     my $t = localtime;
 
-    my $recently = shift @{[sort { $b->stat->mtime <=> $a->stat->mtime } $root_dir->children]};
+    # ex... 2018/02/14
+    my ($y,$m,$d) = ($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
+    my $root_dir = path($root_directory_name.'/'.$y.'/'.$m);
 
-    return $recently;
+    my $date = shift @{ [sort { $b->stat->mtime <=> $a->stat->mtime } $root_dir->children]};
+
+    return $date;
 }
 
 
@@ -105,6 +111,16 @@
    _build($dir,$slide);
 }
 
+sub edit_memo {
+    my $root_dir = path(shift);
+    my $t = localtime;
+
+    # ex... 2018/02/14
+    my ($y,$m,$d) = ($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
+    my $memo = $root_dir->child($y .'/'. $m .'/'. $d .'/'.'memo.txt')->touchpath;
+    exec $ENV{EDITOR}, ($memo->realpath);
+}
+
 sub edit_slide {
     my $recently = _search_recently(shift);
     my $target = $recently->child('slide.md');
@@ -133,7 +149,7 @@
     local $CWD = $dir;
 
     my ($stdout,$stderr,$exit) = capture {
-        system(" slideshow build ${target} -t s6cr");
+        system("slideshow build ${target} -t s6cr");
     };
 
     if ($stderr){