keyboard/altgr: legacy space cadet layout

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index b586dbe2b028d439a5ee069b2520cc41c04e3e15..863ef35348dfb522bc7374318256ab2197ae4248 100644 (file)
--- 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;