X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9522b4e1c44d0ac3dc7aafe54357b0b07c9c87cd..81aefba6ac586eccbe18b4e90efc175e34fff5ad:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index f6cd6a6..54356fb 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -41,7 +41,7 @@ sub stylesheet { return join "\n", map { sprintf( '', - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.6", $_ + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.7", $_ ) } @_; } @@ -77,6 +77,8 @@ sub Html { $meta->{stylesheet} ||= [qw'light dark circus mono red terse']; $meta->{charset} ||= 'utf-8'; + ref $_ eq 'ARRAY' or $_ = [$_] for $meta->{raw}; + # optional amends push @{ $meta->{raw} }, ( '', @@ -107,12 +109,24 @@ sub Html { $meta->{title} + EOT print $_, "\n" for $meta->{stylesheet} || (); print $_, "\n" for $meta->{raw} || (); print qq{\n\n\n}; + # dev indicator + printf '

beta

', join('; ', + 'position: fixed', + 'right: 1em', + 'opacity: .5', + 'border: 1ex solid red', + 'border-width: 1ex 0', + 'z-index: 1', + 'background: inherit', + ) if $ENV{HTTP_HOST} =~ /\bdev\./; + # prepare trailing output PLP_END { print <<"EOT"; @@ -120,7 +134,7 @@ EOT sheet.shiar.nl/$file.plp $meta->{version} + rel="vcs-git" title="Git repository">v$meta->{version} created by • AGPLv3