Mercurial > hg > Members > anatofuz > slides

comparison lib/Slideshow/Util.pm @ 5:e762bb571a45

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gather file and direcotory method
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Wed, 24 Jan 2018 23:32:25 +0900
parents 03ab44e80533
children e35e9779078a
comparison
equal deleted inserted replaced
4:03ab44e80533 5:e762bb571a45
27 sub new { 27 sub new {
28 my ($template,$root_directory_name) = @_; 28 my ($template,$root_directory_name) = @_;
29 my $root_dir = path($root_directory_name); 29 my $root_dir = path($root_directory_name);
30 my $t = localtime; 30 my $t = localtime;
31 31
32 my $day_dir = $root_dir->child($t->strftime('%Y%m%d')); 32 # ex... 2018/02/14
33 $day_dir->mkpath; 33 my $slide = $root_dir->child($t->strftime('%Y%m%d'). '/'.'slide.md')->touchpath;
34
35 my $slide = $day_dir->child('slide.md');
36 $slide->touch;
37 # $slide->copy($template);
38 $template->copy($slide); 34 $template->copy($slide);
39 } 35 }
40 36
41 sub make_recently { 37 sub make_recently {
42 38