X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c00e496bd055a1534e6643080c89262b82c30111..cad8198dbb4421c31673d233f1f05fdb5e1bffbd:/source.plp diff --git a/source.plp b/source.plp index 68808d8..bc8423b 100644 --- a/source.plp +++ b/source.plp @@ -14,7 +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; +:>