po plugin: initial work

- .po is a new supported wiki page type
- PO files are rendered verbatim into HTML
- override targetpage to ease Content Negotiation

Signed-off-by: intrigeri <intrigeri@boum.org>

1 files changed, 71 insertions, 0 deletions

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
new file mode 100644
index 000000000..58e184b9b
--- /dev/null
+++ b/IkiWiki/Plugin/po.pm
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+# .po as a wiki page type
+package IkiWiki::Plugin::po;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+use Encode;
+
+sub import {
+	hook(type => "getsetup", id => "po", call => \&getsetup);
+	hook(type => "targetpage", id => "po", call => \&targetpage);
+	hook(type => "filter", id => "po", call => \&filter);
+	hook(type => "htmlize", id => "po", call => \&htmlize);
+}
+
+sub getsetup () { #{{{
+	return
+		plugin => {
+			safe => 0,
+			rebuild => 1, # format plugin
+		},
+		po_supported_languages => {
+			type => "string",
+			example => { 'fr' => { 'name' => 'Français' },
+				    'es' => { 'name' => 'Castellano' },
+				    'de' => { 'name' => 'Deutsch' },
+			},
+			safe => 1,
+			rebuild => 1,
+		},
+} #}}}
+
+sub targetpage (@) { #{{{
+	my %params = @_;
+        my $page=$params{page};
+        my $ext=$params{ext};
+
+	my ($origpage, $lang) = ($page =~ /(.*)[.]([a-z]{2}$)/);
+
+	if (defined $origpage && defined $lang
+	    && (length($origpage) > 0) && (length($lang) > 0)
+	    && defined $config{po_supported_languages}{$lang}) {
+		if (! $config{usedirs} || $page eq 'index') {
+			return $origpage.".".$ext.".".$lang;
+		}
+		else {
+			return $origpage."/index.".$ext.".".$lang;
+		}
+	}
+} #}}}
+
+# We use filter to convert PO to HTML, since the other plugins might do harm to it.
+sub filter (@) { #{{{
+	my %params = @_;
+	my $content = decode_utf8(encode_utf8($params{content}));
+
+	if (defined $pagesources{$params{page}} && $pagesources{$params{page}} =~ /\.po$/) {
+		$content = "<pre>" . $content . "</pre>";
+	}
+
+	return $content;
+} #}}}
+
+# We need this to register the .po file extension
+sub htmlize (@) { #{{{
+	my %params=@_;
+	return $params{content};
+} #}}}
+
+1