root/markdown-tools/mkd2s5

#!/usr/bin/env perl
# Copyright (c) 2009, Sébastien Bocahu <zecrazytux@zecrazytux.net>
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
#     * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#     * Redistributions in binary form must reproduce the above copyright
#     notice, this list of conditions and the following disclaimer in the
#     documentation and/or other materials provided with the distribution.
#     * Neither the name of Bearstech nor the names of its contributors
# may be used to endorse or promote products derived from this software without
# specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
# OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
# THE POSSIBILITY OF SUCH DAMAGE.


# mkd2s5 - markdown to s5 slideshow converter
# Homepage: http://dev.zecrazytux.net/trac/wiki/markdown-tools#mkd2s5

# 2009-11-08: Splitted code into a module to be required and smaller scripts
# 2009-10-26: rewritten this small hack in perl to replace my sh implementation
#               * added syntax highlighting thanks to vim (optional)

use strict;
use warnings;
use Template;
use Getopt::Long;

push(@INC, '/usr/lib/markdown-tools',
           '/usr/pkg/lib/markdown-tools',
           '/usr/lib/markdown-tools', '.');
require('mkdtools-functions.pl');

my $tool_name = 'mkd2s5';
my $tool_version = 0.1.1;
my $tool_license = 'BSD';

my $markdowncmd;
my $help;
my $version;
my $tpl = 's5';
my $in;
my $author = 'lolguy';
my $email = 'root@localhost';
my $company = 'Lonesome Cowboy';
my $title = 'Untitled';
my $date = `date +%x`;
my $synthaxhighlighting;

GetOptions(
        'i|in=s'                => \$in,
        't|template=s'          => \$tpl,
        'm|markdown=s'          => \$markdowncmd,
        'a|author=s'            => \$author,
        'e|email=s'             => \$email,
        'c|company=s'           => \$company,
        'T|title=s'             => \$title,
        'h|help'                => \$help,
        'v|version'             => \$version,
        'd|date=s'              => \$date,
        's|syntax-highlighting' => \$synthaxhighlighting,
);

usage() if ($help or !$in);
version($tool_name, $tool_version, $tool_license) if $version;

# looks like fuckage eh ?§?1
# <h2> tags delimit the slides
my $output = join("", mkdandvimthis($in, $markdowncmd, $synthaxhighlighting));
$output =~ s/<h2>/-SLIDE+<h2>/gi;
my @slides = split(/-SLIDE\+/, $output);

my $data = {
  main          => \@slides,
  author        => $author,
  email         => $email,
  company       => $company,
  title         => $title,
  date          => $date,
};

# template toolkit permit us to create custom s5 templates
# (themes, standalone/or not, blalah)
my $template = Template->new( { INCLUDE_PATH => [
  '/usr/local/share/markdown-tools',
  '/usr/share/markdown-tools',
  '/usr/pkg/share/markdown-tools',
  '.', $ENV{'HOME'}."/.markdown-tools", ] } );

$template->process($tpl, $data) ||
  die "Error while openning template $tpl";


# -h, --help
sub usage {
  print <<EOF;
$0 -i inputfile [options]

Options:

-t, --template                  Template to use (default s5)
-m, --markdown                  Markdown command (default markdown-discount)
-a, --author                    Author name
-e, --email                     Author email
-c, --company                   Author's company, event name, organization...
-T, --title                     Presentation title (default is first <h1>)
-d, --date                      Date (default is current date)
-s, --syntax-highlighting       Enable syntax highlighting (require vim)
EOF
  exit 2;
}