X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/8da111b671c9914450077a1ec506964e70dceb40..refs/tags/v1.1:/index.plp diff --git a/index.plp b/index.plp index 096a35f..592d5d5 100644 --- a/index.plp +++ b/index.plp @@ -5,24 +5,7 @@ use warnings; no warnings "qw"; # you know what you doing no warnings "uninitialized"; # save some useless checks for more legible code -# 2006-03-29 ~20:00 started work -# 2006-03-30 11:58 html version -# 2006-05-20 03:44 perl version -# 2007-02-07 07:34 cleaned up - -# TODO: -# - use js to detect optimal key size -# - style for .undo (maybe just some css3-only shadow) -# - fix mode switching in konq (used to work) -# only when s present?! use browser sniffing to force ?ascii=0 :( -# - safari loading bug? -# - good case for gzip compression -# - link to source tarball -# - default stylesheet selectable -# - catch and execute pressed keys -# - ghosting option documented and default -# - option to follow aliases (default on?) -# - custom row combinations (eg for comparing different modes) +our $VERSION = "1.1"; our $ascii = 0; if (exists $get{ascii}) { @@ -48,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", $_ @@ -251,8 +234,12 @@ for (my $row = 0; $row <= $#$keyrows; $row++) {