source: projects/vine-spec-skeleton/tags/release-0.1/lib/VineLinux/VSS/Type/Elisp.pm @ 488

package VineLinux::VSS::Type::Elisp;

use base qw( VineLinux::VSS::Type );

use VineLinux::VSS::Skeleton::Elisp::InitEl;
use VineLinux::VSS::Skeleton::Elisp::Spec;
use VineLinux::VSS::Skeleton::Elisp::InstallSh;
use VineLinux::VSS::Skeleton::Elisp::RemoveSh;
use VineLinux::VSS::Skeleton::Elisp::VineDefaultEl;

sub generate {
    my $class = shift;

    my $filename = '';
    my @skeleton_data;
    my $tmpl;

    my $package_name = 'sample-mode';
    my $packager_name = 'packager';
    my $packager_fullname = 'Packager Name';
    my $packager_email = 'foo@example.org';
    my %params = (
        package_name => $package_name,
        packager_fullname => $packager_fullname,
        packager_name => $packager_name,
        packager_email => $packager_email,
        generate_date => $class->_current_time
    );
   
    # <package>-init.el
    @skeleton_data = <VineLinux::VSS::Skeleton::Elisp::InitEl::DATA>;
    $tmpl = HTML::Template->new(arrayref => \@skeleton_data,
                                die_on_bad_params => 0);
    $tmpl->param(\%params);
    $filename = $package_name . '-init.el';
    $class->_generate_file($filename, $tmpl->output);


    # vine-default-<package>.el
    @skeleton_data = <VineLinux::VSS::Skeleton::Elisp::VineDefaultEl::DATA>;
    $tmpl = HTML::Template->new(arrayref => \@skeleton_data,
                                die_on_bad_params => 0);
    $tmpl->param(\%params);
    $filename = 'vine-default-' . $package_name . '.el';
    $class->_generate_file($filename, $tmpl->output);

    
    # <package>.spec
    @skeleton_data = <VineLinux::VSS::Skeleton::Elisp::Spec::DATA>;
    $tmpl = HTML::Template->new(arrayref => \@skeleton_data,
                                die_on_bad_params => 0);
    $tmpl->param(\%params);
    $filename = $package_name . '.spec';
    $class->_generate_file($filename, $tmpl->output);


    # <package>-install.sh
    @skeleton_data = <VineLinux::VSS::Skeleton::Elisp::InstallSh::DATA>;
    $tmpl = HTML::Template->new(arrayref => \@skeleton_data,
                                die_on_bad_params => 0);
    $tmpl->param(\%params);
    $filename = $package_name . '-install.sh';
    $class->_generate_file($filename, $tmpl->output);


    # <package>-remove.sh
    @skeleton_data = <VineLinux::VSS::Skeleton::Elisp::RemoveSh::DATA>;
    $tmpl = HTML::Template->new(arrayref => \@skeleton_data,
                                die_on_bad_params => 0);
    $tmpl->param(\%params);
    $filename = $package_name . '-remove.sh';
    $class->_generate_file($filename, $tmpl->output);
}

sub _current_time {
    my $class = shift;
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

    my $e_mon = sprintf("%s", 
                        ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
                         "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")[$mon]);
    my $e_week = sprintf("%s", 
                         ("Sun", "Mon", "Tue", "Wed", "The", "Fri", "Sat")[$wday]);
    
    return sprintf("%s %s %02d %04d", $e_week, $e_mon, $mday, $year + 1900);
}

1;