#!/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__