X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/89d70c322fed012f3efda452e81437d2ee14c629..b7eb5417cf938807539280d21325692df3e4cb1f:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 879381d..313c18f 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -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} }, ( '', @@ -113,6 +115,17 @@ EOT 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";