formatchar: highlight by unicode range if no digraphs

[sheet.git] / common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp

index fb1d54ac32d00c0b4fa76ef80c5f4961b9a6d320..b3a9a70520660bf4fffeb0319a2b826275a8e34b 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -57,6 +57,7 @@ sub Html {
         ref $_ eq 'ARRAY' and $_ = join ' ',  @$_ for $meta->{description};
         ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords};
         ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw};
+       ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
  
         # other vars
         my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- ';
@@ -76,7 +77,7 @@ sub Html {
  <meta name="keywords" content="$meta->{keywords}">
  <link rel="icon" type="image/png" href="/clip.png">
  EOT
-       print stylesheet(@$_), "\n" for $meta->{stylesheet} || ();
+       print $_, "\n" for $meta->{stylesheet} || ();
         print $_, "\n" for $meta->{raw} || ();
         print qq{</head>\n\n<body id="$file">\n};