X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/02e4b42034e62cacaf4c4a6bb7ca296e7dc8528d..1aac0b5a60b8445422f44325870cbf6c28c57196:/IkiWiki/Plugin/otl.pm

diff --git a/IkiWiki/Plugin/otl.pm b/IkiWiki/Plugin/otl.pm
index 6514f0301..be339c88e 100644
--- a/IkiWiki/Plugin/otl.pm
+++ b/IkiWiki/Plugin/otl.pm
@@ -8,10 +8,28 @@ use IkiWiki;
 use IPC::Open2;
 
 sub import { #{{{
+	IkiWiki::hook(type => "filter", id => "otl", call => \&filter);
 	IkiWiki::hook(type => "htmlize", id => "otl", call => \&htmlize);
+
+} # }}}
+
+sub filter (@) { #{{{
+	my %params=@_;
+        
+	# Munge up check boxes to look a little bit better. This is a hack.
+	my $checked=IkiWiki::htmllink($params{page}, $params{page},
+		"smileys/star_on.png", 0);
+	my $unchecked=IkiWiki::htmllink($params{page}, $params{page},
+		"smileys/star_off.png", 0);
+	$params{content}=~s/^(\s*)\[X\]\s/${1}$checked /mg;
+	$params{content}=~s/^(\s*)\[_\]\s/${1}$unchecked /mg;
+        
+	return $params{content};
 } # }}}
 
-sub htmlize ($) { #{{{
+sub htmlize (@) { #{{{
+	my %params=@_;
+
 	my $tries=10;
 	while (1) {
 		eval {
@@ -21,14 +39,14 @@ sub htmlize ($) { #{{{
 		$tries--;
 		if ($tries < 1) {
 			IkiWiki::debug("failed to run otl2html: $@");
-			return shift;
+			return $params{content};
 		}
 	}
 	# open2 doesn't respect "use open ':utf8'"
 	binmode (IN, ':utf8'); 
 	binmode (OUT, ':utf8'); 
 	
-	print OUT shift;
+	print OUT $params{content};
 	close OUT;
 
 	local $/ = undef;