<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
# By mazirian; GPL license
# Textile markup

package IkiWiki::Plugin::textile;

use warnings;
use strict;
use IkiWiki 3.00;
use Encode;

sub import {
	hook(type =&gt; "getsetup", id =&gt; "textile", call =&gt; \&amp;getsetup);
	hook(type =&gt; "htmlize", id =&gt; "txtl", call =&gt; \&amp;htmlize);
}

sub getsetup () {
	return
		plugin =&gt; {
			safe =&gt; 1,
			rebuild =&gt; 1, # format plugin
		},
}

sub htmlize (@) {
	my %params=@_;
	my $content = decode_utf8(encode_utf8($params{content}));

	eval q{use Text::Textile};
	return $content if $@;
	return Text::Textile::textile($content);
}

1
</pre></body></html>