X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/89d70c322fed012f3efda452e81437d2ee14c629..81aefba6ac586eccbe18b4e90efc175e34fff5ad:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 879381d..54356fb 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} }, ( '', @@ -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