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