X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b5770997564659fc6a205c774152f6f41d8d1832..a0ba9298856b2426c5c66b6d2f2b284d98cee594:/unicode.plp?ds=sidebyside 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; +:>