Mercurial > hg > Members > anatofuz > slides

comparison slide-cr @ 36:74859abd87cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update cli tool
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 07 May 2018 12:59:27 +0900
parents 952136cc268f
children 8972d59ad904
comparison
equal deleted inserted replaced
35:0d0c8ed9adb4 36:74859abd87cc
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;
5 4
6 use lib "lib","lib/Slideshow/local/lib/perl5"; 5 use lib 'lib';
6 use CLI;
7 7
8 use Slideshow::Util; 8 CLI->new(template => $ENV{CR_TEMPLATE}, root_dir => $ENV{CR_ROOT_DIR})->run(@ARGV);
9 use feature 'say';
10
11 my $flags = getopts(@ARGV);
12
13 if ( $flags->{help} ){
14 help();
15 exit;
16 }
17
18
19 if ($flags->{new}){
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
37 sub help {
38 say 'slider [new build build-open open edit]';
39 }
40
41
42 __END__