Mercurial > hg > Members > anatofuz > slides

comparison slide-cr @ 13:967fe50f1ef4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add open and edit mode
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 26 Jan 2018 14:16:04 +0900
parents slide-cr.pl@46b1a85d810b
children 80767afba59c
comparison
equal deleted inserted replaced
12:46b1a85d810b 13:967fe50f1ef4
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 } elsif ( $flags->{open}) {
21 open_slide("slides");
22 } elsif ( $flags->{edit}) {
23 edit_slide("slides");
24 } else {
25 build_pinpoint($flags->{build_point});
26 }
27
28
29 sub help {
30 say 'slider [%options]';
31 }
32
33
34 __END__