po plugin: implemented po_link_to=current

[git.ikiwiki.info.git] / IkiWiki / Plugin / po.pm

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index e331338576b6c46300b1d135b456a65f79902aff..4b29909219ba5a7bb6020943b1d1ce09e08a4112 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -16,6 +16,7 @@ sub import {
        hook(type => "checkconfig", id => "po", call => \&checkconfig);
        hook(type => "targetpage", id => "po", call => \&targetpage);
        hook(type => "tweakurlpath", id => "po", call => \&tweakurlpath);
+       hook(type => "tweakbestlink", id => "po", call => \&tweakbestlink);
        hook(type => "filter", id => "po", call => \&filter);
        hook(type => "preprocess", id => "translatable", call => \&preprocess_translatable);
        hook(type => "htmlize", id => "po", call => \&htmlize);
@@ -105,6 +106,19 @@ sub tweakurlpath ($) { #{{{
        return $url;
 } #}}}
 
+sub tweakbestlink ($$) { #{{{
+       my %params = @_;
+       my $page=$params{page};
+       my $link=$params{link};
+       if ($config{po_link_to} eq "current" && pagespec_match($link, "istranslatable()")) {
+               if (pagespec_match($page, "istranslation()")) {
+                       my ($masterpage, $curlang) = ($page =~ /(.*)[.]([a-z]{2})$/);
+                       return $link . "." . $curlang;
+               }
+       }
+       return $link;
+} #}}}
+
 # We use filter to convert PO to the master page's type,
 # since other plugins should not work on PO files
 sub filter (@) { #{{{