X-Git-Url: https://scripts.mit.edu/gitweb/www/ikiwiki.git/blobdiff_plain/a14548a6ca2bf384408b2a5f58aa337f55a392bf..9412876ffdc8bb868b310d9e07bd90867e3ca36b:/IkiWiki/Plugin/haiku.pm
diff --git a/IkiWiki/Plugin/haiku.pm b/IkiWiki/Plugin/haiku.pm
index e2873ec6f..bf23dce67 100644
--- a/IkiWiki/Plugin/haiku.pm
+++ b/IkiWiki/Plugin/haiku.pm
@@ -4,19 +4,28 @@ package IkiWiki::Plugin::haiku;
use warnings;
use strict;
-use IkiWiki;
+use IkiWiki 3.00;
-sub import { #{{{
- IkiWiki::hook(type => "preprocess", id => "haiku",
- call => \&preprocess);
-} # }}}
+sub import {
+ hook(type => "getsetup", id => "haiku", call => \&getsetup);
+ hook(type => "preprocess", id => "haiku", call => \&preprocess);
+}
-sub preprocess (@) { #{{{
+sub getsetup {
+ return
+ plugin => {
+ safe => 1,
+ rebuild => undef,
+ section => "widget",
+ },
+}
+
+sub preprocess (@) {
my %params=@_;
my $haiku;
eval q{use Coy};
- if ($@) {
+ if ($@ || ! Coy->can("Coy::with_haiku")) {
my @canned=(
"The lack of a Coy:
No darting, subtle haiku.
@@ -43,9 +52,9 @@ sub preprocess (@) { #{{{
}
$haiku=~s/^\s+//mg;
- $haiku=~s/\n/
\n/mg;
+ $haiku=~s/\n/
\n/mg;
- return "\n\n
$haiku\n\n"; -} # }}} + return "\n\n
\n\n"; +} 1$haiku