* Run page through any relevant filters when generating a page preview.

* Noticed a bug in the wikitext markup plugin -- it made CamelCase links the
  default throughout the wiki, not only on wikitext pages. Decided to call
  this a feature, and split the camelcase support out into a separate plugin
  that is independant of wikitext.

4 files changed, 40 insertions, 20 deletions

diff --git a/IkiWiki/CGI.pm b/IkiWiki/CGI.pm
index 759a49b7d..7360ca998 100644
--- a/IkiWiki/CGI.pm
+++ b/IkiWiki/CGI.pm
@@ -417,7 +417,7 @@ sub cgi_editpage ($$) { #{{{
 		$form->field(name => "comments",
 				value => $comments, force => 1);
 		$form->tmpl_param("page_preview",
-			htmlize($type, linkify($page, $page, $content)));
+			htmlize($type, linkify($page, $page, filter($page, $content))));
 	}
 	else {
 		$form->tmpl_param("page_preview", "");
diff --git a/IkiWiki/Plugin/camelcase.pm b/IkiWiki/Plugin/camelcase.pm
new file mode 100644
index 000000000..0934b27c2
--- /dev/null
+++ b/IkiWiki/Plugin/camelcase.pm
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+# CamelCase links
+package IkiWiki::Plugin::camelcase;
+
+use warnings;
+use strict;
+
+sub import { #{{{
+	IkiWiki::hook(type => "filter", id => "camelcase", call => \&filter);
+} # }}}
+
+sub filter (@) { #{{{
+	my %params=@_;
+
+	# Make CamelCase links work by promoting them to fullfledged
+	# WikiLinks. This regexp is based on the one in Text::WikiFormat.
+	$params{content}=~s#(?<![["/>=])\b((?:[A-Z][a-z0-9]\w*){2,})#[[$1]]#g;
+
+	return $params{content};
+} #}}}
+
+1
diff --git a/IkiWiki/Plugin/wikitext.pm b/IkiWiki/Plugin/wikitext.pm
index 310b86724..8b8cbe75e 100644
--- a/IkiWiki/Plugin/wikitext.pm
+++ b/IkiWiki/Plugin/wikitext.pm
@@ -7,20 +7,9 @@ use strict;
 use Text::WikiFormat;
 
 sub import { #{{{
-	IkiWiki::hook(type => "filter", id => "wiki", call => \&filter);
 	IkiWiki::hook(type => "htmlize", id => "wiki", call => \&htmlize);
 } # }}}
 
-sub filter (@) { #{{{
-	my %params=@_;
-
-	# Make CamelCase links work by promoting them to fullfledged
-	# WikiLinks. This regexp is based on the one in Text::WikiFormat.
-	$params{content}=~s#(?<![["/>=])\b((?:[A-Z][a-z0-9]\w*){2,})#[[$1]]#g;
-
-	return $params{content};
-} #}}}
-
 sub htmlize ($) { #{{{
 	my $content = shift;
 
diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
index 6d5ea9ee5..e5a1679f8 100644
--- a/IkiWiki/Render.pm
+++ b/IkiWiki/Render.pm
@@ -250,6 +250,22 @@ sub findlinks ($$) { #{{{
 	}
 } #}}}
 
+sub filter ($$) {
+	my $page=shift;
+	my $content=shift;
+
+	if (exists $hooks{filter}) {
+		foreach my $id (keys %{$hooks{filter}}) {
+			$content=$hooks{filter}{$id}{call}->(
+				page => $page,
+				content => $content
+			);
+		}
+	}
+
+	return $content;
+}
+
 sub render ($) { #{{{
 	my $file=shift;
 	
@@ -260,14 +276,7 @@ sub render ($) { #{{{
 		my $page=pagename($file);
 		delete $depends{$page};
 		
-		if (exists $hooks{filter}) {
-			foreach my $id (keys %{$hooks{filter}}) {
-				$content=$hooks{filter}{$id}{call}->(
-					page => $page,
-					content => $content
-				);
-			}
-		}
+		$content=filter($page, $content);
 		
 		$links{$page}=[findlinks($page, $content)];