Make sprites during build

[gruntmaster-page.git] / make_static.PL

#!/usr/bin/perl
use v5.14;
use warnings;

use CSS::Minifier::XS qw//;
use CSS::SpriteMaker;
use JavaScript::Minifier::XS qw//;

use File::Slurp qw/read_file write_file/;

mkdir 'static';
mkdir 'static/css';

my $maker = Local::CSS::SpriteMaker->new(
	css_class_prefix => 'logo-',
	rc_override_classname => sub {
		my ($name) = @_;
		$name =~ s/-light/.logo-light/r;
	}
);

$maker->make_sprite(
	source_images     => ['logos/'],
	target_file       => 'static/logos.png',
	add_extra_padding => 10,
);

$maker->print_css(
	filename        => 'css/logos.css',
	sprite_filename => 'https://static.mindcoding.ro/static/logos.png',
);

my $common_css;
$common_css .= read_file $_ for <css/*.css>;
for (<css/themes/*>) {
	my ($theme) = m,themes/(.*)\.css,;
	my $css = read_file $_;
	$css .= $common_css;
	write_file "static/css/$theme.css", CSS::Minifier::XS::minify $css;
}

my $js;
$js .= read_file $_ for <js/*.js>;
write_file 'static/js.js', JavaScript::Minifier::XS::minify $js;

package
  Local::CSS::SpriteMaker;

use parent qw/CSS::SpriteMaker/;

sub _get_stylesheet_string {
	my $self = shift;
	my @ret = split "\n", $self->SUPER::_get_stylesheet_string(@_);
	shift @ret;
	@ret = sort @ret;
	unshift @ret, <<EOF;
a.logo {
	background-image: url("https://static.mindcoding.ro/static/logos.png");
	background-repeat: no-repeat;
	display: inline-block;
	vertical-align: middle;
}
EOF
	join "\n", @ret;
}