X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9d052178d7fe4dc8e762dcf86f015cdd038f272f..refs/tags/v1.1:/index.plp diff --git a/index.plp b/index.plp index 4b16cd2..592d5d5 100644 --- a/index.plp +++ b/index.plp @@ -5,7 +5,7 @@ use warnings; no warnings "qw"; # you know what you doing no warnings "uninitialized"; # save some useless checks for more legible code -our $VERSION = "1.0"; +our $VERSION = "1.1"; our $ascii = 0; if (exists $get{ascii}) { @@ -31,7 +31,7 @@ $header{content_type} = $ctype; <: - my %styles = map {$_ => $_} qw(dark circus mono); + my %styles = map {$_ => $_} qw(dark circus mono terse); our $style = exists $get{style} && $styles{$get{style}} || "light"; printf(qq{\n}, $_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_ @@ -234,9 +234,12 @@ for (my $row = 0; $row <= $#$keyrows; $row++) {