keyboard/altgr/index: move ctrl rows to distinct inventory mode

[sheet.git] / source.plp

diff --git a/source.plp b/source.plp
index e07087d6115ac38bf19089f669d926a0631aef9d..81b340886240d263439fde095a222862cf031a2d 100644 (file)
--- a/source.plp
+++ b/source.plp
@@ -29,7 +29,7 @@ if ($source =~ s{(?<=\Q.inc.pl\E)/jsonp?$}{} and -r $source) {
 
 Html({
        title => "$source source code",
 
 Html({
        title => "$source source code",

-       version => '1.3',
+       version => '1.4',

        description => !$source ? 'Index of source files for this site.' : [
                "Source code of the $source file at this site,",
                "with syntax highlighted and references linked."
        description => !$source ? 'Index of source files for this site.' : [
                "Source code of the $source file at this site,",
                "with syntax highlighted and references linked."


@@ -83,7 +83,7 @@ else {
        my $cachefile = "source/$source.html";
        if (-e $cachefile and (stat $cachefile)->[9] >= (stat $path)->[9]) {
                say '<pre>';
        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;
        }
                say '</pre>';
                exit;
        }


@@ -122,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 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{2,}) (?= (?:/\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;
                        # link perl module names (Xx::Xx...)
                        $line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe
                                if !$type;