summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin
diff options
context:
space:
mode:
Diffstat (limited to 'IkiWiki/Plugin')
-rw-r--r--IkiWiki/Plugin/inline.pm2
-rw-r--r--IkiWiki/Plugin/meta.pm61
2 files changed, 62 insertions, 1 deletions
diff --git a/IkiWiki/Plugin/inline.pm b/IkiWiki/Plugin/inline.pm
index 6ecdf0d38..b22109a93 100644
--- a/IkiWiki/Plugin/inline.pm
+++ b/IkiWiki/Plugin/inline.pm
@@ -100,7 +100,7 @@ sub get_inline_content ($$) { #{{{
my $file=$pagesources{$page};
my $type=pagetype($file);
if ($type ne 'unknown') {
- return htmlize($type, linkify($page, $parentpage, readfile(srcfile($file))));
+ return htmlize($type, preprocess($page, linkify($page, $parentpage, readfile(srcfile($file))), 1));
}
else {
return "";
diff --git a/IkiWiki/Plugin/meta.pm b/IkiWiki/Plugin/meta.pm
new file mode 100644
index 000000000..8244cf718
--- /dev/null
+++ b/IkiWiki/Plugin/meta.pm
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+# Ikiwiki metadata plugin.
+package IkiWiki::Plugin::meta;
+
+use warnings;
+use strict;
+use IkiWiki;
+
+my %meta;
+my %title;
+
+sub import { #{{{
+ IkiWiki::hook(type => "preprocess", id => "meta",
+ call => \&preprocess);
+ IkiWiki::hook(type => "pagetemplate", id => "meta",
+ call => \&pagetemplate);
+} # }}}
+
+sub preprocess (@) { #{{{
+ if (! @_) {
+ return "";
+ }
+ my %params=@_;
+ my $key=shift;
+ my $value=$params{$key};
+ delete $params{$key};
+ my $page=$params{page};
+ delete $params{page};
+
+ if ($key eq 'link') {
+ if (%params) {
+ $meta{$page}='' unless exists $meta{$page};
+ $meta{$page}.="<link href=\"$value\" ".
+ join(" ", map { "$_=\"$params{$_}\"" } keys %params).
+ " />\n";
+ }
+ else {
+ # hidden WikiLink
+ push @{$IkiWiki::links{$page}}, $value;
+ }
+ }
+ elsif ($key eq 'title') {
+ $title{$page}=$value;
+ }
+ else {
+ $meta{$page}='' unless exists $meta{$page};
+ $meta{$page}.="<meta name=\"$key\" content=\"$value\" />\n";
+ }
+
+ return "";
+} # }}}
+
+sub pagetemplate ($$) { #{{{
+ my $page=shift;
+ my $template=shift;
+
+ $template->param(meta => $meta{$page}) if exists $meta{$page};
+ $template->param(title => $title{$page}) if exists $title{$page};
+} # }}}
+
+1