# Added by James Austin Copyright (C) 2009 - Verbatim wrapping of Code
sub beforeEditHandler {
    $_[0] =~ s/%CODE{(.*?)}%(.*?)%ENDCODE%/\%CODE\{$1\}\%\n<verbatim>\n$2\n<\/verbatim>\n\%ENDCODE\%/gs;
}

sub beforeSaveHandler {
    my $cleanup = sub {
	my ($code) = @_;
	$code =~ s/\s*<verbatim>//gi;
	$code =~ s/<\/verbatim>\s*//gi;
	$code =~ s/\r//g;
	$code =~ s/^(\s*\n)*//g;
	$code =~ s/(\n\s*)$//g;
	return $code;
    };

    $_[0] =~ s/%CODE{(.*?)}%(.*?)%ENDCODE%/"\%CODE\{$1\}%".&{$cleanup}($2)."\%ENDCODE\%"/gse;
}