]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Plugin/txt.pm
formatting
[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 2.00;
12 use HTML::Entities;
13 require URI::Find;
14
15 sub import {
16         hook(type => "filter",  id => "txt", call => \&filter);
17         hook(type => "htmlize", id => "txt", call => \&htmlize);
18 }
19
20 # We use filter to convert raw text to HTML
21 # (htmlize is called after other plugins insert HTML)
22 sub filter (@) {
23         my %params = @_;
24         my $content = $params{content};
25
26         if ($pagesources{$params{page}} =~ /.txt$/) {
27                 encode_entities($content);
28                 my $finder = URI::Find->new(
29                 sub {
30                         my ($uri, $orig_uri) = @_;
31                         return qq|<a href="$uri">$orig_uri</a>|;
32                 });
33                 $finder->find(\$content);
34                 $content = "<pre>" . $content . "</pre>";
35         }
36
37         return $content;
38 }
39
40 # We need this to register the .txt file extension
41 sub htmlize (@) {
42         my %params=@_;
43         return $params{content};
44 }
45
46 1