IkiWiki/Plugin/htmlpacker.pm



#!/usr/bin/perl
package IkiWiki::Plugin::htmlpacker;

# htmlpacker: HTML code cleaner
#
# Copyright 2011 Jonas Smedegaard <dr@jones.dk>
# Based on htmlbalance which is...
# Copyright 2008 Simon McVittie <http://smcv.pseudorandom.co.uk/>
# 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