X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/9ddbc59f9907fb3e9445c14a9d5eac84350f7751..3f38a7192491a73a1527179cdd68218f023aed61:/source.plp?ds=inline diff --git a/source.plp b/source.plp index b10f38b..b0b5daa 100644 --- 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", - version => '1.2', + 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." @@ -37,7 +37,6 @@ Html({ keywords => [qw' sheet cheat source code perl plp html agpl '], - stylesheet => [qw'light dark mono red'], data => [$source =~ m{\A($incname)\z}], }); @@ -65,6 +64,7 @@ else { say "
'; - print ReadFile($cachefile); + print decode_utf8(ReadFile($cachefile)); say ''; exit; } -e or mkdir for $cachefile =~ s{[^/]+\z}{}r; # dirname - open my $cache, '>', $cachefile - or Alert("Could not save cache", "Opening $cachefile failed: $!");; if (my $hl = eval { $size < 32_768 or die 'large files take too long to parse'; @@ -97,8 +95,11 @@ else { or die 'early versions are buggy under FastCGI'; delete $Text::VimColor::SYNTAX_TYPE{Underlined}; return Text::VimColor->new( - file => $source, - vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'], + file => $path, + vim_options => [@Text::VimColor::VIM_OPTIONS, + '+:set enc=utf-8', + '+:let perl_sub_signatures=1', + ], )->marked; }) { my %TYPETAG = ( @@ -107,6 +108,8 @@ else { Todo => 'em', PreProc => 'strong', ); + open my $cache, '>', $cachefile + or Alert("Could not save cache", "Opening $cachefile failed: $!");; say '
'; foreach (@{$hl}) { @@ -118,6 +121,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{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; @@ -132,8 +138,9 @@ else { say ''; } else { + warn $@ if $@; say '
'; - print EscapeHTML(decode_utf8(ReadFile($source))); + print EscapeHTML(decode_utf8(ReadFile($path))); say ''; }