terse stylesheet

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 4b16cd23c6e936e9d5596c446c3bc4a9f3281780..2b1d3e28b4b3b7794f08bb33ae481695a0669152 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -31,7 +31,7 @@ $header{content_type} = $ctype;
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
 <link rel="stylesheet" type="text/css" media="all" href="base.css">
 <!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
 <!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:

-       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<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_
        our $style = exists $get{style} && $styles{$get{style}} || "light";
        printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
                $_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_