Merge branch 'tova' into autoconfig
[ikiwiki.git] / 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         hook(type => "getopt", id => "typography", call => \&getopt);
11         hook(type => "getsetup", id => "typography", call => \&getsetup);
12         IkiWiki::hook(type => "sanitize", id => "typography", call => \&sanitize);
13 } # }}}
14
15 sub getopt () { #{{{
16         eval q{use Getopt::Long};
17         error($@) if $@;
18         Getopt::Long::Configure('pass_through');
19         GetOptions("typographyattributes=s" => \$config{typographyattributes});
20 } #}}}
21
22 sub getsetup () { #{{{
23         eval q{use Text::Typography};
24         error($@) if $@;
25
26         return
27                 typographyattributes => {
28                         type => "string",
29                         example => "3",
30                         description => "Text::Typography attributes value",
31                         safe => 1,
32                         rebuild => 1,
33                 },
34 } #}}}
35
36 sub sanitize (@) { #{{{
37         my %params=@_;
38
39         eval q{use Text::Typography};
40         return $params{content} if $@;
41
42         my $attributes=defined $config{typographyattributes} ? $config{typographyattributes} : '3';
43         return Text::Typography::typography($params{content}, $attributes);
44 } # }}}
45
46 1