From 24ae2a38326a771d2ce602d37bff2a3c82ac2ad5 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Fri, 14 Oct 2011 03:23:09 +0200 Subject: Add plugin htmlpacker to squash superfluous space in Markdown content. --- IkiWiki/Plugin/htmlpacker.pm | 40 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 40 insertions(+) create mode 100644 IkiWiki/Plugin/htmlpacker.pm (limited to 'IkiWiki') diff --git a/IkiWiki/Plugin/htmlpacker.pm b/IkiWiki/Plugin/htmlpacker.pm new file mode 100644 index 0000000..39a90b0 --- /dev/null +++ b/IkiWiki/Plugin/htmlpacker.pm @@ -0,0 +1,40 @@ +#!/usr/bin/perl +package IkiWiki::Plugin::htmlpacker; + +# htmlpacker: HTML code cleaner +# +# Copyright 2011 Jonas Smedegaard +# Based on htmlbalance which is... +# Copyright 2008 Simon McVittie +# Licensed under the GNU GPL, version 2, or any later version published by the +# Free Software Foundation + +use warnings; +use strict; +use IkiWiki 3.00; + +sub import { + hook(type => "getsetup", id => "hmtlpacker", call => \&getsetup); + hook(type => "sanitize", id => "hmtlpacker", call => \&sanitize); +} + +sub getsetup () { + return + plugin => { + safe => 1, + rebuild => undef, + }, +} + +sub sanitize (@) { + my %params=@_; + my $ret = ''; + + eval q{use HTML::Packer}; + error $@ if $@; + my $packer = HTML::Packer->init(); + $ret = $packer->minify( \$params{content}, { html5 => $config{html5} } ); + return $ret; +} + +1 -- cgit v1.2.3