keyboard/altgr: automatically generate thumbnails from source images

[sheet.git] / source.plp

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