36 lines
576 B
Perl
36 lines
576 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
package IkiWiki::Plugin::localstyle;
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use IkiWiki 3.00;
|
||
|
|
|
||
|
|
sub import {
|
||
|
|
hook(type => "getsetup", id => "localstyle", call => \&getsetup);
|
||
|
|
hook(type => "pagetemplate", id => "localstyle", call => \&pagetemplate);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub getsetup () {
|
||
|
|
return
|
||
|
|
plugin => {
|
||
|
|
safe => 1,
|
||
|
|
rebuild => 1,
|
||
|
|
},
|
||
|
|
}
|
||
|
|
|
||
|
|
sub pagetemplate (@) {
|
||
|
|
my %params=@_;
|
||
|
|
|
||
|
|
my $template=$params{template};
|
||
|
|
|
||
|
|
if ($template->query(name => "local_css")) {
|
||
|
|
my $best=bestlink($params{page}, 'local.css');
|
||
|
|
if ($best) {
|
||
|
|
$template->param(local_css => $best);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
1
|