1 files changed, 61 insertions, 0 deletions
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