initial version

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