X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/55c75a0c53862083d5d3c52b6ef6e6efa2864c7e..cad8198dbb4421c31673d233f1f05fdb5e1bffbd:/source.plp diff --git a/source.plp b/source.plp index aad6898..bc8423b 100644 --- a/source.plp +++ b/source.plp @@ -14,18 +14,13 @@ $header{content_type} = "text/html; charset=utf-8"; sheet page source code - +<: + my %styles = map {$_ => $_} qw(dark mono red); + our $style = exists $get{style} && $styles{$get{style}} || 'light'; + printf(qq{\n}, + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_ + ) for keys %styles; +:> @@ -65,7 +60,7 @@ print "
\n";
 foreach (@$parsed) {
 	my $tag = $_->[0] && ($TYPETAG{ $_->[0] } || 'span');
 	my $arg = '';
-	print "<$tag$arg class=\"syn$_->[0]\">" if $tag;
+	print "<$tag$arg class=\"sy-\l$_->[0]\">" if $tag;
 	if ($_->[0] eq 'Constant' and $_->[1] =~ s/^(')([a-z0-9_.]+\.plp?)(?=\1$)//) {
 		printf '%s%s', $1, "/source/$2", $2;
 	}