projects
/
plack-app-gruntmaster.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use zopfli if available
[plack-app-gruntmaster.git]
/
make_static.PL
diff --git
a/make_static.PL
b/make_static.PL
index 3374f5cf2a61c7769cb1a5718bd76ef657386ee6..9fd5bcaf62916cb024ac8c59c07f7030a2ff1772 100644
(file)
--- a/
make_static.PL
+++ b/
make_static.PL
@@
-6,6
+6,7
@@
use CSS::Minifier::XS qw/minify/;
use Digest::SHA qw/sha256_base64/;
use IO::Compress::Gzip qw/gzip/;
use File::Slurp qw/read_file write_file edit_file_lines/;
use Digest::SHA qw/sha256_base64/;
use IO::Compress::Gzip qw/gzip/;
use File::Slurp qw/read_file write_file edit_file_lines/;
+use File::Which;
use List::Util qw/first/;
mkdir 'static';
use List::Util qw/first/;
mkdir 'static';
@@
-14,7
+15,15
@@
mkdir 'static/js';
sub gzip_file {
my ($file) = @_;
sub gzip_file {
my ($file) = @_;
- gzip $file => "$file.gz", -Level => 9, Minimal => 1;
+ my $zopfli = which 'zopfli';
+ system $zopfli => $file if $zopfli;
+ gzip $file => "$file.gz", -Level => 9, Minimal => 1 unless $zopfli;
+}
+
+sub write_gzfile {
+ my ($file, @content) = @_;
+ write_file $file, @content;
+ gzip_file $file
}
sub read_css_into_blocks {
}
sub read_css_into_blocks {
@@
-49,18
+58,14
@@
sub make_css {
}
}
}
}
- for my $name (keys %css) {
- write_file "static/css/$name.css", minify $css{$name};
- gzip_file "static/css/$name.css"
- }
+ write_gzfile "static/css/$_.css", minify $css{$_} for keys %css
}
sub make_js {
system java => -jar => 'compiler.jar', qw,-O SIMPLE --create_source_map static/js/js.map --js_output_file static/js/all.js --language_in ECMASCRIPT6_STRICT --language_out ECMASCRIPT5_STRICT --source_map_location_mapping js/|/static/js/,, <js/*>;
my $js = read_file 'static/js/all.js';
}
sub make_js {
system java => -jar => 'compiler.jar', qw,-O SIMPLE --create_source_map static/js/js.map --js_output_file static/js/all.js --language_in ECMASCRIPT6_STRICT --language_out ECMASCRIPT5_STRICT --source_map_location_mapping js/|/static/js/,, <js/*>;
my $js = read_file 'static/js/all.js';
- write_file 'static/js/all.js', '//# sourceMappingURL=/static/js/js.map', "\n", $js;
+ write_
gz
file 'static/js/all.js', '//# sourceMappingURL=/static/js/js.map', "\n", $js;
system 'cp', '-rp', 'js', 'static/';
system 'cp', '-rp', 'js', 'static/';
- gzip_file 'static/js/all.js';
}
my $css_mtime = -M 'static/css/slate.css' // 0;
}
my $css_mtime = -M 'static/css/slate.css' // 0;
This page took
0.009574 seconds
and
4
git commands to generate.