From 24ae2a38326a771d2ce602d37bff2a3c82ac2ad5 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
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 <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
-- 
cgit v1.2.3