File: add-css.pl

package info (click to toggle)
emacspeak 29.0-9
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 12,904 kB
  • sloc: xml: 55,354; lisp: 48,335; cpp: 2,321; tcl: 1,500; makefile: 936; python: 836; sh: 785; perl: 459; ansic: 241
file content (14 lines) | stat: -rwxr-xr-x 425 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl-w  -i 
my $css='
<link rel="http://www.w3.org/StyleSheets/Core/Modernist" type="text/css"> ';
my $logo=qq(
 <table summary="logo"><tr><td>
><a href="http://emacspeak.sf.net"><img width="150" height="216" src="emacspeak.jpg" alt= "EMACSPEAK --Complete Audio Desktop"></a> 
</td></tr></table>);
while ( <>) {
  s@<head>@<head>$css@igo;
s@<body>@<body>$logo@igo;
s/^\s*\@title.*$//;
s/^\s*\@kindex.*//;
print;
}