]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/txt.pm
e4c9e5d6a086ba59d0a826c0e7378e297454d734
[git.ikiwiki.info.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
7 package IkiWiki::Plugin::txt;
9 use warnings;
10 use strict;
11 use IkiWiki 2.00;
12 use HTML::Entities;
14 my $findurl=0;
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);
21         eval q{use URI::Find};
22         if (! $@) {
23                 $findurl=1;
24         }
25 }
27 sub getsetup () { #{{{
28         return
29                 plugin => {
30                         safe => 1,
31                         rebuild => 1, # format plugin
32                 },
33 } #}}}
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};
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         }
53         return $content;
54 }
56 # We need this to register the .txt file extension
57 sub htmlize (@) {
58         my %params=@_;
59         return $params{content};
60 }
62 1