finalise version 3.00 of the plugin api
[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 3.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                 plugin => {
28                         safe => 1,
29                         rebuild => 1,
30                 },
31                 typographyattributes => {
32                         type => "string",
33                         example => "3",
34                         description => "Text::Typography attributes value",
35                         advanced => 1,
36                         safe => 1,
37                         rebuild => 1,
38                 },
39 }
40
41 sub sanitize (@) {
42         my %params=@_;
43
44         eval q{use Text::Typography};
45         return $params{content} if $@;
46
47         my $attributes=defined $config{typographyattributes} ? $config{typographyattributes} : '3';
48         return Text::Typography::typography($params{content}, $attributes);
49 }
50
51 1