Mercurial > hg > Members > anatofuz > slides

comparison slideshow.pl @ 6:e35e9779078a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
auto-Update generated slides by script
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Thu, 25 Jan 2018 16:59:37 +0900
parents 03ab44e80533
children 80cee8f70ae8
comparison
equal deleted inserted replaced
5:e762bb571a45 6:e35e9779078a
1 #!/usr/bin/env perl 1 #!/usr/bin/env perl
2 use strict; 2 use strict;
3 use warnings; 3 use warnings;
4 use utf8; 4 use utf8;
5 5
6 use lib "lib","lib/Slideshow/local/lib/perl5";
6 7
7 use lib 'lib';
8 use Slideshow::Util; 8 use Slideshow::Util;
9 use Getopt::Long; 9 use feature 'say';
10 10
11 my $new_flag; 11 my $flags = getopts(@ARGV);
12 12
13 GetOptions("new" => \$new_flag) or die("Error at new flags"); 13 help() if $flags->{help};
14 14
15 if ($new_flag){ 15
16 if ($flags->{new}){
16 new(set_template('lib/template.md'),"slides"); 17 new(set_template('lib/template.md'),"slides");
18 } elsif ($flags->{build}) {
19 build_recently("slides");
20 } else {
21 build_pinpoint($flags->{build_point});
17 } 22 }
23
24
25 sub help {
26 say 'slider [%options]';
27 }
28
29
30 __END__
31
32 my $flags = getopts(@ARGV);
33
34 if ($flags->{new}){
35