#!/usr/bin/perl use v5.14; use warnings; use CSS::Minifier::XS qw//; use JavaScript::Minifier::XS qw//; use File::Slurp qw/read_file write_file/; mkdir 'static'; mkdir 'static/css'; my $common_css; $common_css .= read_file $_ for ; for () { my ($theme) = m,themes/(.*)\.css,; my $css = read_file $_; $css .= $common_css; write_file "static/css/$theme.css", CSS::Minifier::XS::minify $css; } if (-f 'compiler.jar') { system java => -jar => 'compiler.jar', qw,-O SIMPLE --create_source_map static/js.map --js_output_file static/js.js --language_in ECMASCRIPT5_STRICT --source_map_location_mapping js/|/static/js/,, ; my $js = read_file 'static/js.js'; write_file 'static/js.js', '//# sourceMappingURL=/static/js.map', "\n", $js; system 'cp', '-rp', 'js', 'static/'; } else { my $js; $js .= read_file $_ for ; write_file 'static/js.js', JavaScript::Minifier::XS::minify $js; }