view slide-cr @ 25:387ca051646f

auto-Update generated slides by script
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 06 Apr 2018 19:35:48 +0900
parents 952136cc268f
children 2eac67c0d7da 74859abd87cc
line wrap: on
line source

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use lib "lib","lib/Slideshow/local/lib/perl5";

use Slideshow::Util;
use feature 'say';

my $flags = getopts(@ARGV);

if ( $flags->{help} ){
    help();
    exit;
}


if ($flags->{new}){
    new(set_template('lib/template.md'),"slides");
} elsif ($flags->{build}) {
   build_recently("slides");
} elsif ($flags->{build_open}) {
   build_recently("slides");
   open_slide("slides");
} elsif ( $flags->{open}) {
    open_slide("slides");
} elsif ($flags->{memo}) {
    edit_memo("slides");
} elsif ( $flags->{edit}) {
    edit_slide("slides");
} else {
    build_pinpoint($flags->{build_point});
}


sub help {
    say 'slider [new build build-open open edit]';
}


__END__