comparison lib/Slideshow/Util.pm @ 18:79a79bbc5c01

auto-Update generated slides by script
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 06 Mar 2018 19:11:22 +0900
parents 80767afba59c
children 952136cc268f
comparison
equal deleted inserted replaced
17:b073867b46ba 18:79a79bbc5c01
100 my $target_path = path($target); 100 my $target_path = path($target);
101 101
102 my $dir = $target_path->dirname; 102 my $dir = $target_path->dirname;
103 my $slide = $target_path->basename; 103 my $slide = $target_path->basename;
104 104
105 _build($dir,$slide); 105 _build($dir,$slide);
106 } 106 }
107 107
108 sub edit_slide { 108 sub edit_slide {
109 my $recently = _search_recently(shift); 109 my $recently = _search_recently(shift);
110 my $target = $recently->child('slide.md'); 110 my $target = $recently->child('slide.md');
162 162
163 if ($stderr) { 163 if ($stderr) {
164 say $stderr; 164 say $stderr;
165 croak "didn't commit"; 165 croak "didn't commit";
166 } 166 }
167 167
168 say "[AUTO]hg push"; 168 say "[AUTO]hg push";
169 169
170 ($stdout,$stderr,$exit) = capture { 170 ($stdout,$stderr,$exit) = capture {
171 system('hg push'); 171 system('hg push');
172 }; 172 };