108 lines
3.0 KiB
Perl
108 lines
3.0 KiB
Perl
# vim:set sw=4 ts=4 sts=4 ft=perl expandtab:
|
|
package Lufi::Command::theme;
|
|
use Mojo::Base 'Mojolicious::Commands';
|
|
use FindBin qw($Bin);
|
|
use File::Spec qw(catfile catdir);
|
|
use File::Path qw(make_path);
|
|
|
|
has description => 'Create new theme skeleton.';
|
|
has usage => sub { shift->extract_usage };
|
|
has message => sub { shift->extract_usage . "\nCreate new theme skeleton:\n" };
|
|
has namespaces => sub { ['Lufi::Command::theme'] };
|
|
|
|
sub run {
|
|
my $c = shift;
|
|
my $name = shift;
|
|
|
|
unless (defined $name) {
|
|
say $c->extract_usage;
|
|
exit 1;
|
|
}
|
|
|
|
my $home = File::Spec->catdir($Bin, '..', 'themes', $name);
|
|
|
|
unless (-d $home) {
|
|
|
|
# Create skeleton
|
|
mkdir $home;
|
|
mkdir File::Spec->catdir($home, 'public');
|
|
make_path(File::Spec->catdir($home, 'templates', 'layouts'));
|
|
make_path(File::Spec->catdir($home, 'lib', 'Lufi', 'I18N'));
|
|
|
|
my $i18n = <<EOF;
|
|
# vim:set sw=4 ts=4 sts=4 ft=perl expandtab:
|
|
package Lufi::I18N;
|
|
|
|
use base 'Locale::Maketext';
|
|
use File::Basename qw/dirname/;
|
|
use Locale::Maketext::Lexicon {
|
|
_auto => 1,
|
|
_decode => 1,
|
|
_style => 'gettext',
|
|
'*' => [
|
|
Gettext => dirname(__FILE__) . '/I18N/*.po',
|
|
Gettext => dirname(__FILE__) . '/../../../default/lib/Lufi/I18N/*.po',
|
|
]
|
|
};
|
|
|
|
1;
|
|
EOF
|
|
|
|
open my $f, '>', File::Spec->catfile($home, 'lib', 'Lufi', 'I18N.pm') or die "Unable to open $home/lib/Lufi/I18N.pm: $!";
|
|
print $f $i18n;
|
|
close $f;
|
|
|
|
my $makefile = <<EOF;
|
|
EN=lib/Lufi/I18N/en.po
|
|
FR=lib/Lufi/I18N/fr.po
|
|
IT=lib/Lufi/I18N/it.po
|
|
OC=lib/Lufi/I18N/oc.po
|
|
SEDOPTS=-e "s\@SOME DESCRIPTIVE TITLE\@Lufi language file\@" \\
|
|
-e "s\@YEAR THE PACKAGE'S COPYRIGHT HOLDER\@2015 Luc Didry\@" \\
|
|
-e "s\@CHARSET\@utf8\@" \\
|
|
-e "s\@the PACKAGE package\@the Lufi package\@" \\
|
|
-e '/^\\#\\. (/{N;/\\n\\#\\. (/{N;/\\n.*\\.\\.\\/default\\//{s/\\#\\..*\\n.*\\#\\./\\#. (/g}}}' \\
|
|
-e '/^\\#\\. (/{N;/\\n.*\\.\\.\\/default\\//{s/\\n/ /}}'
|
|
SEDOPTS2=-e '/^\\#.*\\.\\.\\/default\\//,+3d'
|
|
XGETTEXT=carton exec ../../local/bin/xgettext.pl
|
|
CARTON=carton exec
|
|
|
|
locales:
|
|
\$(XGETTEXT) -D templates -D ../default/templates -o \$(EN) 2>/dev/null
|
|
\$(XGETTEXT) -D templates -D ../default/templates -o \$(FR) 2>/dev/null
|
|
\$(XGETTEXT) -D templates -D ../default/templates -o \$(IT) 2>/dev/null
|
|
\$(XGETTEXT) -D templates -D ../default/templates -o \$(OC) 2>/dev/null
|
|
sed \$(SEDOPTS) -i \$(EN)
|
|
sed \$(SEDOPTS2) -i \$(EN)
|
|
sed \$(SEDOPTS) -i \$(FR)
|
|
sed \$(SEDOPTS2) -i \$(FR)
|
|
sed \$(SEDOPTS) -i \$(IT)
|
|
sed \$(SEDOPTS2) -i \$(IT)
|
|
sed \$(SEDOPTS) -i \$(OC)
|
|
sed \$(SEDOPTS2) -i \$(OC)
|
|
EOF
|
|
|
|
open $f, '>', File::Spec->catfile($home, 'Makefile') or die "Unable to open $home/Makefile: $!";
|
|
print $f $makefile;
|
|
close $f;
|
|
} else {
|
|
say "$name theme already exists. Aborting.";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
Lufi::Command::theme - Create new theme skeleton.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: script/lufi theme THEME_NAME
|
|
|
|
Your new theme will be available in the themes directory.
|
|
=cut
|
|
|
|
1;
|