X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b5770997564659fc6a205c774152f6f41d8d1832..42302c75aa79bb1f14328d6b249379169f5a4fa1:/unicode.plp diff --git a/unicode.plp b/unicode.plp index cc133d5..25f89de 100644 --- a/unicode.plp +++ b/unicode.plp @@ -16,7 +16,13 @@ $header{content_type} = 'text/html; charset=utf-8'; digraph cheat sheet - +<: + my %styles = map {$_ => $_} qw(dark circus mono red terse); + our $style = exists $get{style} && $styles{$get{style}} || 'light'; + printf(qq{\n}, + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ + ) for keys %styles; +:>