From ac29bbdf285836702e771be231688ecc3aa7a429 Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Sat, 19 Aug 2006 18:27:57 +0000
Subject: add in a hack to improve the look of check marks in outline

---
 IkiWiki/Plugin/otl.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'IkiWiki')

diff --git a/IkiWiki/Plugin/otl.pm b/IkiWiki/Plugin/otl.pm
index 6514f0301..40c529761 100644
--- a/IkiWiki/Plugin/otl.pm
+++ b/IkiWiki/Plugin/otl.pm
@@ -8,7 +8,23 @@ 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 ($) { #{{{
-- 
cgit v1.2.3