X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/f291602d62f584128349e17e1fd0163c946189ab..0dbd385c08032c90c09bf97afe843d4fce619c6f:/source.plp

diff --git a/source.plp b/source.plp
index b586dbe..863ef35 100644
--- a/source.plp
+++ b/source.plp
@@ -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{ ^(")\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;