po(nicepagetitle): append translation status to links to translated pages

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

diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 93274ba1300ac774bdd39912d61172a72589191b..2927759754f0832fc324aafe9f7258ccb7619e5f 100644 (file)
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -490,7 +490,9 @@ sub myurlto ($$;$) { #{{{
 sub mynicepagetitle ($;$) { #{{{
        my ($page, $unescaped) = (shift, shift);
 
-       return $origsubs{'nicepagetitle'}->($page, $unescaped);
+       my $res = $origsubs{'nicepagetitle'}->($page, $unescaped);
+       return $res unless istranslation($page);
+       return $res." (".percenttranslated($page).")";
 } #}}}
 
 # ,----