git.oblomov.eu Git - ikiwiki/blob - IkiWiki/Plugin/typography.pm

   1 #!/usr/bin/perl
   2
   3 package IkiWiki::Plugin::typography;
   4
   5 use warnings;
   6 use strict;
   7 use IkiWiki 2.00;
   8
   9 sub import { #{{{
  10         IkiWiki::hook(type => "sanitize", id => "typography", call => \&sanitize);
  11 } # }}}
  12
  13 sub sanitize (@) { #{{{
  14         my %params=@_;
  15
  16         eval q{use Text::Typography};
  17         return $params{content} if $@;
  18
  19         return Text::Typography::typography($params{content});
  20 } # }}}
  21
  22 1