Mercurial > hg > Members > anatofuz > slides
comparison slide-cr.pl @ 12:46b1a85d810b
auto-Update generated slides by script
| author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Thu, 25 Jan 2018 22:18:40 +0900 |
| parents | slide_cr.pl@d3d4db8a0e2c |
| children |
comparison
equal
deleted
inserted
replaced
| 11:805ada9caa5d | 12:46b1a85d810b |
|---|---|
| 1 #!/usr/bin/env perl | |
| 2 use strict; | |
| 3 use warnings; | |
| 4 use utf8; | |
| 5 | |
| 6 use lib "lib","lib/Slideshow/local/lib/perl5"; | |
| 7 | |
| 8 use Slideshow::Util; | |
| 9 use feature 'say'; | |
| 10 | |
| 11 my $flags = getopts(@ARGV); | |
| 12 | |
| 13 help() if $flags->{help}; | |
| 14 | |
| 15 | |
| 16 if ($flags->{new}){ | |
| 17 new(set_template('lib/template.md'),"slides"); | |
| 18 } elsif ($flags->{build}) { | |
| 19 build_recently("slides"); | |
| 20 } else { | |
| 21 build_pinpoint($flags->{build_point}); | |
| 22 } | |
| 23 | |
| 24 | |
| 25 sub help { | |
| 26 say 'slider [%options]'; | |
| 27 } | |
| 28 | |
| 29 | |
| 30 __END__ |