Mercurial > hg > Members > anatofuz > slides

comparison slide-cr @ 33:2eac67c0d7da fix

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 Tue, 01 May 2018 09:25:17 +0900
parents 952136cc268f
children
comparison
equal deleted inserted replaced
32:2f99cb7078f2 33:2eac67c0d7da
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 use DDP { deparse => 1 };
5 6
6 use lib "lib","lib/Slideshow/local/lib/perl5"; 7 use lib "lib","lib/Slideshow/local/lib/perl5";
7 8
8 use Slideshow::Util; 9 use Slideshow::Util;
9 use feature 'say'; 10 use feature 'say';
10 11
11 my $flags = getopts(@ARGV); 12 my $coderef = getopts(@ARGV);
12 13
13 if ( $flags->{help} ){ 14 unless ( ref $coderef ){
14 help(); 15 help();
15 exit; 16 exit;
16 } 17 }
17 18
18 19 p $coderef;
19 if ($flags->{new}){ 20 map { $_->() } @$coderef;
20 new(set_template('lib/template.md'),"slides");
21 } elsif ($flags->{build}) {
22 build_recently("slides");
23 } elsif ($flags->{build_open}) {
24 build_recently("slides");
25 open_slide("slides");
26 } elsif ( $flags->{open}) {
27 open_slide("slides");
28 } elsif ($flags->{memo}) {
29 edit_memo("slides");
30 } elsif ( $flags->{edit}) {
31 edit_slide("slides");
32 } else {
33 build_pinpoint($flags->{build_point});
34 }
35
36 21
37 sub help { 22 sub help {
38 say 'slider [new build build-open open edit]'; 23 say 'slider [new build build-open open edit]';
39 } 24 }
40 25