Mercurial > hg > Members > anatofuz > slides
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 }; |