summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--IkiWiki/Plugin/plaintext.pm45
1 files changed, 45 insertions, 0 deletions
diff --git a/IkiWiki/Plugin/plaintext.pm b/IkiWiki/Plugin/plaintext.pm
new file mode 100644
index 000000000..eaa2725b9
--- /dev/null
+++ b/IkiWiki/Plugin/plaintext.pm
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+# Plaintext as a wiki page type - links WikiLinks and URIs.
+#
+# Copyright (C) 2008 Gabriel McManus <gmcmanus@gmail.com>
+# Licensed under the GNU General Public License, version 2 or later
+
+package IkiWiki::Plugin::plaintext;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+use HTML::Entities;
+require URI::Find;
+
+sub import {
+ hook(type => "filter", id => "txt", call => \&filter);
+ hook(type => "htmlize", id => "txt", call => \&htmlize);
+}
+
+# We use filter to convert raw text to HTML
+# (htmlize is called after other plugins insert HTML)
+sub filter (@) {
+ my %params = @_;
+ my $content = $params{content};
+
+ if ($pagesources{$params{page}} =~ /.txt$/) {
+ encode_entities($content);
+ my $finder = URI::Find->new(
+ sub {
+ my($uri, $orig_uri) = @_;
+ return qq|<a href="$uri">$orig_uri</a>|;
+ });
+ $finder->find(\$content);
+ $content = "<pre>" . $content . "</pre>";
+ }
+ return $content;
+}
+
+# We need this to register the .txt file extension
+sub htmlize (@) {
+ my %params=@_;
+ return $params{content};
+}
+
+1