Mercurial > hg > Members > anatofuz > slides
view slide-cr @ 13:967fe50f1ef4
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 |
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); help() if $flags->{help}; if ($flags->{new}){ new(set_template('lib/template.md'),"slides"); } elsif ($flags->{build}) { build_recently("slides"); } elsif ( $flags->{open}) { open_slide("slides"); } elsif ( $flags->{edit}) { edit_slide("slides"); } else { build_pinpoint($flags->{build_point}); } sub help { say 'slider [%options]'; } __END__