File: style-sheet.pl

package info (click to toggle)
libcolor-calc-perl 1.074-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 320 kB
  • sloc: perl: 399; makefile: 7
file content (30 lines) | stat: -rw-r--r-- 440 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#!/usr/bin/perl

use utf8;
use strict;
use Color::Calc::WWW;

binmode STDOUT, ':utf8:crlf';

my $col1 = '#EEE';
my $col2 = '#908';

my $bkg = $col1;
my $fg  = color_contrast(color_grey($bkg));

my $bk2 = $col2;
my $fg2 = color_contrast(color_grey($bk2));

print <<__EOF;
Content-Type: text/css; charset=utf-8

body		      {
			background:	$bkg;
			color:		$fg;
		      }

h1 		      {	
			background:	$bk2;
			color:		$fg2;
		      }
__EOF