8599bdc8ec881429472ef19f760113f27d0a678f
[ikiwiki.git] / IkiWiki / Plugin / txt.pm
1 #!/usr/bin/perl
2 # .txt as a wiki page type - links WikiLinks and URIs.
3 #
4 # Copyright (C) 2008 Gabriel McManus <gmcmanus@gmail.com>
5 # Licensed under the GNU General Public License, version 2 or later
6
7 package IkiWiki::Plugin::txt;
8
9 use warnings;
10 use strict;
11 use IkiWiki 3.00;
12 use HTML::Entities;
13
14 my $findurl=0;
15
16 sub import {
17         hook(type => "getsetup", id => "txt", call => \&getsetup);
18         hook(type => "filter", id => "txt", call => \&filter);
19         hook(type => "htmlize", id => "txt", call => \&htmlize);
20
21         eval q{use URI::Find};
22         if (! $@) {
23                 $findurl=1;
24         }
25 }
26
27 sub getsetup () {
28         return
29                 plugin => {
30                         safe => 1,
31                         rebuild => 1, # format plugin
32                 },
33 }
34
35 # We use filter to convert raw text to HTML
36 # (htmlize is called after other plugins insert HTML)
37 sub filter (@) {
38         my %params = @_;
39         my $content = $params{content};
40
41         if (defined $pagesources{$params{page}} && $pagesources{$params{page}} =~ /\.txt$/) {
42                 encode_entities($content, "<>&");
43                 if ($findurl) {
44                         my $finder = URI::Find->new(sub {
45                                 my ($uri, $orig_uri) = @_;
46                                 return qq|<a href="$uri">$orig_uri</a>|;
47                         });
48                         $finder->find(\$content);
49                 }
50                 $content = "<pre>" . $content . "</pre>";
51         }
52
53         return $content;
54 }
55
56 # We need this to register the .txt file extension
57 sub htmlize (@) {
58         my %params=@_;
59         return $params{content};
60 }
61
62 1