X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f291602d62f584128349e17e1fd0163c946189ab..HEAD:/source.plp

diff --git a/source.plp b/source.plp
index b586dbe..cf22e34 100644
--- a/source.plp
+++ b/source.plp
@@ -83,7 +83,7 @@ else {
 	my $cachefile = "source/$source.html";
 	if (-e $cachefile and (stat $cachefile)->[9] >= (stat $path)->[9]) {
 		say '<pre>';
-		print ReadFile($cachefile);
+		print decode_utf8(ReadFile($cachefile));
 		say '</pre>';
 		exit;
 	}
@@ -99,7 +99,10 @@ else {
 		delete $Text::VimColor::SYNTAX_TYPE{Underlined};
 		return Text::VimColor->new(
 			file => $path,
-			vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'],
+			vim_options => [@Text::VimColor::VIM_OPTIONS,
+				'+:set enc=utf-8',
+				'+:let perl_sub_signatures=1',
+			],
 		)->marked;
 	}) {
 		my %TYPETAG = (
@@ -119,6 +122,9 @@ else {
 			# link other page sources, stylesheets, and javascript
 			$line =~ s{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
 				if !$type || $type eq 'Constant';
+			# link relative page locations in html output
+			$line =~ s{ ^(&quot;)\K (/\w+) (?= (?:/\w+)* \1$) }{ showlink($2, "/source$2.plp") }xe
+				if $type && $type eq 'Constant';
 			# link perl module names (Xx::Xx...)
 			$line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe
 				if !$type;